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

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

اين متد كارش درج كردن يك ركورد در يك جدول هستش. همچنين براي ارسال 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