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

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

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

    Public Sub Insert(ByRef َArgum...)

        Set Cmd = New ADODB.Command

        Set Rst = New ADODB.Recordset

    

        Connect

        

        Cmd.ActiveConnection = Conn

        Cmd.CommandType = adCmdText

        Cmd.CommandText = "Insert Into tblTest (Field1)Values(@Field1)"

        Cmd.Parameters.Refresh

        Cmd.Parameters.Item(0).Value = Argum...

        

        Rst.CursorType = adOpenKeyset

        Rst.CursorLocation = adUseClient

        Set Rst = Cmd.Execute

    End Sub

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

كار اين روال حذف يك ركورد هستش. براي ارسال 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