Dim tran As System.Data.SqlClient.SqlTransaction
try
Dim conn As new System.Data.SqlClient.SqlConnection("server=127.0.0.1;uid=sa;pwd=xxxxx;database=qgrjmd") '数据库安装在本机
conn.Open() '打开链接
tran = conn.BeginTransaction()
Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("出发日期", "出发日期")
Dim mapping2 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("第2列", "第2列")
Dim mapping3 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("第3列", "第3列")
Dim mapping4 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("第4列"", "第4列")
Dim mapping5 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("第5列", "第5列")
Dim copy As new System.Data.SqlClient.SqlBulkCopy(conn, System.Data.SqlClient.SqlBulkCopyOptions.Default, tran)
Copy.ColumnMappings.Add(mapping1)
Copy.ColumnMappings.Add(mapping2)
Copy.ColumnMappings.Add(mapping3)
Copy.ColumnMappings.Add(mapping4)
Copy.ColumnMappings.Add(mapping5)
copy.Destinati '指定服务器上目标表的名称
copy.BatchSize = 1000
copy.WriteToServer(DataTables("cglk").basetable) '你的datatable名字,执行把DataTable中的数据写入DB
tran.Commit() '提交事务
msgbox("OK")
catch ex As exception
msgbox(ex.message)
tran.Rollback() '返回False 执行失败!
End try
问题
1：copy.WriteToServer(DataTables("cglk").basetable) 这句是直接这样写码，后面的.basetable是什么意思？
2：执行通过，弹窗OK。为什么我的sqlserver2008数据cglk表里面数据一个都没有写入？
[此贴子已经被作者于2020/3/13 9:42:59编辑过]
加好友 
发短信
Post By：2020/3/13 9:40:00 [显示全部帖子]
