VB通過ADODB與ACCESS數(shù)據(jù)交換實(shí)例

1、VB與ACCESS數(shù)據(jù)交換實(shí)例準(zhǔn)備步驟：1）建立一個(gè)簡單的ACESS數(shù)據(jù)庫，命名為student,創(chuàng)建一個(gè)表：Chinese,字段：ID,姓名，成績2）打開VB6.0,創(chuàng)建一個(gè)窗口，添加引用:添加部件：MSHFIexGrid設(shè)計(jì)窗口如下圖所示：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刷新紀(jì)錄PrivateSubCommand3_Click()reshowEndSub連接ACCESSPrivateSubForm_Load()reshowText1.Text=Text2.Text=Text3.Text=Text4.Text=EndSub添加紀(jì)錄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