向数据库中批量插入数据，可以将若干条数据一次插入道数据库，提高程序的执行效率，也可以减少我们的工作量。
批量插入数据，可以采用一下两种方法。
一、利用事务（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
利用以上的两种方法，都可以完成向数据库批量插入数据。