一个vb小程序用来查询商品的价格,输入商品全称或部分名称显示出商品或类似商品的价格谢谢啦
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 06:40:17
![一个vb小程序用来查询商品的价格,输入商品全称或部分名称显示出商品或类似商品的价格谢谢啦](/uploads/image/z/10333453-13-3.jpg?t=%E4%B8%80%E4%B8%AAvb%E5%B0%8F%E7%A8%8B%E5%BA%8F%E7%94%A8%E6%9D%A5%E6%9F%A5%E8%AF%A2%E5%95%86%E5%93%81%E7%9A%84%E4%BB%B7%E6%A0%BC%2C%E8%BE%93%E5%85%A5%E5%95%86%E5%93%81%E5%85%A8%E7%A7%B0%E6%88%96%E9%83%A8%E5%88%86%E5%90%8D%E7%A7%B0%E6%98%BE%E7%A4%BA%E5%87%BA%E5%95%86%E5%93%81%E6%88%96%E7%B1%BB%E4%BC%BC%E5%95%86%E5%93%81%E7%9A%84%E4%BB%B7%E6%A0%BC%E8%B0%A2%E8%B0%A2%E5%95%A6)
一个vb小程序用来查询商品的价格,输入商品全称或部分名称显示出商品或类似商品的价格谢谢啦
一个vb小程序
用来查询商品的价格,输入商品全称或部分名称显示出商品或类似商品的价格谢谢啦
一个vb小程序用来查询商品的价格,输入商品全称或部分名称显示出商品或类似商品的价格谢谢啦
你可以试一下
Public access As New ADODB.Connection
Public res As New ADODB.Recordset
Private Sub Command1_Click()
Dim str As String
Dim sql As String
str = Text1.Text
res.Close
sql = "SELECT * FROM ziliao where 商品名 like '%" & Text1 & "%' ORDER BY 编号"
res.Open sql, access, 1, 3
Set DataGrid1.DataSource = res
End Sub
Private Sub Form_Load()
m = 0
If Dir(App.Path + "\资料.mdb") <> "" Then
access.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
+ " Data Source=" + App.Path + "\资料.mdb; "
access.Open
Set res.ActiveConnection = access '设置rs1的ActiveConnection属性,指定与其关联的数据库连接
res.CursorLocation = adUseClient '设置游标类型
res.CursorType = adOpenDynamic '设置动态游标
res.Open "SELECT * FROM ziliao ORDER BY 编号", access, 1, 3 '打开记录集,将从表Departments中读取的结果集保存到记录集res中
DataGrid1.Refresh '刷新表格
Set DataGrid1.DataSource = res '将DataSource连接到数据库
res.MoveFirst
Else
MsgBox "找不到数据库"
End If
End Sub