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

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

حال براي اينكه از نوشتن كد هاي اضافي پرهيز كنم ميام يك روال به اسم Connect مي سازم كه كارش اتصال و باز كردن بانك اطلاعاتي هستش و در هر جا كه خواستم ازش استفاده مي كنم:

    Public Conn As ADODB.Connection

.

.

.

Public Sub Connect()

        Set Conn = New ADODB.Connection

        

        Conn.Provider = "Microsoft.JET.OLEDB.4.0"

        Conn.ConnectionString = App.Path + "\Data Base\Test.mdb"

        Conn.CursorLocation = adUseClient

        Conn.Open

End Sub

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

در اين پست و اين پست و اين پست با نحوه بازيابي اطلاعات يك جدول آشنا شديم. هر سه روش يك كار رو انجام مي دن اما من از روش دوم يعني استفاده از Command رو پيشنهاد مي كنم. عرض كردم كه هيچ فرقي نمي كنه شما مي تونيد يك برنامه پايگاه داده رو به روش ها و شكل هاي مختلفي بنويسيد.
متد LoadAll من به اين شكل خواهد بود:

    Public Sub LoadAll()

        Set Cmd = New ADODB.Command

        Set Rst = New ADODB.Recordset

         

        Connect

                

        SQLQuery = "Select * From tblTest"

        

        Cmd.ActiveConnection = Conn

        Cmd.CommandType = adCmdText

        Cmd.CommandText = SQLQuery

        

        Rst.CursorType = adOpenKeyset

        Rst.CursorLocation = adUseClient

        Set Rst = Cmd.Execute

        

        Set frmMain.DataGrid1.DataSource = Rst

            frmMain.DataGrid1.Refresh

    End Sub

من از اين روش براي درج، حذف و ويرايش نيز استفاده خواهم كرد.

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

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

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

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