最简单的VB打开ACCESS数据库的程序

Question

VB有一个FORM1的窗体 一个COMMAND1的控件 我只需要用VB能够调出一个ACCESS数据库 存储路径是 D:\我的文档 名字是实验室排课.mdb
很简单的一个东西 希望有心人 给个详细具体 最好带有解释的代码 方便的话留个QQ吧 因为 最近我会很需要VB和ACCESS这两方面的知识 谢谢了
好吧 可能是我表达没清楚哈 我要的效果是 点击COMMAND1控件 后 会调出数据库 再说直白点 就是 我要做这个查询功能
点击查询 就能看到类容 有高手 请加QQ 49809172

Answer 1

以下代码用到两个控件:(1)Adodc控件（2）DataGrid控件
Private Sub Command1_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& "D:\我的文档" _
& "\实验室排课.mdb;Persist Security Info=False"
.CommandType = adCmdUnknown
.RecordSource = "你的查询（select）语句"
.Refresh
End With

With DataGrid1 '用网格控件显示数据库中的数据
Set .DataSource = Adodc1.Recordset
.Refresh
End With
End Sub

Answer 2

VB已经提供最简单打开ACCESS数据库的方法了。

只要拽入“Data”控件到窗体里
Data1.DatabaseName = "c:\test.mdb" '载入数据库文件
用控件的方法和属性就能访问数据库的表、字段和数据内容了。

拽入一个Text控件，还可以把数据显示内容直接绑定到控件上。
似乎没有比这个更简单的方法了，不用掌握SQL语句，直接都是指令，呵呵。

Answer 3

dim cn as new adodb.connection '定义ado对象的连接
dim rs as new adodb.recordset ’定义ado对象的记录源
cn.open("dirver={microsoft access driver (*.mdb)};dbq=D:\我的文档 名字是实验室排课.mdb")
‘以上，打开数据库连接
rs.open("select * from 数据表")，, cn, adOpenKeyset, adLockOptimistic
’以上，打开数据库的具体某个表的某些数据
set datagrid1.datasource=rs ‘把数据源连接给datagrid1，让其显示