VB组合框和listbox的关联
两个组合框,一个list。一个组合框显示国家,一个显示省份,当选好国家之后另一个组合框的选项都变成这个国家的省份(这部分的代码已经提问过了,我也知道怎么做了)。下面是我要...
两个组合框,一个list。一个组合框显示国家,一个显示省份,当选好国家之后另一个组合框的选项都变成这个国家的省份(这部分的代码已经提问过了,我也知道怎么做了)。下面是我要提问的,如何实现选择省份之后,list能够显示该省份的人口,面积,GDP
这部分的资料存在access的表中。 展开
这部分的资料存在access的表中。 展开
2个回答
展开全部
先在主窗口上添加一个 Microsoft ADO Data Control 控件
Private Sub Combo1_Click()
Dim cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=access文件绝对路径;Persist Security Info=False"
Rs.Open "Select 人口,面积,GDP from 信息表 where 国家ID=" & l国家ID & " and 城市ID=" & l城市ID, cn
If Not Rs.EOF Then
List1.AddItem "人口:" & Rs!人口
List1.AddItem "面积:" & Rs!面积
List1.AddItem "GDP:" & Rs!GDP
End If
Rs.Close
cn.Close
Set cn = Nothing
End Sub
像l国家ID 和 l城市ID 这两个变量的值应该在你前面选择国家和省份的时候就得出来了的。
其他的SQL语句之内的东西,请按照你的数据库实际字段改改。
Private Sub Combo1_Click()
Dim cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=access文件绝对路径;Persist Security Info=False"
Rs.Open "Select 人口,面积,GDP from 信息表 where 国家ID=" & l国家ID & " and 城市ID=" & l城市ID, cn
If Not Rs.EOF Then
List1.AddItem "人口:" & Rs!人口
List1.AddItem "面积:" & Rs!面积
List1.AddItem "GDP:" & Rs!GDP
End If
Rs.Close
cn.Close
Set cn = Nothing
End Sub
像l国家ID 和 l城市ID 这两个变量的值应该在你前面选择国家和省份的时候就得出来了的。
其他的SQL语句之内的东西,请按照你的数据库实际字段改改。
2011-04-17
展开全部
再Select一次,放入到List中,不就行了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询