请求VB的ADO控件和access问题！刚学的

来源：百度知道 编辑：UC知道 时间：2024/06/22 15:48:32
刚学会用ADO控件和access已经会连了，但是怎么能让按扭实现查询，删除，更新等呢？？？要用1个文本框和按扭，加控件实现！！

'1.引用ado 工程_引用_Microsoft ActiveX Date Objects 2.7 Library
'2.建立数据库和各字段
如数据库名：data.mdb， 表名：mydb，字段名：货物、价格
'3.例子：
定义数据库, 在模块里加入代码:
Public con As New Connection

在form_load里加上代码,连接数据库
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False;"

添加按钮代码：
If MsgBox("确实要添加吗?", vbOKCancel) = vbCancel Then Exit Sub
con.Execute "insert into mydb(货物,价格) values ('" & Text1.Text & "','" & Text2.Text & "')"
MsgBox "添加成功!"

查询按钮代码：
Dim rst As Recordset
Set rst = con.Execute("select * from mydb where 货物like '%" & Text1.Text & "%'")
Text2.Text = ""
Do While Not rst.EOF '对表中每一行执行一次:
Text2 = Text2.Text & rst!价格 & vbCrLf
rst.MoveNext
Loop

修改按钮代码：
Dim rst As Recordset