VB+Access对数据库进行添加删除项目(可编辑修改word)

附件2：VB6+Access编程中的数据库操作方法例1：首先，在工程里引用microsoftactivexdataobjects2.7libraryDimcnAsNewADODB.Connection,rs1AsNewADODB.Recordset,sqlAsString'在通用声明里定义，其中cn是连接对象，rs1是集，sql是查询语句cn.Open"provider=microsoft.jet.oledb.4.0;datasource="+App.Path+"\数据库名.mdb"+""sql="select*from名"rs1.Opensql,cnrs1.MoveFirstDoWhileNotrs1.EOFCombo1.AddItemrs1("字段名")rs1.MoveNextLooprs1.Close例2：一个用户登录系统'准备工作:数据库D:\Mydb.mdb数据库中,建数据表:UserInfo,数据表中,建字段:User,Pass,并添加一条记录'点工程->引用选中MicrosoftActivexDataObjects2.7Library'控件:添加一个文本框,一个命令按钮PrivateSubCommand1_Click()DimsAsStringDimConnAsNewADODB.ConnectionDimRsAsNewADODB.RecordsetConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\mydb.mdb"'请将数据库名及路径换成你的实际数据库名及路径DimUserNameAsStringDimPasswordAsStrings=Text1.TextIfs="1"Ors="2"ThenUserName=InputBox("请输入用户名")Password=InputBox("请输入用户密码")sql="Select*From[UserInfo]whereUser='"&UserName&"'"'UserInfo请换成你的实际数据表名Rs.Opensql,Conn,1,3IfRs.EOFThen1MsgBox"没有找到此用户"ElseIfRs("Password")=PasswordThenIfs="1"ThenMsgBox"123"ElseIfs="2"ThenMsgBox"456"EndIfElseMsgBox"密码错误"EndIfEndIfEndIfEndSub上面的例子实现了查询如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用Conn.ExecuteSQL就可以了,如:添加的:SQL="InsertInto[UserInfo](User,Password)Values('aaaa','1234')"Conn.ExecuteSQL'执行后,就添加了一条记录删除:SQL="DeleteFrom[UserInfo]WhereUser='aaaa'"Conn.ExecuteSQL'删除用户名为aaaa的用户记录更新:SQL="Update[UserInfo]SetPassword='abcdefg'WhereUser='aaaa'"Conn.ExecuteSQL'执行后,修改用户aaaa的密码为abcdefg以上只是示例,在实际使用过程中,可以将一些用控件输入等方式进行,这样就有很大的灵活性了例3：PrivateSubForm_Load()DimcnnAsADODB.ConnectionDimmy_recordsetAsADODB.RecordsetDimconnect_stringAsStringDimstatestringAsStringSetcnn=NewADODB.ConnectionSetmy_recordset=NewADODB.Recordset'连接Access数据库2connect_string="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\aaa.mdb;PersistSecurityInfo=False"cnn.Openconnect_stringSelectCasecnn.StateCaseadStateClosestatestring="adStateClosed"CaseadStateOpenstatestring="adStateOpen"EndSelect'显示连接的状态MsgBox"连接成功！",,statestring'对wzdz表进行查询操作my_recordset.Open"Select*fromwzdz",cnnmy_recordset.CloseEndSub例4：DimstrConnAsString'连接字符串DimstrSqlAsString'SQL命令DimconnAsADODB.Connection'数据源DimAdoAsADODB.Recordset'记录集strConn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\aaa.mdb;PersistSecurityInfo=False"strSql="SELECT*FROMbbb"Setconn=NewADODB.Connectionconn.ConnectionString=strConnconn.OpenVB中怎么对数据库进行添加删除修改的操作2009-02-2818:58SK_PhiLChanG|分类：数据库DB|浏览3085次我用的是DATA控件我已经把VB和ACCESS2000连接上了，VB也能正常访问到数据了我希望可以加几的按钮，拥有添加，删除，修改，查询的功能（相关的数据改动就在原本浏览数据的TEXT中录入就行了）分享到：3PrivateSubCommand1_Click()Fori=0To5Text1(i).Text=""NextiAdodc1.RecordSource="select*from"&s1&"orderby编号"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveLastText1(0).Text="G"+Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")),4))+1),"0000")ElseText1(0).Text="G0001"EndIfEndSubPrivateSubCommand2_Click()IfAdodc1.Recordset.EOF=FalseThenc=MsgBox("您确认要删除该记录吗？",vbOKCancel,"删除提示信息")Ifc=vbOKThenAdodc1.Recordset.DeleteAdodc1.RecordSource="select*from人员表"Adodc1.RefreshEndIfElseMsgBox"当前数据库中没有可删除的数据记录",vbOKOnly,"提示信息"EndIfEndSubPrivateSubCommand3_Click()IfText1(0).Text=""OrText1(1).Text=""ThenMsgBox"请选择需要改动的记录信息！",vbOKOnly,"错误提示"Elsec=MsgBox("确定要修改该记录吗？",vbOKCancel,"提示信息")Ifc=vbOKThen'如果确认修改的话进行修改操作IfText1(1).Text=""ThenMsgBox"姓名不能为空值!",48,"修改信息提示"Else'连接所要修改的数据库con.Open"Provider=SQLOLEDB.1;Password=2752;PersistSecurityInfo=True;UserID=sa;InitialCatalog=sample;DataSource=JAMLEEPC"4'开始修改数据库con.Execute("UPDATE"&s1&"SET姓名='"&Text1(1).Text&"',年龄="&Text1(2).Text&",学历='"&Text1(3).Text&"',="&Text1(4).Text&",入学时间='"&Text1(5).Text&"'where编号='"&Trim(Text1(0))&"'")MsgBox"信息修改成功",64,"修改信息提示"con.CloseAdodc1.RecordSource="select*from人员表"Adodc1.RefreshEndIfEndIfEndIfEndSubPrivateSubCommand4_Click()Adodc1.RecordSource="select*from人员表where编号='"+Text1(0).Text+"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenMsgBox"该信息已存在，信息保存不成功",64,"保存信息提示"Elsecc=MsgBox("您确定要保存该信息吗？",33,"信息保存提示")Ifcc=vbOKThenIfText1(1).Text=""OrText1(2).Text=""OrText1(3).Text=""OrText1(4).Text=""OrText1(5).Text=""ThenMsgBox"请确认，人员的姓名、年龄、学历、年级和入学时间不能为空",48,"保存信息提示"Elsecon.Open"Provider=SQLOLEDB.1;Password=2752;PersistSecurityInfo=True;UserID=sa;InitialCatalog=sample;DataSource=JAMLEEPC"con.Execute("insertinto人员表values('"&Text1(0).Text&"','"&Text1(1).Text&"','"&Text1(2).Text&"','"&Text1(3).Text&"','"&Text1(4).Text&"','"&Text1(5).Text&"')")MsgBox"信息修改成功",64,"修改信息提示"con.CloseAdodc1.RecordSource="select*from人员表"Adodc1.RefreshEndIfElseEndIfEndIfSetDataGrid1.DataSource=Adodc15EndSub给你段代码参考下，这个就是添加，删除，修改的代码。不过我用的是SQL2000你要吧代码稍微修改一下的，呵呵，祝你成功！6