VB.NET sqlbulkcopy 批量导入

 

 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