SqlBulkCopy 的应用

    Private Function CopyDataTableTOServer() As Boolean
        Dim strSQL As String
        Dim bcp As System.Data.SqlClient.SqlBulkCopy = New System.Data.SqlClient.SqlBulkCopy(Sql连接字符串)
        Dim dtHTNSIJF As DataTable
        strSQL = HTABLE_RELATE_Data.readstartsql
        dtHTNSIJF = m_outSideDB.GetDataTable(strSQL)
        Try
            bcp.DestinationTableName = "数据库中表名"
            bcp.WriteToServer(要写入数据库的DataTable)
            Return True
        Catch e As Exception
            Return False
        End Try
    End Function