Private Sub Form_Activate()
Combo1.AddItem ("名称")
Combo1.AddItem ("类别")
Combo1.AddItem ("供应商")
Combo1.ListIndex = 0
DataGrid1.Refresh
Me.Refresh
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\likangyaodian.mdb"
End SubPrivate Sub Command1_Click()
Adodc1.RecordSource = "select * from 进货表 where 进货表." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34)
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub数据库中有数据,为什么没有查询结果,谁帮我一下!!
Combo1.AddItem ("名称")
Combo1.AddItem ("类别")
Combo1.AddItem ("供应商")
Combo1.ListIndex = 0
DataGrid1.Refresh
Me.Refresh
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\likangyaodian.mdb"
End SubPrivate Sub Command1_Click()
Adodc1.RecordSource = "select * from 进货表 where 进货表." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34)
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub数据库中有数据,为什么没有查询结果,谁帮我一下!!
解决方案 »
- 讨论:错误集中处理sub 写入log,获取出错sub的名称!?
- 请问VB怎么实现MSHFlexGrid支持ctrl+c、ctrl+v
- 如何获得不同操作系统下IE缓存目录?
- 马上要学VB的菜鸟有问题要请教
- 动态将某控件加到Picture控件中
- 请问那里有关于用VB开发COM/DCOM组件的资料
- 用VB做一个无接口的ocx或dll控件,嵌入到网页中,如何得到此IEwindow对象?
- 关于datagrid使用中的问题
- 100分,紧急求助,WinSock控件,网络传输的问题
- 我在注册表中看到键值:"C:\PROGRAM FILES\WINAMP\WINAMP.EXE" /BOOKMARK "%1"
- VB自动填写JS网页的有关问题
- 如何将后面几位数据截取出来 ?
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