利用SqlBulkCopy类 批量导入数据到sql server

直接贴代码:

Private Function ImportData(ByVal dt As DataTable) As Boolean
        Dim result As Boolean = False
        Dim sqlCon As SqlConnection = New SqlConnection("sqlConnectString")
        sqlCon.Open()
        Dim sqlTran As SqlTransaction = sqlCon.BeginTransaction()
        Dim sqlBulkCopy As New SqlBulkCopy(sqlCon, SqlBulkCopyOptions.KeepIdentity, sqlTran)
        Try
            sqlBulkCopy.DestinationTableName = "TabName"
            sqlBulkCopy.ColumnMappings.Clear()
            For i As Integer = 0 To dt.Columns.Count - 1
                sqlBulkCopy.ColumnMappings.Add(dt.Columns(i).ColumnName, dt.Columns(i).ColumnName)
            Next
            sqlBulkCopy.WriteToServer(dt)
            sqlTran.Commit()
            result = True
        Catch ex As Exception
            sqlTran.Rollback()
            result = False
        Finally
            sqlBulkCopy.Close()
        End Try
        Return result
    End Function

参考:点击打开链接