求VB 用ADODB连接ACCESS数据库实例

Question

连接+添加、修改、删除、更新（数据集）
QQ - 87362501
Email - [email protected]

Answer 1

'首先，工具->引用->选中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

Answer 2

点我的名字 个人介绍里有我的网盘地址

在vb里找sample.rar

那个有select 和 update add和del 和update是一样的！~

Answer 3

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cj.mdb;Persist Security Info=False"
'新建一个数据库联接
If cn.State = 0 Then cn.Open
'如果关闭,就打开
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockBatchOptimistic

sql = "select * from qzcj "
'数据库的表
If rs.State = adStateOpen Then rs.Close
If rs.State = adStateClosed Then rs.Open sql, , , adCmdText

Set DataGrid1.DataSource = rs