300分寻求解决方案? 批量插入数据库的问题！？？？

博客围绕考试系统多人同时交卷时数据库插入数据的并发问题展开，指出批量插入数据可提高程序执行效率、减少工作量。介绍了利用事务和Dataset两种批量插入数据的方法，若仍无法解决问题，还可使用MSMQ，将记录放队列由服务器后续处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

因为我现在要做的一考试系统，当考试结束的时候，有4、5百人同时要交卷，每一份卷子都有100多条记录要插入。。。所以就存在了并发性的问题！？一条一条的插入会有好多人都交不了卷而出错的！故特发此贴，希望有识之士能助小弟一把! 不甚感激!!!

在我们平时的开发过程中，经常要向数据库插入数据，有时可能要进行很多次类似的操作，比如向数据库中的同一个表同时插入若干数据，即批量插入数据。
            向数据库中批量插入数据，可以将若干条数据一次插入道数据库，提高程序的执行效率，也可以减少我们的工作量。
            批量插入数据，可以采用一下两种方法。
            一、利用事务（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
            利用以上的两种方法，都可以完成向数据库批量插入数据。