通常情况下,使用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不同,红色的两句话一定要写,不然会报错!