VBA+SQL+Access:访问数据表的第二种方式DAO |
您所在的位置:网站首页 › vba运行多句sql › 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不同,红色的两句话一定要写,不然会报错!
|
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |