شي Command كارش اجرا كردن فرامين SQL يا اجرا كردن روال هاي ذخيره شده (S.P) هستش. در كل براي انجام هر كاري استفاده از اين روش توصيه ميشه چون
- بر اساس يك الگوريتم كار مي كنه
- منظم هستش
- خواناي بالايي داره
با شي Command در پست هاي قبلي آشنا شديم و توضيح اضافه اي رو نمي دم.
مثال:
Public Sub LoadAll_2()
Set Conn = New ADODB.Connection
Set Cmd = New ADODB.Command
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"
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