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

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

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

    Public Sub Delete(ByRef NumericValue As Integer, and more....)

        Set Cmd = New ADODB.Command

        Set Rst = New ADODB.Recordset

        Set Param = New ADODB.Parameter

        

        Connect

        

        Cmd.ActiveConnection = Conn

        Cmd.CommandType = adCmdText

        Cmd.CommandText = "Delete From tblTest WHERE NumericField=@NumericField"

        Cmd.Parameters.Refresh

        Cmd.Parameters("@NumericField").Value = NumericValue

         

        Rst.CursorType = adOpenKeyset

        Rst.CursorLocation = adUseClient

        Set Rst = Cmd.Execute

    End Sub