记录集读写技术.doc

《记录集读写技术.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第二讲：记录集读写技术1.程序界面F回Foral13回区1张飞21显示山东.济南军人下一条前一条添加2.数据表结构,自燃情况:表编号姓名年龄籍贯职业1张飞21山东.济南2李斯43山西.太原3李逵34山东.者岛4张学友34中国.香港5刘备66吉林.长春菜〔自动编号）03.代码DimcnAsADODB.ConncctionDimrsAsADODB.RecordsetDimstrAsString人客匪军政土手统歌总PrivateSubCommandl_Click()Setcn=NewADODB.Connec

2、tionSetrs=NewADODB.Recordsetstr="select*from自然情况''cn.Open,Provider=MicrosoftJeLOLEDB.4.0;DataSource=&App.Path&"databasekk.MDB;JetOLEDB:DatabasePassword=123n，需要要注意的是：，首先将没有设置密码的数据库通过ADODC进行连接，取得连接字符串，再将七JetOLEDB:DatabasePassword=123”连接在连接字符串后面，即可取得能够连接

3、带有密码的数据库的连接字符串。rs>Openstr,cn,adOpenKeyset,adLockBatchOptimisticTextLText=rs.Fields(l)Text2.Text=rs.Fields(2)Text3.Text=rs.Fields(3)Text4.Text=rs.Fields(4)EndSubPrivateSubCommand2_Click()rs.MoveNextIfrs.EOF<>TrueThenTextl.Text=rs.Fields(l)Text2.Text=rs.F

4、ields(2)Text3.Text=rs.Fields(3)Text4.Text=rs.Fields(4)Elsers.MoveLastTextl.Text=rs.Fields(l)Text2.Text=rs.Fields(2)Text3.Text=rs.Fields(3)Text4.Text=rs.Fields(4)EndIfEndSubPrivateSubCommand3_Click()rs.MovePreviousIfrs.BOF<>TrueThenTextl.Text=rs.Fields(l

5、)Text2.Text=rs.Fields(2)Text3.Text=rs.Fields(3)Text4.Text=rs.Fields(4)Elsers.MoveFirstTextl.Text=rs.Fields(l)Text2.Text=rs.Fields(2)Text3.Text=rs.Fields(3)Text4.Text=rs.Fields(4)EndIfEndSubPrivateSubCommand4_Click()rs.MoveLastrs.AddNewrs.Fields(l)=Textl

6、.Textrs.Fields(2)=Text2.Textrs.Fields(3)=Text3.Textrs.Fields(4)=Text4.Textrs.UpdateBatchTextl.Text=''''Text2.Text=Text3.Text=Text4.Text=EndSub