Private Sub Form_Activate()
Combo1.AddItem ("编号")
Combo1.AddItem ("名称")
Combo1.AddItem ("类别")
Combo1.AddItem ("供应商")
Combo1.ListIndex = 0
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\likangyaodian.mdb"
End Sub
Private Sub Command1_Click()
Data1.RecordSource = "select * from 进货表 where (进货表." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data1.Refresh
Set DataGrid1.DataSource = Data1
End Sub提示不可识别的数据库,我用的ACCESS 2003,是怎么回事,有明白的大侠请指教,小妹感激不尽!!thank you !
Combo1.AddItem ("编号")
Combo1.AddItem ("名称")
Combo1.AddItem ("类别")
Combo1.AddItem ("供应商")
Combo1.ListIndex = 0
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\likangyaodian.mdb"
End Sub
Private Sub Command1_Click()
Data1.RecordSource = "select * from 进货表 where (进货表." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data1.Refresh
Set DataGrid1.DataSource = Data1
End Sub提示不可识别的数据库,我用的ACCESS 2003,是怎么回事,有明白的大侠请指教,小妹感激不尽!!thank you !
Combo1.AddItem ("名称")
Combo1.AddItem ("类别")
Combo1.AddItem ("供应商")
Combo1.ListIndex = 0
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\likangyaodian.mdb"
End Sub
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 进货表 where 进货表." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34)
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub为什么没有查询结果呢,数据库中有记录啊!!
Private Sub Form_Activate()
Combo1.AddItem ("名称")
Combo1.AddItem ("类别")
Combo1.AddItem ("供应商")
Combo1.ListIndex = 0
End Sub
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\likangyaodian.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 进货表 where " & Combo1.Text & " like '%" & Trim(Text1.Text) & "%'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Activate()
Combo1.AddItem ("名称")
Combo1.AddItem ("类别")
Combo1.AddItem ("供应商")
Combo1.ListIndex = 0
End Sub
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\likangyaodian.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 进货表 where " & trim(Combo1.Text) & " like '%" & Trim(Text1.Text) & "%'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub