怎么样才能够任意打开一个数据库里的某一个表

Question

Set db = OpenDatabase(Cmdlg.filename)
Adodc1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Cmdlg.filename & ";Persist Security Info=False"
Adodc1.RecordSource = "sjjg"
Set DataGrid1.DataSource = Adodc1
在上面的语句中 我写了一个已知的特定表 能否把adodc1.recordsource="sjjg"这句话的sjjg表设成任意表呀 如cmdlg.filename之类的可变变量
因为上面是我写在"打开数据表"中的按钮里的内容！我有急用 谢谢帮忙！

Answer 1

dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.connectionstring=" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Cmdlg.filename & ";Persist Security Info=False"
cn.open
rs.activeconnection=cn
rs.CursorType=adOpenStatic
rs.source=text1.text
rs.open
Set DataGrid1.DataSource = rs

Answer 2

如果你用SQL Server可以获得数据库中所有表的名称
Access不行

Answer 3

先建立一个连接对象哈，然后，就可根据这个对象任意做库中的所有表的任意操作哈
SQL Server 2000我常这样用哈

Answer 4

我用datagrid1.datasource=rs这样好象不能显示出记录集 不知道为什么？但一些资料上也都用这句来显示的。

Answer 5

datagrid的数据源必须是客户端游标

Answer 6

openschema可以得到表的名字，SQL Server下面做过，Access，没试过，openschema用法看帮助喽

Answer 7

试了一下，Access支持的，用这个代码可以取到库里的表的名字，注释的那段是都能取到的信息，表名字能取到，其他不是问题吧
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
conn.Open "dsn=a"
Set rst = conn.OpenSchema(adSchemaTables)
'For i = 0 To rst.Fields.Count - 1
'    Debug.Print rst.Fields(i).Name
'Next
Do While Not rst.EOF
Debug.Print rst.Fields("table_name")
rst.MoveNext
Loop

Answer 8

打开VISDATA.vbp（vb6帮助附带的），打开Query.frm窗体，学习一下，DAO就可搞定。