پایگاه داده در ویژوال بیسیک - شروع تا پایان

[اوبالیت به بو]

اين روال كارش ويرايش كردن يك ركورد هستش. براي ارسال Parameters از اين روش استفاده شده:

    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