Dim dt As DataTable = DataTables("Sheet1") '修改为你的表
Dim conStr As String = "server=s***p,16131;uid=**;pwd=z***6;database=A***透" '改为自己数据库的连接字符串,注意跟狐表的数据库字符串不同,不能拿来用
Dim tran As System.Data.SqlClient.SqlTransaction
Dim conn As new System.Data.SqlClient.SqlConnection(conStr)
Try
Dim st As Date = Date.Now '计算耗时
conn.Open() '打开链接
tran = conn.BeginTransaction()'开始事务
Dim mpList As new List(of System.Data.SqlClient.SqlBulkCopyColumnMapping)
'配置本地来源列与服务器目标列的配对关系,第一个参数是"来源列",第二个是"目标列"
For Each dc As DataCol In dt.DataCols
mpList.Add( new System.Data.SqlClient.SqlBulkCopyColumnMapping(dc.Name, dc.Name))
Next
Dim copy As new System.Data.SqlClient.SqlBulkCopy(conn, System.Data.SqlClient.SqlBulkCopyOptions.Default, tran)
'把刚才的匹配关系,导进去SqlBulkCopy的参数里
For Each mp As System.Data.SqlClient.SqlBulkCopyColumnMapping In mpList
Copy.ColumnMappings.Add(mp)
Next
copy.Destinati '指定服务器上目标表的名称
copy.BulkCopyTimeout=30 '默认30秒超时
copy.BatchSize = CInt(dt.DataRows.Count/10) '每批事务插入的数据量,推荐插入的总行数/10,性能最佳
copy.WriteToServer(dt.basetable) '你的本地DataTable,要转成.net官方的基表类型
tran.Commit()
Dim res As Double = Format(dt.DataRows.Count /10000,"0.00")
MessageBox.Show("批量插入成功, " & res & "W行 耗时: " & (Date.Now - st).TotalSeconds & "秒")
Catch ex As exception
tran.Rollback() '返回False 执行失败!
MessageBox.Show("批量插入失败,原因:" & ex.message)
Finally
conn.Close() '必须关闭,否则内存会一直泄露
End Try
我的两个表不一样，要怎么改才能导入？
加好友 
发短信
Post By：2021/4/12 23:46:00 [显示全部帖子]
Post By：2020/4/8 8:47:00 [
Post By：2017/5/9 15:11:00 [