vba资料库存取关键技术(免费)﹐欢迎下载

《vba资料库存取关键技术(免费)﹐欢迎下载》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA数据库存取关键程序代码目录1.將資料表所有紀錄跑完一圈，並針對每一筆記錄欄位來修改或查詢22.觀念：如何寫程式碼來讀出某一資料表的全部資料，並做計算33.查詢『某一筆紀錄』的關鍵程式碼44.以關鍵字的方式查詢『某些筆紀錄』的關鍵程式碼55.修改某一筆記錄的關鍵程式碼66.刪除某一筆記錄的關鍵程式碼77.觀念：如何寫程式碼來讀出某一資料表的全部資料，並做計算8将数据表所有纪录跑完一圈，并针对每一笔记录字段来修改或查询'连结资料表DimFxAsADODB.RecordsetSetFx=NewADODB.

2、RecordsetFx.Open"数据表名称",CurrentProject.Connection,,adLockOptimistic'将数据表所有纪录跑完一圈，进行运算DoWhileNotFx.EOFFx("字段1")=Fx("字段2")+Fx("字段3")Fx.MoveNextLoop'显示：计算完成MsgBox("计算完成!")1.观念：如何写程序代码来读出某一数据表的全部数据，并做计算(1).比较：n前面：是在窗体中，利用已经读取数据表的纪录→用已知栏未来做计算n现在：是还没读进数据表→要靠自己写

3、程序代码将数据表读进来(2).观念：nRecordset是ADO(ActiveXDataObjects)技术中最常用的对象n使用Recordset对象可以用来引用数据表的字段数据(3).步骤1：先要开启数据表语法范例：nDimfxAsADODB.Recordset//宣告fx为Recordset对象型态nSetfx=NewADODB.Recordset//产生一个ADO对象实体给fxnfx.Open“基本数据”,CurrentProject.Connection,adOpenStatic,adLockOp

4、timistic//将邮政编码数据表打开，以便读取数据表的字段数据(4).步骤2：读取字段中的数据内容nfx(“平均成绩”)nfx(“上机考”)nfx(“期中考”)nfx(“期末考”)(5).步骤3：移动纪录位置指令nfx.MoveFirst→移到第一笔记录nfx.MoveNext→移到下一笔记录nfx.MoveLast→移到最后一笔记录nfx.MovePrevious→移到上一笔记录nfx.EOF→超过数据表的纪录(6).步骤4：Recordset对象的Open方法nFx.Open数据来源，数据链路，指

5、针型态，锁定方式，选择n其中，锁定方式的参数有4种模式²adLockReadOnly：只读²adLockPessimistic：悲观性锁定²adLockOptimistic：乐观性锁定²adLockBatchOptimistic：乐观性批次锁定n当要将数据写回索引用的数据表→使用adLockOptimistic模式查询『某一笔纪录』的关键程序代码'宣告变量Dimdbs,rsAsVariantDimSqlStrAsString'建立数据库对象（使用目前数据库）Setdbs=CurrentDb'开启数据表，并

6、进行SQL语法查询'SqlStr="Select*from资料表wherename='jack'"SqlStr="select*from数据表名称where字段='test'"Setrs=dbs.openrecordset(SqlStr)'设定目前窗体的数据来源为Me.RecordSource=SqlStr'关闭数据库对象dbs.Close以关键词的方式查询『某些笔纪录』的关键程序代码'宣告变量Dimdbs,rsAsVariantDimSqlStrAsString'建立数据库对象（使用目前数据库）Setd

7、bs=CurrentDb'开启数据表，并进行SQL语法查询'SqlStr="Select*from资料表wherenamelike'*jack*'"SqlStr="select*from数据表where字段like'*"&Me![text1]&"*'"Setrs=dbs.openrecordset(SqlStr)'设定目前窗体的数据来源为Me.RecordSource=SqlStr'关闭数据库对象dbs.Close修改某一笔记录的关键程序代码'宣告变量Dimdbs,rsAsVariantDimSqlStr

8、AsString'建立数据库对象（使用目前数据库）Setdbs=CurrentDb'开启数据表，并进行SQL语法SqlStr="Update资料表setname='jack',chi=90whereidno='C90001'"'执行修改的指令dbs.Execute(SqlStr)'修改过后，让这个窗体重新执行一次Me.Requery'关闭数据库对象dbs.Close'显示修改完成的讯息MsgBox("已经修改完毕")删除某一笔