专家坐堂-外部数据源高速合并的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataTables("总表").DataRows.Clear

Dim tran As System.Data.SqlClient.SqlTransaction

try

Dim conn As new System.Data.SqlClient.SqlConnection("server=;uid=sa;pwd=123;database=DataSQL")

\'改为自己数据库的连接字符串

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 mapping7 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("销售面积", "销售面积")

Dim mapping8 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("户型1", "户型1")

Dim mapping9 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("户型2", "户型2")

Dim mapping10 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("底价", "底价")

Dim mapping11 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("备案价", "备案价")

Dim mapping12 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("按揭表价", "按揭表价")

Dim mapping13 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("一次性表价", "一次性表价")

Dim mapping14 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("楼号", "楼号")

Dim mapping15 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("单元", "单元")

Dim mapping16 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("房间号", "房间号")

Dim mapping17 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("楼层", "楼层")

Dim mapping18 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.ColumnMappings.Add(mapping7)

Copy.ColumnMappings.Add(mapping8)

Copy.ColumnMappings.Add(mapping9)

Copy.ColumnMappings.Add(mapping10)

Copy.ColumnMappings.Add(mapping11)

Copy.ColumnMappings.Add(mapping12)

Copy.ColumnMappings.Add(mapping13)

Copy.ColumnMappings.Add(mapping14)

Copy.ColumnMappings.Add(mapping15)

Copy.ColumnMappings.Add(mapping16)

Copy.ColumnMappings.Add(mapping17)

Copy.ColumnMappings.Add(mapping18)

copy.DestinationTableName = "总表" \'指定服务器上目标表的名称

copy.BatchSize = 1000

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

tran.Commit() \'提交事务

msgbox("OK")

catch ex As exception

msgbox(ex.message)

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

End try