'先准备一个DataSet用来存放需要导入的数据
Dim DS As New DataSet
'new 一个SqlBulkCopy
Dim MyBulkCopy As New SqlBulkCopy(SQLhenlp.Con)
'设置要把数据导入到数据库中的那个表
MyBulkCopy.DestinationTableName = "tm"
'设置对应关系,自己的数据里字段和数据库中字段对应,有多少写多少
MyBulkCopy.ColumnMappings.Add("tm", "tm")
'批量提交
MyBulkCopy.WriteToServer(DS.Tables("Table"))
MyBulkCopy.Close()
'释放资源
DS.Dispose()
我测试过,56万数据,如果循环插入的话大概得4分40秒,如果批量提交的话20秒就ok