在我们平时的开发过程中，经常要向数据库插入数据，有时可能要进行很多次类似的操作，比如向数据库中的同一个表同时插入若干数据，即批量插入数据。

向数据库中批量插入数据，可以将若干条数据一次插入道数据库，提高程序的执行效率，也可以减少我们的工作量。

批量插入数据，可以采用一下两种方法。

一、利用事务（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