Private Sub Command9_Click(Index As Integer)
If Combo1 = "" Then
MsgBox "條件不能為空，請選擇一個條件", vbExclamation, "查詢"
Combo1.SetFocus
Exit Sub
Else
If Text1 = "" Then
MsgBox "條件的值不能為空，請輸入...", vbExclamation, "查詢"
Text1.SetFocus
Exit Sub
End If
End If
Cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\Data.mdb"
sq = "select * from POS資訊表 where " & Combo1.Text & "='" & Text1 & "'"
rs.Open sq, Cn, adOpenKeyset, adLockOptimistic
Form1.ListView1.ListItems.Clear '先清空表格里的資料
'清空_Click
If rs.RecordCount = 0 Then
MsgBox "沒有符合條件的資料", vbExclamation, "查詢"
Text1.SetFocus
On Error GoTo 100
Else
For i = 1 To rs.RecordCount
Set Fliv = Form1.ListView1.ListItems.Add()
Fliv.Text = rs.Fields("產品型號")
Fliv.SubItems(1) = rs.Fields("產品尺寸")
Fliv.SubItems(2) = rs.Fields("產品型別")
'此處可以添加要查詢的例
rs.MoveNext
Next i
End If
100:
rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing
End Sub
uj5u.com熱心網友回復：
sq = "select * from POS資訊表 where " & Combo1.Text & " like '%" & Text1 & "%'"uj5u.com熱心網友回復：
*對應%？對應_
用Like
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/122850.html