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

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

براي بازيابي اطلاعات يك جدول از پايگاه داده ميشه از خود شي Connection استفاده كرد. شي Connection يك متدي رو در اختيار ما قرار مي ده به اسم Execute كه از اسمش پيداست يعني اجرا كن. اين متد از ما يك دستوري رو براي بازيابي اطلاعات مي خواد كه مي شه از Store Procedure ها هم در اينجا استفاده كرد.
با اين دستور هم ميشه از Recordset استفاده كرد هم استفاده نكرد. همون طور كه مي دونيد Recordset يك حافظه Forward Only هستش يعني روبه جلو كه در خودش يك مجموعه ركورد رو ذخيره مي كنه.
شكل كلي كار به اين صورت هستش:

Set Rst = Conn.Execute (SQLStatment, Recordaffected, Option)

Recordaffected يك آرگومان اختياري هستش كه فكر مي كنم اكثر شما وقتي در داخل نرم افزار بانك اطلاعاتي كه باهاش يك Query اجرا مي كنيد (Access, SQL Server,...) ديده باشيد كه تعداد ركوردهاي درگير شده از اون دستور SQL رو به شما مي ده.
آرگومان Option مشخص مي كنه كه شما چگونه مي خواين اطلاعات رو بازيابي كنيد. درواقع همون CommandType در شي Command هستش با كمي تغييرات.

و اگر از Recordset هم استفاده نكرديد هيچ ايرادي نداره:

Conn.Execute SQLStatment, Recordaffected, Option

يك مثال:

    Public Sub LoadAll_1()

        Set Conn = New ADODB.Connection

        Set Rst = New ADODB.Recordset

        

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

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

        Conn.CursorLocation = adUseClient

        Conn.Open

                

        SQLQuery = "Select * From tblTest"

        Set Rst = Conn.Execute(SQLQuery, , adCmdText)

        

        Set frmMain.DataGrid1.DataSource = Rst

            frmMain.DataGrid1.Refresh

    End Sub