vb连接ACCESS数据库实例

vb连接ACCESS数据库实例

下面给你一个用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.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password="

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

rs.Open strSQL, conn, 3, 3

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

rs.Close

conn.Close

'首先，工具->引用->选中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.0;Persist Security Info=False;Data

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