自定义DataAdapter批量更新

 < WebMethod ()>   Public   Function   AddMemCard( ByVal   ds   As   DataSet   )   As   String

          Dim   con   As   New   SqlConnection

        con.ConnectionString =   ConfigurationManager .ConnectionStrings( "wingsbook"   ).ToString()

          Dim   cmd   As   New   SqlCommand

          Dim   da   As   New   SqlDataAdapter

          Try

            con.Open()

            cmd.Connection = con

            cmd.CommandText =   "Insert into WBMemCard(MemCardId,MemCardMoney,MemCardBuyMan,MemCardRegisterId,MemCardName,"   & _

                                "MemCardPhone,MemCardMobile,MemCardMail,MemCardAdress,MemCardSTime,MemCardSNname) values("   & _

                                "@MemCardId,@MemCardMoney,@MemCardBuyMan,@MemCardRegisterId,@MemCardName,"   & _

                                "@MemCardPhone,@MemCardMobile,@MemCardMail,@MemCardAdress,getdate(),@MemCardSNname)"

            da.InsertCommand = cmd

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardId" ,   SqlDbType .NVarChar, 50))

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardMoney" ,   SqlDbType .Decimal))

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardBuyMan" ,   SqlDbType .NVarChar, 50))

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardRegisterId" ,   SqlDbType .Int))

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardName" ,   SqlDbType .NVarChar, 50))

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardPhone" ,   SqlDbType .NVarChar, 20))

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardMobile" ,   SqlDbType .NVarChar, 20))

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardMail" ,   SqlDbType .NVarChar, 100))

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardAdress" ,   SqlDbType .NVarChar, 100))

            cmd.Parameters.Add(   New   SqlParameter   ( "@MemCardSNname" ,   SqlDbType .NVarChar, 50))

            cmd.Parameters(0).SourceColumn =   "MemCardId"

            cmd.Parameters(0).SourceVersion =   DataRowVersion .Original

            cmd.Parameters(1).SourceColumn =   "MemCardMoney"

            cmd.Parameters(1).SourceVersion =   DataRowVersion .Original

            cmd.Parameters(2).SourceColumn =   "MemCardBuyMan"

            cmd.Parameters(2).SourceVersion =   DataRowVersion .Original

            cmd.Parameters(3).SourceColumn =   "MemCardRegisterId"

            cmd.Parameters(3).SourceVersion =   DataRowVersion .Original

            cmd.Parameters(4).SourceColumn =   "MemCardName"

            cmd.Parameters(4).SourceVersion =   DataRowVersion .Original

            cmd.Parameters(5).SourceColumn =   "MemCardPhone"

            cmd.Parameters(5).SourceVersion =   DataRowVersion .Original

            cmd.Parameters(6).SourceColumn =   "MemCardMobile"

            cmd.Parameters(6).SourceVersion =   DataRowVersion .Original

            cmd.Parameters(7).SourceColumn =   "MemCardMail"

            cmd.Parameters(7).SourceVersion =   DataRowVersion .Original

            cmd.Parameters(8).SourceColumn =   "MemCardAdress"

            cmd.Parameters(8).SourceVersion =   DataRowVersion .Original

            cmd.Parameters(9).SourceColumn =   "MemCardSNname"

            cmd.Parameters(9).SourceVersion =   DataRowVersion .Original

            da.Update(ds,   "MemCard" )

            ds.Dispose()

            cmd.Dispose()

            con.Close()

            con.Dispose()

              Return   "OK"

          Catch   ex   As   Exception

              Return   ex.Message

          End   Try

      End   Function