2022年VB+Access对数据库进行添加删除项目 .pdf

1 附件 2：VB6+Access编程中的数据库操作方法例 1：首先，在工程里引用microsoft activex data objects 2.7 library Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String 在通用声明里定义，其中cn 是连接对象， rs1 是记录集， sql 是查询语句数据库名 .mdb + sql = select * from 表名 rs1.Open sql, cn rs1.MoveFirst Do While Not rs1.EOF Combo1.AddItem rs1(字段名 ) rs1.MoveNext Loop rs1.Close 例 2：一个用户登录系统准备工作 : 数据库D:Mydb.mdb 数据库中 ,建数据表 :UserInfo, 数据表中 ,建字段 :User,Password,并添加一条记录点工程 -引用选中Microsoft Activex Data Objects 2.7 Library 控件 :添加一个文本框,一个命令按钮Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:mydb.mdb 请将数据库名及路径换成你的实际数据库名及路径Dim UserName As String Dim Password As String s = Text1.Text If s = 1 Or s = 2 Then UserName = InputBox(请输入用户名 ) Password = InputBox(请输入用户密码) sql = Select * From UserInfo where User= & UserName & UserInfo 请换成你的实际数据表名名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 7 页 - - - - - - - - - 2 Rs.Open sql, Conn, 1, 3 If Rs.EOF Then MsgBox 没有找到此用户 Else If Rs(Password) = Password Then If s =1 Then MsgBox 123 ElseIf s = 2 Then MsgBox 456 End If Else MsgBox 密码错误 End If End If End If End Sub 上面的例子实现了查询如果是要添加,删除 ,更新等操作 ,只要编写相应的SQL 语句 ,再用Conn.Execute SQL 就可以了 ,如: 添加的 : SQL=Insert Into UserInfo(User,Password) Values(aaaa,1234) Conn.Execute SQL 执行后 ,就添加了一条记录删除 : SQL=Delete From UserInfo Where User=aaaa Conn.Execute SQL 删除用户名为aaaa 的用户记录更新 : SQL=Update UserInfo Set Password=abcdefg Where User=aaaa Conn.Execute SQL 执行后 ,修改用户 aaaa 的密码为abcdefg 以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了例 3：Private Sub Form_Load() Dim cnn As ADODB.Connection Dim my_recordset As ADODB.Recordset Dim connect_string As String Dim statestring As String Set cnn=New ADODB.Connection Set my_recordset=New ADODB.Recordset 连接 Access 数据库名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 7 页 - - - - - - - - - 3 connect_string=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & aaa.mdb;Persist Security Info=False cnn.Open connect_string Select Case cnn.State Case adStateClose statestring=adStateClosed Case adStateOpen statestring=adStateOpen End Select 显示连接的状态MsgBox 连接成功！ ,statestring 对 wzdz 表进行查询操作my_recordset.Open Select * from wzdz,cnn my_recordset.Close End Sub 例 4：Dim strConn As String 连接字符串Dim strSql As String SQL命令Dim conn As ADODB.Connection 数据源Dim Ado As ADODB.Recordset 记录集strConn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & aaa.mdb;Persist Security Info=False strSql = SELECT * FROM bbb Set conn = New ADODB.Connection conn.ConnectionString = strConn conn.Open VB 中怎么对数据库进行添加删除修改的操作2009-02-28 18:58SK_PhiLChanG| 分类：数据库DB | 浏览 3085 次我用的是DATA 控件我已经把VB 和 ACCESS 2000 连接上了， VB 也能正常访问到数据了我希望可以加几的按钮，拥有添加，删除，修改，查询的功能（相关的数据改动就在原本浏览数据的 TEXT 中录入就行了）分享到：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 7 页 - - - - - - - - - 4 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 7 页 - - - - - - - - - 5 Private Sub Command1_Click() For i = 0 To 5 Text1(i).Text = Next i Adodc1.RecordSource = select * from & s1 & order by 编号 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveLast Text1(0).Text = G + Format(Val(Right(Trim(Adodc1.Recordset.Fields(编号 ), 4) + 1),0000) Else Text1(0).Text = G0001 End If End Sub Private Sub Command2_Click() If Adodc1.Recordset.EOF = False Then c = MsgBox( 您确认要删除该记录吗？, vbOKCancel, 删除提示信息) If c = vbOK Then Adodc1.Recordset.Delete Adodc1.RecordSource = select * from 人员表 Adodc1.Refresh End If Else MsgBox 当前数据库中没有可删除的数据记录, vbOKOnly, 提示信息 End If End Sub Private Sub Command3_Click() If Text1(0).Text = Or Text1(1).Text = Then MsgBox 请选择需要改动的记录信息！, vbOKOnly, 错误提示 Else c = MsgBox( 确定要修改该记录吗？, vbOKCancel, 提示信息 ) If c = vbOK Then 如果确认修改的话进行修改操作If Text1(1).Text = Then MsgBox 姓名不能为空值!, 48, 修改信息提示 Else 连接所要修改的数据库con.Open Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 7 页 - - - - - - - - - 6 开始修改数据库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.Close Adodc1.RecordSource = select * from 人员表 Adodc1.Refresh End If End If End If End Sub Private Sub Command4_Click() Adodc1.RecordSource = select * from 人员表where 编号 = + Text1(0).Text + Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox 该信息已存在，信息保存不成功, 64, 保存信息提示 Else cc = MsgBox( 您确定要保存该信息吗？, 33, 信息保存提示 ) If cc = vbOK Then If Text1(1).Text = Or Text1(2).Text = Or Text1(3).Text = Or Text1(4).Text = Or Text1(5).Text = Then MsgBox 请确认，人员的姓名、年龄、学历、年级和入学时间不能为空, 48, 保存信息提示 Else con.Open Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC con.Execute (insert into 人员表values( & Text1(0).Text & , & Text1(1).Text & , & Text1(2).Text & , & Text1(3).Text & , & Text1(4).Text & , & Text1(5).Text & ) MsgBox 信息修改成功 , 64, 修改信息提示 con.Close Adodc1.RecordSource = select * from 人员表 Adodc1.Refresh End If Else End If End If Set DataGrid1.DataSource = Adodc1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 7 页 - - - - - - - - - 7 End Sub 给你段代码参考下，这个就是添加，删除，修改的代码。不过我用的是SQL2000 你要吧代码稍微修改一下的，呵呵，祝你成功！名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 7 页 - - - - - - - - -