怎么编程直接将数据库ACCESS中的一个表显示出来啊？谢谢

[lijuan1215_2009]

点击一个按钮，直接显示出数据库中的一个表。

[getemail]

用DataGrid+ADO就可以

[getemail]

    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim SqlStr As String
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "Select * From 某个表"
    rst.CursorLocation = adUseClient
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源

[lijuan1215_2009]

VB6.0中需要有这些控件吗？需不需要另外添加啊

[getemail]

Ctrl+t找Microsoft DataGrid Control....
菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

[getemail]

LZ找不到了,顶一下

[lijuan1215_2009]

我不太明白 大胡子可不可以解释一下啊 我的数据库名字是SMSTEST.mdb,表的名字是send
要在object 里添加控件是吧 还要改他们的数据源

[of123]

1 添加一个 ADODC 控件
2 添加一个 DataGrid 控件
3 在DataGrid 控件的属性窗口中将 DataSource 属性通过下拉，选为 ADODC1
4 右键单击 ADODC1 控件空间，右键菜单中选“属性”，弹出对话框。在对话框中，首先创建连接字符串，在弹出的新对话框中选“提供程序”为 Microsoft Jet 4.0 .....，按“下一步”。按“……”按钮选择数据库。可以测试一下连接。确定。回到第一个对话框，在记录源标签页上，命令类型中选“2-adCmdTable”；在表和存储过程名中选中你的表。确定。

运行你的程序即可。

[getemail]

建议美女直接教ADODB而不是ADODC

[Quote=引用 6 楼 lijuan1215_2009 的回复:]
我不太明白 大胡子可不可以解释一下啊  我的数据库名字是SMSTEST.mdb,表的名字是send 
要在object 里添加控件是吧 还要改他们的数据源
[/Quote]

[getemail]

 Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim SqlStr As String
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SMSTEST.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "Select * From send"
    rst.CursorLocation = adUseClient
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源

[贝隆]

来一个纯代码的：http://download.csdn.net/source/1498324