我发现VB6用DAO连接数据库比ADO速度差不多，WIN10

IPSC1978.GICP.NET

我发现VB6用DAO连接数据库比ADO速度差不多，WIN10 - 文章首页→返回版区

■标题:我发现VB6用DAO连接数据库比ADO速度差不多，WIN10

■作者:IPSC [2026/11/6 12:24:57]
VB6用ADO连接MDB数据库，用DAO也可以。

工程属性引用 Mierosoft DAO 3.6 Object Library

以下为语法：

[VB]
Dim allpic as integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = OpenDatabase(App.Path & "\123.mdb")
' 3. 打开记录集 (查询数据)
' dbOpenDynaset: 动态集，支持前后移动和更新，需要编辑时用这个
' dbOpenSnapshot: 快照，只读，速度更快
Set rs = db.OpenRecordset("SELECT footid FROM [allusers] WHERE footid=1 OR footid=2", dbOpenDynaset)
If Not (rs.EOF And rs.BOF) Then
' 3. 获取第一个字段的值 (即 COUNT(*) 的结果)
rs.MoveLast'要先MOVELAST不然得到统计数就是1
allpic = rs.RecordCount
Else
allpic = 0
End If

'如果要编辑，要先rs.edit
rs.edit
rs("name")="123" '也可以用 rs!name="123"
rs.update
rs.close
db.close'这也不能少

set rs=nothing
set db=nothing

[/VB]

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
68 毫秒 .