براي بازيابي اطلاعات يك جدول از پايگاه داده ميشه از خود شي 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
