一個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