VB通过ADODB与ACCESS数据交换实例

1、VB与ACCESS数据交换实例准备步骤：1）建立一个简单的ACESS数据库，命名为student,创建一个表：Chinese,字段：ID,姓名，成绩2）打开VB6.0,创建一个窗口，添加引用:添加部件：MSHFIexGrid设计窗口如下图所示：3编写代码：OptionExplicitDimconnAsADODB.ConnectionDimrsAsADODB.RecordsetDimaAsString子程序PrivateSubreshow()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.ConnectionString=Provi

2、der=Microsoft.Jet.OLEDB.4.0;&DataSource=&App.Path&student.mdb;&PersistSecurityInfo=Falseconn.Openrs.Openselect*fromChinese,conn,adOpenKeyset,adLockReadOnlySetMSHFlexGrid1.DataSource=rsMSHFlexGrid1.Sort=3rs.Closeconn.CloseEndSub删除记录PrivateSubCommand1_Click()Setconn=NewADODB.ConnectionSetrs=NewADODB.R

3、ecordsetconn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&DataSource=&App.Path&student.mdb;&PersistSecurityInfo=Falseconn.Openrs.Openselect*fromChinesewhereID=&Val(Text4.Text),conn,adOpenKeyset,adLockOptimistic上句表示查询语句ID=Val(Text4.Text)rs.Deleters.UpdatereshowText4.Text=rs.Closeconn.CloseEndSu

4、b修改记录PrivateSubCommand2_Click()conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&DataSource=&App.Path&student.mdb;&PersistSecurityInfo=Falseconn.Openrs.Openselect*fromChinesewhereID=&Val(Text1.Text),conn,adOpenKeyset,adLockOptimisticrs.Fields(0).Value=Val(Text1.Text)rs.Fields(1).Value=Text2.Te

5、xtrs.Fields(2).Value=Text3.Textrs.UpdateMsgBox记录修改成功！reshowEndSub刷新纪录PrivateSubCommand3_Click()reshowEndSub连接ACCESSPrivateSubForm_Load()reshowText1.Text=Text2.Text=Text3.Text=Text4.Text=EndSub添加纪录PrivateSubADD_Click()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.ConnectionString=Provider=M

6、icrosoft.Jet.OLEDB.4.0;&DataSource=&App.Path&student.mdb;&PersistSecurityInfo=Falseconn.Openrs.Openselect*fromChinese,conn,adOpenKeyset,adLockOptimistic添加记录rs.AddNewText1.SetFocusIfText1.Text=ThenMsgBox不能为空！Text1.SetFocusExitSubElsers.Fields(0).Value=Val(Text1.Text)rs.Fields(1).Value=Text2.Textrs.Fields(2