VBA+SQL+Access：访问数据表的第二种方式DAO

通常情况下，使用ADODB就可以满足物料管理的工作需要了，但是俗话说，技多不压身，另一种类似的数据库访问方式，也是比较容易理解的，那就是DAO。

Dim curDB As Database
Dim curRS As Recordset
Set curDB = CurrentDb

上面三句代码，可以获得当前Access数据库的控制权。

Tips: 申明变量时：Dim CurDB as DAO.database，DAO写不写好像都可以，但是方式一ADODB就不行。

常用语句：

CurDB.execute "SQL语句"可以实现对数据表的操作，比如：

1，CurDB.execute "insert into 发货表 (订单号) values ('" & 订单号.Value & "')"

往发货表新增一条记录。

2，CurDB.execute "update 客户表 set 信誉度=信誉度-1 where 客户名='WKC'"

更新客户表的数据

3，CurDB.execute "delete from 发货表 where 发货时间=(select max(发货时间) from 发货表)"

删除一条记录

处理Recordset：

同样的DAO也可以使用Recordset

str = "select * from 订单表"
Set curRS = curDB.OpenRecordset(str, dbOpenDynaset, dbSeeChanges, dbOptimistic）

普通情况下，SQL后面的参数可以不用写，简单点就是：

Set curRS = curDB.OpenRecordset(str)

1，修改表中的记录：

Do While Not curRS.EOF
    curRS.Edit
    curRS!产品数量 = curRS!产品数量 + 10
    curRS.Update
    curRS.MoveNext
Loop

2，向表格中新增一条记录：

curRS.AddNew
curRS!订单号 = "SGP"
curRS!订单时间 = #6/15/2021#
curRS.Update

注意：和ADODB不同，红色的两句话一定要写，不然会报错！