中科新闻网2017年新词新语有哪些:VB程序问题2？修改注释====
来源：百度文库 编辑：中科新闻网 时间：2024/05/18 03:16:00
Dim db As Database
Dim rs As Recordset
Dim strsql As String ‘定义查询语句
strsql = "select * from 接警" ‘选取数据库中的记录
Set db = OpenDatabase(App.Path & "\dbnew.mdb") ‘打开数据库
Set rs = db.OpenRecordset(strsql) ‘查询记录集
Dim rs As Recordset
Dim strsql As String ‘定义查询语句
strsql = "select * from 接警" ‘选取数据库中的记录
Set db = OpenDatabase(App.Path & "\dbnew.mdb") ‘打开数据库
Set rs = db.OpenRecordset(strsql) ‘查询记录集
一般都使用ado技术,你这使用的是DAO,都忘记得差不多了.注释应该基本上是对的.