UC知道VB数据存储与查询功能！
来源：百度知道 编辑：UC知道 时间：2024/05/18 14:24:07
我想编一段程序：
1.比如编号、货物名称、数量、单价、总价、收货人等等，我把所有这些信息输入后，点击一个输入按钮，然后它们就在下面的控件框内由一行显示出来，每次输入都要求显示在第一位，但是其它数据不删除，继续保留下来，要求可以存储很多这样的数据。
2.在查询功能中，我可以在TEXT控件中输入（编号、货物名称、数量、单价、总价、收货人）中的任何一项，都能找到对应的信息，还有在下拉列表中选择年份，月份，能够把对应的信息全部汇总起来。
求各位大虾知道一下
程序可行再加50分。谢谢了！
1.比如编号、货物名称、数量、单价、总价、收货人等等，我把所有这些信息输入后，点击一个输入按钮，然后它们就在下面的控件框内由一行显示出来，每次输入都要求显示在第一位，但是其它数据不删除，继续保留下来，要求可以存储很多这样的数据。
2.在查询功能中，我可以在TEXT控件中输入（编号、货物名称、数量、单价、总价、收货人）中的任何一项，都能找到对应的信息，还有在下拉列表中选择年份，月份，能够把对应的信息全部汇总起来。
求各位大虾知道一下
程序可行再加50分。谢谢了！
'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
修改按钮代码：
Di