sql-server - 如何使用 vb.net 将 excel 文件导入 sql server
问题描述
我需要使用 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 文件的编码。我认为这里是错误的部分。
解决方案
您可以使代码更高效一些并添加错误检查。
您可以仅使用 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 日。
推荐阅读
- angularjs - IE - Angular 的 json 响应包含删除其他字符的 unicode 字符。无效的 JSON
- java - 将按钮和文本字段从另一个类导入到主类
- ansible - 如何在ansible中迭代库存组?
- javascript - 如何从多个图像访问多个 alt 属性值?
- symfony - Symfony 4 / Webpack Encore:jQuery 不起作用
- ios - Firebase 动态链接预览内容
- vega - Vega / vega-lite 多级 / 分层轴
- mfc - 如何在 Outlook 样式 MFC 程序上获取派生 CMFCShellTreeCtl 的 CDocument?
- neo4j - 如何在 Neo4j 中使多级路径遍历更快
- android - 在进行端口转发时被拒绝连接