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

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

شي Command كارش اجرا كردن فرامين SQL يا اجرا كردن روال هاي ذخيره شده (S.P) هستش. در كل براي انجام هر كاري استفاده از اين روش توصيه ميشه چون

1. بر اساس يك الگوريتم كار مي كنه
2. منظم هستش
3. خواناي بالايي داره

با شي 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

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

بعضي ها هم دوست دارن كه مستقيم Recordset خودشون رو Open كنن و اونجوري اطلاعات رو بازيابي كنن:

    Public Sub LoadAll_3()

        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"

        

        Rst.ActiveConnection = Conn

        Rst.CursorType = adOpenKeyset

        Rst.CursorLocation = adUseClient

        Rst.Open SQLQuery

        

        Set frmMain.DataGrid1.DataSource = Rst

            frmMain.DataGrid1.Refresh

    End Sub