vb连接ACCESS数据库实例

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。