作业帮一个vb小程序用来查询商品的价格,输入商品全称或部分名称显示出商品或类似商品的价格谢谢啦
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/08 05:46:09
一个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