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

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

بعضي ها هم دوست دارن كه مستقيم 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