在我們平時的開發過程中，經常要向數據庫插入數據，有時可能要進行很多次類似的操作，比如向數據庫中的同一個表同時插入若干數據，即批量插入數據。
向數據庫中批量插入數據，可以將若干條數據一次插入道數據庫，提高程序的執行效率，也可以減少我們的工作量。
批量插入數據，可以採用一下兩種方法。
一、利用事務（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
利用以上的兩種方法，都可以完成向數據庫批量插入數據。