VB6.0中如何从已生成的DataGrid1表中根据控件Combo1下拉框中的字段约束查询,并显示在DataGrid1中
查询按钮的代码如下;PrivateSubCommand2_Click()'查询按钮单机事件Adodc1.ConnectionString="Provider=Micros...
查询按钮的代码如下;
Private Sub Command2_Click()
'查询按钮单机事件
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bike.mdb;Persist Security Info=False"
Adodc1.Visible = False
Adodc1.RecordSource = "select * from b1 where( 品牌=Combo1.List(Combo1.ListIndex))"
Adodc1.Refresh
End Sub
现在的查询按钮在运行时,不报错,也不显示任何查询内容。DataGrid1中还是 展开
Private Sub Command2_Click()
'查询按钮单机事件
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bike.mdb;Persist Security Info=False"
Adodc1.Visible = False
Adodc1.RecordSource = "select * from b1 where( 品牌=Combo1.List(Combo1.ListIndex))"
Adodc1.Refresh
End Sub
现在的查询按钮在运行时,不报错,也不显示任何查询内容。DataGrid1中还是 展开
1个回答
展开全部
亲 我又来了 需要重新载入窗体一下。还有要注意一下初始化时所用的"select * from b1 where( 品牌=Combo1.List(Combo1.ListIndex))"
不然等你单击之后两个同时存在那就不知道效果怎么样了
按照你上面的说法应该要重新加载一次窗体 。
不然等你单击之后两个同时存在那就不知道效果怎么样了
按照你上面的说法应该要重新加载一次窗体 。
更多追问追答
追问
怎么重新加载窗体,能帮忙修改一下我的代码嘛?
追答
Unload Me
Load Me
Me.Show
Load Me
在单击事件加入试试 我VB菜鸟来的 不过前段事件刚刚好做了一个类似的 所以只能大概讲讲思路
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询