用vb调用access数据库

1、Access 数据库中也可以直接建立“查询”，一般的需求都能满足。

2、如果确定要用VB程序建立数据录入，修改，查询等功能的话，要给出具体的需求才可以

帮你做...

3、我的百度网盘上有个 vb+Access 数据库的例子，userInfo_20141109073224.rar 你可以下载

看看...

地址：http://pan.baidu.com/disk/home?fr=ibaidu#path=%252Fapps%252F%25E7%2599%25BE%25E5%25BA%25A6%25E7%259F%25A5%25E9%2581%2593

'首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library

'必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可）

Public Conn As New ADODB.Connection

Public Rs As New ADODB.Recordset

Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关

'连接数据库的代码段

Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读）

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Persist Security Info=FalseData Source=" &App.Path &"\test.mdb"

'自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨

If Rs.State <>adStateClosed Then Rs.Close

Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层面积, 欠费明细, 欠费金额 FROM data WHERE 首层面积 is not null and 非经营层面积 is not null", Conn, adOpenKeyset, adLockPessimistic

Cnt = Rs.RecordCount

'关闭数据库链接（一般放到子过程结束处，关闭数据库链接）

Rs.Close

Conn.Close

Set Rs = Nothing

Set Conn = Nothing

'添加、修改、删除、更新数据（都以Conn.Execute后带SQL语句来实现对数据库的查询 *** 作）

'Conn.Execute "update data set 上月读数 = 本月读数"

’Rs.MoveNext '数据游标转到数据库下一行

'实例：

For i = 1 To Cnt

DoEvents

Conn.Execute "insert into data (ID,铺名,上月读数,本月读数,实用度数,铺位数) values(" &Rs("ID") &",'" &Rs("铺名") &"'," &Rs("上月读数") &"," &Rs("本月读数") &"," &Rs("实用度数") &"," &Rs("铺位数") &")"

Rs.MoveNext

Next

对于没有VB运行库的机器，必须注册VB运行库，程序中的代码不需要改动。

-----------------------------------

链接数据库的方法比较多，看你采用什么方法链接了，：

1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997?Access 2000?Access 2003?有没有加密？等等等等问题，首先确定这些问题，才能.....

下面给你一个用ADO的代码链接的实例：（ACCESS 2003)

首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象：

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

其中conn是数据库链接对象，rs是数据记录集对象

那么，下面就是利用SQL语句链接数据库了：

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=F:\library\1.mdbJet OLEDB:Database Password="

strSQL = "SELECT * FROM 数据库中的表"

rs.Open strSQL, conn, 3, 3

至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据 *** 作了，注意，在数据库 *** 作完成后，千万别忘记关闭记录集和数据库链接对象：

rs.Close

conn.Close

---