Set db=ws.OpenDatabase(数据库的地址与文件名) ' 打开数据库
Set rs=db.OpenRecordSet(表名、查询名或SQL语句) ' 打开记录集
ppt课件 ACCESS实例教程 9
Do While not rs.EOF ' 循环遍历整个记录集直至记录集末尾
……
' 对字段的各种操作
Access实例教程
ppt课件
1
ACCESS实例教程
——数据库编程(第9章)
ppt课件
2
本章要点: 1,用ADO访问数据库 2,用DAO访问数据库 3,程序运行错误处理
ppt课件 ACCESS实例教程 3
9.1 VBA数据库访问接口
VBA数据库访问接口是指VBA与后台数据库的连接部分, 也就是VBA与Access数据库连接的方法。
ppt课件 ACCESS实例教程 22
(5)转到窗体视图,如果输入的编号与表中的编号有重复,单 击命令按钮后显示消息框,输入的信息不能追加到表中。
mandType=查询类型
'指定命令对象的查询类型
mandText=查询字符串
'建立命令对象的查询字符串
rs. Open cm, 其他参数
'打开记录集
do while not rs.EOF
'循环开始
……
'对字段的各种操作
rs.movenext
'记录指针移到下一条
loop
'返回到循环开始处
作区和打开数据库两条语句用下面一条语句代替:
Set db = CurrentDb()
该语句是Access的VBA给DAO提供的数据库打开快捷方式。