Foxtable(狐表)用户栏目专家坐堂 → SqlBulkCopy如何用于来源表是查询表的情况?


  共有2114人关注过本帖树形打印复制链接

主题:SqlBulkCopy如何用于来源表是查询表的情况?

帅哥哟,离线,有人找我吗?
happyft
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
SqlBulkCopy如何用于来源表是查询表的情况?  发帖心情 Post By:2018/11/16 20:03:00 [只看该作者]

Dim tran As System.Data.SqlClient.SqlTransaction
try
    Dim conn As new System.Data.SqlClient.SqlConnection("server=voyo;uid=sa;pwd=hailun.;database=Test") '改为自己数据库的连接字符串
    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 DataTables(e.form.name & "_Table1").datacols

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

                Copy.ColumnMappings.Add(mapping1)

        Next

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

    copy.BatchSize = 1000
    copy.WriteToServer(DataTables(e.form.name & "_Table1").basetable)   '原来是加载的数据表就没问题,现在此表是查询后绑定到窗口的表执行出题
    tran.Commit()                                  '提交事务
    msgbox("OK")
 catch ex As exception
    msgbox(ex.message)
    tran.Rollback()    '返回False 执行失败!
End try

原来是加载的数据表就没问题,现在窗口表是如下获得的
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
cmd.CommandTimeOut = 300
cmd.CommandText = "Exec usp_mps20"
Dim dt As DataTable = cmd.ExecuteReader
Dim tbl As Table = Tables(e.form.name & "_Table1")
tbl.DataSource = dt
这种情况红色那句要怎么写才行?现在执行或提示  "给定的 ColumnMapping 与源或目标中的任意列均不匹配"
无法执行

谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110553 积分:562655 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/16 20:27:00 [只看该作者]

查询表的列名必须和数据库里的列名完全一致。如果查询表要显示中文,或者改名请使用标题

 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2018/11/16 20:32:00 [只看该作者]

谢谢,可以了,原以为查询表不可以,原来是多增加了一个重复的临时列

 回到顶部