SqlBulkCopy 添加字段变量 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，从客户的本地数据库同步数据到服务器数据库，由于本地数据库就只有这个客户的数据，所以没有客户名称这一列。

而服务器则是汇集各个客户，其他字段和客户的一模一样，就是加了个客户名称这一列

我是希望客户在同步数据的时候，可以把他的用户名传递到客户名称这一列，

但是SqlBulkCopy 好像只能是列名，不能用变量。

能有什么办法吗？

Dim tran As System.Data.SqlClient.SqlTransaction

try

Dim conn As new System.Data.SqlClient.SqlConnection("server=10.12.25.30;uid=aa3;pwd=z91;database=a")

conn.Open() '打开链接

tran = conn.BeginTransaction()

Dim copy As new System.Data.SqlClient.SqlBulkCopy(conn, System.Data.SqlClient.SqlBulkCopyOptions.Default, tran)

For Each dc As DataCol In tb1.datacols

If dc.name = "姓名" Or dc.name = "手机号码" Or dc.name = "提交编号" Or dc.name = "短信字数" Or dc.name = "计费条数" Then

Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping(dc.name, dc.name)

Copy.ColumnMappings.Add(mapping1)

End If

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

copy.BatchSize = 1000

copy.WriteToServer(tb1.basetable) '你的datatable名字,执行把DataTable中的数据写入DB

tran.Commit() '提交事务

catch ex As exception

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

End try

……

For Each dc As DataCol In tb1.datacols

If dc.name = "姓名" Or dc.name = "手机号码" Or dc.name = "提交编号" Or dc.name = "短信字数" Or dc.name = "计费条数" Then

Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping(dc.name, dc.name)

Copy.ColumnMappings.Add(mapping1)

End If

Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("姓名", "客户名称")

Copy.ColumnMappings.Add(mapping1)

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

……

蓝老师，就是源表没有姓名这一列才不好办。

因为源表，也就是客户那边，就只有这个客户，没有姓名这一列。

[此贴子已经被作者于2019/9/23 11:52:21编辑过]

有什么列名就使用什么列名

Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("客户", "客户名称")

蓝老师：是如下意思：

源表： A B C D （没有列名了）

目标表：A B C D 客户名称

那客户名称的数据从哪来啊

蓝老师，就是用户名，指定的一个字符串。

源表本身是没有这一列

方法1、table添加一个临时列，把用户名先更新进去

2、先更新数据库，再统一更新客户名称：http://www.foxtable.com/webhelp/topics/2898.htm

哦哦，蓝老师，我这样处理，有优化的空间吗？

加了临时列

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "selec t * from CashKm "

Dim dt As DataTable = cmd.ExecuteReader()

dt.DataCols.Add("分销商",Gettype(String))

For Each dr As DataRow In dt.DataRows

dr("分销商") = _gongsi

[此贴子已经被作者于2019/9/23 14:48:48编辑过]

主题：SqlBulkCopy 添加字段变量