Question

vb怎么连接access？怎么用vb从数据库中调出数据？

我知道一两句话可能说不清楚，能不能介绍一点比较好的这方面的参考书给我?或者哪里有类似的实例也可以。
我是初学者，不要太复杂就好～谢谢。

Answer 1

方法1，
建立一个模块
将工程的启动设置为 SUB MAIN
在模块里写下面代码
Public db As Database
Public rs As Recordset
Sub main()
set db=db.opendatabase("数据库路径"<建议用相对路径--就是把数据库文件和工程文件放在同一目录下--相对路径就是APP.PATH+"数据库名带后缀">)
第一启动窗体<比如：form1>.show
end sub
以后在其他窗体中如果要调用数据库只用在窗体中写代码
set rs=openrecordset(<可以是数据库的表--如"student",也可以是查询语句--如"select* form student">)
这时数据库的内容都存在FILE集合里
比方说set rs=openrecordset("select* form student")
rs.file(0)就是SQL语句查询结果的第一列
rs.files就是整个结果
使用text1.text=rs.file(0)就可以把文本框于查询结果帮定起来
如果要对数据库进行修这时用以下代码：
db.Execute （<SQL语句--如"insert into student(sno,sname) value("","")">)
方法2，
工程--部件--选择microsoft data bound grid control 5.0
然后在窗体中添加左边工具栏的 DATA 和DBGRID 控件
选择DBGRID 将属性DATASOURCE 设置为DATA控件的名字（如DATA1）
然后选择DATA 将属性CONNECT设置为ACCESSS 2000
设置DATABASENAME 选择数据库的存放路径
最后设置RECORDSET 为需要连接的表的名字
运行就可以看到 DATAGRID中显示了数据库的信息

你研究一下。如果不明白，再问我。

Answer 2

Dim conn As new ADODB.Connection
Dim rs As new ADODB.Recordset
UserCheck=False
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;
Data Source="&App.Path&"\Book.mdb;Persist Security Info=False"
conn.Open

Answer 3

新华书店里介绍VB的书都有的。网上也有许多实例下载。