怎样在运行时用代码打开mdb数据库后能在DataGrid或MSFlexGrid控件中显示出来急急急。。。。。

Question

我的数据库中有三个表，表名我知道，现在就是不知道当我要打开另一个表时如何关掉原表。而打开另一个表时怎样将数据读入MSFlexGrid或DataGrid 请将完整原代码写上谢谢！！！

Answer 1

Dim Cnn As ADODB.Connection
    Dim Rst As ADODB.Recordset
    
    Set Cnn = New ADODB.Connection
    Cnn.CursorLocation = adUseClient
    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
    
    Set Rst = New ADODB.Recordset
    Rst.CursorLocation = adUseClient
    Rst.Open "SELECT * FROM orders", Cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
    
    Me.EditGridCtrl1.DataSource = Rst

Answer 2

（平凡的世界）你能否说明一下 最后一句？和Rst.CursorLocation=adUseClinet 是什么意思？
我刚才运行的时候提示 editgridctrll.datasource 未找到方法或数据成员？我在线等

Answer 3

我的表格名 JH、CH两个表格 密码是123

Answer 4

搞定上面的代码不行 还是说说如何用data 或ado打开有密码的数据库吧，也是知道表名和上面条件一样，如何关一个表打开另一个表谁回答对了就给分谢谢大家

Answer 5

set Me.EditGridCtrl1.DataSource = Rst

Answer 6

Rst.CursorLocation=adUseClinet 这是说是用客户端游标，
 Me.EditGridCtrl1.DataSource = Rst这局有误
对，对象的操作必须使用SET，楼上该的正确

Answer 7

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VBGXB1.MDB;Persist Security Info=False"
Adodc1.RecordSource = "select * from 表名"
DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Adodc1.Refresh