اين روال كارش ويرايش كردن يك ركورد هستش.
کد:
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
