Public Shared Function BulkCopy(ByVal ds As Object, ByVal DestinationTableName As String) As Boolean
Dim rv As Boolean = False
Dim myTrans As SqlTransaction = newTran()
Dim bCopy As New SqlBulkCopy(myTrans.Connection, SqlBulkCopyOptions.CheckConstraints, myTrans)
'bCopy.ColumnMappings("","")
Try
bCopy.WriteToServer(ds)
myTrans.Commit()
rv = True
Catch ex As Exception
myTrans.Rollback()
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
Finally
bCopy.Close()
myTrans.Dispose()
End Try
Return rv
End Function
在网上找到了这段代码如何在FOXTABLE中使用呢
[此贴子已经被作者于2016/4/28 18:20:07编辑过]