示例,假设 Combo1.Text = "aaaaa" Text1.Text = "bbbbb"则语句等同于select * from ruku where (ruku.aaaaa like 'bbbbb*')这是个SQL查询语句,从ruku表中返回所有字段ruku.aaaaa中包含bbbbb*的所有记录
Private Sub Command1_Click() Data1.RecordSource = "select * from ruku where (ruku." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")" Data1.Refresh End Sub Private Sub Command2_Click() On Error Resume Next Data1.Recordset.Delete Data1.Refresh End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Activate() Combo1.AddItem ("药品编号") Combo1.AddItem ("药品名称") Combo1.AddItem ("批号") Combo1.ListIndex = 0 End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & "\医院药品进销存系统.mdb" End Sub 这是所有的查询代码,不知道为什么,药品名称和批号能用,单独药品编号不能用,一查就出错
Combo1.Text = "aaaaa"
Text1.Text = "bbbbb"则语句等同于select * from ruku where (ruku.aaaaa like 'bbbbb*')这是个SQL查询语句,从ruku表中返回所有字段ruku.aaaaa中包含bbbbb*的所有记录
Data1.RecordSource = "select * from ruku where (ruku." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data1.Refresh
End Sub Private Sub Command2_Click()
On Error Resume Next
Data1.Recordset.Delete
Data1.Refresh End Sub Private Sub Command3_Click()
Unload Me
End Sub Private Sub Form_Activate()
Combo1.AddItem ("药品编号")
Combo1.AddItem ("药品名称")
Combo1.AddItem ("批号")
Combo1.ListIndex = 0
End Sub Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\医院药品进销存系统.mdb"
End Sub
这是所有的查询代码,不知道为什么,药品名称和批号能用,单独药品编号不能用,一查就出错
这是错误提示信息,大家看看该怎么改呢
这是输出结果,再按回车时,提示,缺少case