欢迎来到天天文库
浏览记录
ID:18153408
大小:89.50 KB
页数:8页
时间:2018-09-14
《vba资料库存取关键技术(免费)﹐欢迎下载》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、VBA数据库存取关键程序代码目录1.將資料表所有紀錄跑完一圈,並針對每一筆記錄欄位來修改或查詢22.觀念:如何寫程式碼來讀出某一資料表的全部資料,並做計算33.查詢『某一筆紀錄』的關鍵程式碼44.以關鍵字的方式查詢『某些筆紀錄』的關鍵程式碼55.修改某一筆記錄的關鍵程式碼66.刪除某一筆記錄的關鍵程式碼77.觀念:如何寫程式碼來讀出某一資料表的全部資料,並做計算8将数据表所有纪录跑完一圈,并针对每一笔记录字段来修改或查询'连结资料表DimFxAsADODB.RecordsetSetFx=NewADODB.RecordsetFx.Open"数据表名称",CurrentProje
2、ct.Connection,,adLockOptimistic'将数据表所有纪录跑完一圈,进行运算DoWhileNotFx.EOFFx("字段1")=Fx("字段2")+Fx("字段3")Fx.MoveNextLoop'显示:计算完成MsgBox("计算完成!")1.观念:如何写程序代码来读出某一数据表的全部数据,并做计算(1).比较:n前面:是在窗体中,利用已经读取数据表的纪录→用已知栏未来做计算n现在:是还没读进数据表→要靠自己写程序代码将数据表读进来(2).观念:nRecordset是ADO(ActiveXDataObjects)技术中最常用的对象n使用Recordse
3、t对象可以用来引用数据表的字段数据(3).步骤1:先要开启数据表语法范例:nDimfxAsADODB.Recordset//宣告fx为Recordset对象型态nSetfx=NewADODB.Recordset//产生一个ADO对象实体给fxnfx.Open“基本数据”,CurrentProject.Connection,adOpenStatic,adLockOptimistic//将邮政编码数据表打开,以便读取数据表的字段数据(4).步骤2:读取字段中的数据内容nfx(“平均成绩”)nfx(“上机考”)nfx(“期中考”)nfx(“期末考”)(5).步骤3:移动纪录位置指令
4、nfx.MoveFirst→移到第一笔记录nfx.MoveNext→移到下一笔记录nfx.MoveLast→移到最后一笔记录nfx.MovePrevious→移到上一笔记录nfx.EOF→超过数据表的纪录(6).步骤4:Recordset对象的Open方法nFx.Open数据来源,数据链路,指针型态,锁定方式,选择n其中,锁定方式的参数有4种模式²adLockReadOnly:只读²adLockPessimistic:悲观性锁定²adLockOptimistic:乐观性锁定²adLockBatchOptimistic:乐观性批次锁定n当要将数据写回索引用的数据表→使用adLo
5、ckOptimistic模式查询『某一笔纪录』的关键程序代码'宣告变量Dimdbs,rsAsVariantDimSqlStrAsString'建立数据库对象(使用目前数据库)Setdbs=CurrentDb'开启数据表,并进行SQL语法查询'SqlStr="Select*from资料表wherename='jack'"SqlStr="select*from数据表名称where字段='test'"Setrs=dbs.openrecordset(SqlStr)'设定目前窗体的数据来源为Me.RecordSource=SqlStr'关闭数据库对象dbs.Close以关键词的方式查询
6、『某些笔纪录』的关键程序代码'宣告变量Dimdbs,rsAsVariantDimSqlStrAsString'建立数据库对象(使用目前数据库)Setdbs=CurrentDb'开启数据表,并进行SQL语法查询'SqlStr="Select*from资料表wherenamelike'*jack*'"SqlStr="select*from数据表where字段like'*"&Me![text1]&"*'"Setrs=dbs.openrecordset(SqlStr)'设定目前窗体的数据来源为Me.RecordSource=SqlStr'关闭数据库对象dbs.Close修改某一笔记录
7、的关键程序代码'宣告变量Dimdbs,rsAsVariantDimSqlStrAsString'建立数据库对象(使用目前数据库)Setdbs=CurrentDb'开启数据表,并进行SQL语法SqlStr="Update资料表setname='jack',chi=90whereidno='C90001'"'执行修改的指令dbs.Execute(SqlStr)'修改过后,让这个窗体重新执行一次Me.Requery'关闭数据库对象dbs.Close'显示修改完成的讯息MsgBox("已经修改完毕")删除某一笔
此文档下载收益归作者所有