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
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