如何使用 vb.net 将 excel 文件导入 sql server

Question

我需要有关使用 VB.NET 将 Excel 文件导入 SQL Server 的帮助。我的编码运行良好，但有时会出现一条前消息，说转换日期失败

这里是错误。当我第一次导入它时它工作正常，但是在更改了 excel 中的主键和其他东西之后它在日期出错

这是 Excel 文件中的日期。第一次有效，但第二次无效。我在 Excel 中编写日期，就像 SQL Server 日期格式一样，例如 2021-12-14，即 YYYY-MM-DD。我对此感到困惑了一个月...如果我在 Excel 中有 10 行，有时会出现关于转换日期但仍将数据导入 SQL Server 但其中一些未在 sql 中导入的错误

Try
    OLEcon.Open()
    With OLEcmd
        .Connection = OLEcon
        .CommandText = "select * from [Sheet1$]"
    End With
    OLEda.SelectCommand = OLEcmd
    OLEda.Fill(OLEdt)

    For Each r As DataRow In OLEdt.Rows
        Dim intAge As Integer
        intAge = Convert.ToInt32(r(2).ToString)
        Dim dateLED As Date
        dateLED = Convert.ToDateTime(r(11).ToString)
        Dim dateDJ As Date
        dateDJ = Convert.ToDateTime(r(12).ToString)

        sql = "INSERT INTO MasterStaffListTry (EENo,Name,Age,AgeCategory,Gender,Ethnicity,Grade,Category,Department,Position,ReportingTo,LastEmploymentDate,DateJoin,LOCUM,Status) VALUES 
                ('" & r(0).ToString & "','" & r(1).ToString & "','" & intAge & "','" & r(3).ToString & "','" & r(4).ToString & "',
                 '" & r(5).ToString & "' ,'" & r(6).ToString & "','" & r(7).ToString & "','" & r(8).ToString & "','" & r(9).ToString & "',
                 '" & r(10).ToString & "','" & dateLED.ToShortDateString & "','" & dateDJ.ToShortDateString & "','" & r(13).ToString & "' ,'" & r(14).ToString & "')"
        resul = saveData(sql)
        If resul Then
            Timer1.Start()
        End If
    Next

这是我导入 Excel 文件的代码。我认为这里是错误的部分。

Answer 1

您可以使代码更高效一些并添加错误检查。

您可以只使用 SQL 命令的一个实例并更改其参数的值来提交新数据。

在获取这些参数的值时，您可以使用 DateTime.TryParse 之类的函数，这使您有机会随心所欲地处理解析错误 - 您可以跳过该行或添加到错误日志中，而不是尝试插入无效数据。

你可以从这个例子开始：

'TODO: add all the parameters and set their .SqlDbType and .Size values to match the database columns.
Dim eeNo = New SqlParameter With {.ParameterName = "@EENo", .SqlDbType = SqlDbType.NVarChar, .Size = 16}
Dim name = New SqlParameter With {.ParameterName = "@Name", .SqlDbType = SqlDbType.NVarChar, .Size = 60}
Dim age = New SqlParameter With {.ParameterName = "@Age", .SqlDbType = SqlDbType.Int}
Dim lastEmploymentDate = New SqlParameter With {.ParameterName = "@LastEmploymentDate", .SqlDbType = SqlDbType.DateTime2}

'TODO: Write the query in full.
Dim sql = "INSERT INTO MasterStaffListTry (EENo,Name,Age,LastEmploymentDate)
                  VALUES 
                    (@EENo, @Name, @Age, @LastEmploymentDate)"

Dim ci = New CultureInfo("en-US")

Using conn As New SqlConnection("yourConnectionStringGoesHere")
    Using sqlcmd As New SqlCommand(sql, conn)
        'TODO: Add all the parameters.
        sqlcmd.Parameters.Add(eeNo)
        sqlcmd.Parameters.Add(name)
        sqlcmd.Parameters.Add(age)
        sqlcmd.Parameters.Add(lastEmploymentDate)

        Dim led As DateTime ' This will store the lastEmploymentDate when it has been parsed.

        For Each r As DataRow In oleDt.Rows

            'TODO: Use TryParse for all applicable data.
            Dim ledOK = DateTime.TryParse(r(11).ToString(), ci, Nothing, led)

            'TODO: Check all the parsing worked, e.g. If ledOK AndAlso variable2OK AndAlso variable3OK Then
            If ledOK Then
                eeNo.Value = r(0).ToString()
                name.Value = r(1).ToString()
                age.Value = Convert.ToInt32(r(2))
                lastEmploymentDate.Value = led

                sqlcmd.ExecuteNonQuery()

            End If

        Next

    End Using
End Using

在尝试解析日期或数字时指定要使用的文化是个好主意，例如2020 年 1 月 12 日可能是 1 月 1 日或 1 月 12 日。

Answer 2

您可以使代码更高效一些并添加错误检查。

您可以只使用 SQL 命令的一个实例并更改其参数值以提交新数据。

在获取这些参数的值时，您可以使用 DateTime.TryParse 之类的函数，这使您有机会根据需要处理解析错误 - 您可以跳过该行或添加到错误日志中，而不是尝试插入无效数据。