以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 下载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186243)

--  作者:sanny
--  发布时间:2023/4/15 20:32:00
--  [求助] 下载
老师,

Dim tran As System.Data.SqlClient.SqlTransaction
try
    Dim conn As new System.Data.SqlClient.SqlConnection("server=10.11.2.31;uid=sa;pwd=acea.1222223;database=U2216")

    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("Bom").datacols
        Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping(dc.name, dc.name)
        Copy.ColumnMappings.Add(mapping1)
    Next
 
    copy.Destinati      \'指定服务器上目标表的名称
    copy.BatchSize = 3000
    copy.WriteToServer(DataTables("Bb").basetable)   \'你的datatable名字,执行把DataTable中的数据写入DB
          tran.Commit()                                 \'提交事务
   
catch ex As exception
    msgbox(ex.message)
    tran.Rollback()    \'返回False 执行失败!
End try

[此贴子已经被作者于2023/4/17 20:31:15编辑过]

--  作者:有点蓝
--  发布时间:2023/4/16 20:04:00
--  
没有什么快速下载的功能。建议分页加载