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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 保存优化请教

共有9569人关注过本帖树形打印复制链接主题：保存优化请教

xxfoxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15867 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/8/18 17:53:00 [显示全部帖子]

6楼的方法，7600条，阿里云服务器，保存时间用了三分钟

xxfoxtable

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15867 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/8/19 11:59:00 [显示全部帖子]

以下内容是专门发给有点蓝,有点甜浏览

[此贴子已经被作者于2018/8/19 16:17:31编辑过]

xxfoxtable

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15867 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/8/19 15:29:00 [显示全部帖子]

以下内容是专门发给有点甜, 有点蓝浏览

[此贴子已经被作者于2018/8/19 15:29:39编辑过]

xxfoxtable

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15867 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/8/19 15:38:00 [显示全部帖子]

这种方式不会用，老师能帮助写一下吗？

xxfoxtable

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15867 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/8/19 15:47: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 mapping1 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.DestinationTableName = "表D" '指定服务器上目标表的名称
    copy.WriteToServer(DataTables("表D").basetable)   '你的datatable名字,执行把DataTable中的数据写入DB
    tran.Commit()                                  '提交事务
    msgbox("OK")
catch ex As exception
    msgbox(ex.message)
    tran.Rollback()    '返回False 执行失败!
End try

是这样吗？mapping1代表什么？