متد Update

کد:

    Public Sub Update(ByRef strArgum As String, ByRef NumericField As Integer,....)
        Set Cmd = New ADODB.Command
        Set Rst1 = New ADODB.Recordset
        Set Rst2 = New ADODB.Recordset
       
        Connect
       
        Cmd.ActiveConnection = Conn
        Cmd.CommandType = adCmdText
        Cmd.CommandText = "Update tblTest SET Field1=@Field1 WHERE NumericField=@NumericField"
         
        Set Parameters1 = Cmd.CreateParameter("@Field1", adInteger, adParamInput)
        Cmd.Parameters.Append Parameters1
        Set Parameters2 = Cmd.CreateParameter("@NumericField", adInteger, adParamInput)
        Cmd.Parameters.Append Parameters2

       
        Set Rst = Cmd.Execute(, Array(strArgum, NumericField))
    End Sub