在我们平时的开发过程中，经常要向数据库插入数据，有时可能要进行很多次类似的操作，比如向数据库中的同一个表同时插入若干数据，即批量插入数据。
向数据库中批量插入数据，可以将若干条数据一次插入道数据库，提高程序的执行效率，也可以减少我们的工作量。
批量插入数据，可以采用一下两种方法。
一、利用事务（Transaction）
‘定义执行批量插入数据的函数,参数为Insert SQL语句的数组
Sub ExeTransaction (Byval Sqlstrlist as string())
Dim Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Tax.mdb"
Dim trans as OledbTransaction=Nothing
Try
If conn.State=connectionstate.closed then
Conn.open()
End if
Dim cmd as oledbCommand=new oledbcommand()
cmd.connection=conn
cmd.commandtype=commandtype.text
trans=conn.BeginTransaction()
cmd.Transaction=trans
dim I as integer
for I=0 to Sqlstrlist.GetupperBound(0)
cmd.commandText= Sqlstrlist(i) ‘取得参数（数组）中的值
cmd.ExecuteNonQuery()
Next
Trans.commit()
Catch ex as oledbexception
Trans.Rollback()
Fanlly
Conn.close()
End try
End sub
二、利用Dataset
public sub Insert()
‘建立datatable数据源
dim dt as DataTable=New DataTable()
Dim dr as DataRow
Dt.Columns.Add(new DataColumn(“name”))
Dim j as Integer
For j =0 to 10
Dr=dt.newrow()
Dr(0)=”name”+j.toString
Dt.Rows.Add(dr)
Next
Dim Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Tax.mdb"
Conn.open()
Dim MyAdapter as Oledbdataadapter=new OleDataAdapter()
….
Dim cmd as Oledbcommand=New Oledbcommand(“Insert Into table(name) values (@name)”,conn)
cmd.parameters.item(“@name”).SourceColumns=dt.columns(“name”).columnsName
myAdapter.update(dt)
conn.close()
end sub
利用以上的两种方法，都可以完成向数据库批量插入数据。
