专家坐堂-按照条件复制Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tran As System.Data.SqlClient.SqlTransaction

Try

Dim conn As New System.Data.SqlClient.SqlConnection("server=192.168.1.10;uid=Sa;pwd=Ab234567;database = 条码扫描系统数据库") \'改为自己数据库的连接字符串

conn.Open() \'打开链接

tran = conn.BeginTransaction()

Dim mapping1 As New System.Data.SqlClient.SqlBulkCopyColumnMapping("月份", "月份") \'改为自己的列名，有多少列就增加多少个

Dim mapping2 As New System.Data.SqlClient.SqlBulkCopyColumnMapping("项目", "项目")

Dim mapping3 As New System.Data.SqlClient.SqlBulkCopyColumnMapping("费用明细", "费用明细")

Dim mapping4 As New System.Data.SqlClient.SqlBulkCopyColumnMapping("金额", "金额")

Dim mapping5 As New System.Data.SqlClient.SqlBulkCopyColumnMapping("分配方式", "分配方式")

Dim mapping6 As New System.Data.SqlClient.SqlBulkCopyColumnMapping("说明", "说明")

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.ColumnMappings.Add(mapping6)

copy.Destinati \'指定服务器上目标表的名称

copy.BatchSize = 1000

copy.WriteToServer(DataTables("生产成本总表").basetable) \'你的datatable名字,执行把DataTable中的数据写入DB

tran.Commit() \'提交事务

msgbox("OK")

Catch ex As exception

msgbox(ex.message)

tran.Rollback() \'返回False 执行失败!

End Try

DataTables("生产成本临时表").Save()