关于vb调用数据库的问题请教高手！

来源：百度知道 编辑：UC知道 时间：2024/06/06 07:52:13
我有两个combo控件，一个数据库表格 大致如下：
1000 500
1000 450
700 200
700 150
我的目的是在第一个combo控件的下拉相中可以选择第一列非重复数字，如果重复只显示一个，当我选择1000后，在combo2的下拉项中仅仅有500 和 450 两项，请问高手如何实现？

其实这就是一个查询，你可以分几步做：
1、将数据表中第一列的非重复记录加载到combo1中；
dim cn as adodb.connection
sub getData1()
dim rs as adodb.recordset
dim i as integer
dim tsql as string
set cn=new adodb.connection
cn.open "数据库连接"
tsql="select distinct f1 from tabelname order by f1"
set rs=new adodb.recordset
rs.open tsql,cn,1,3
if rs.recourdcount>0 then
rs.movefirst
combo1.clear
for i=1 to rs.recordcount
combo1.additem rs.fields(0),i-1
rs.movenext
next i
end if
set rs=nothing
set cn=nothing
end sub
2、选择combo1触发combo2的内容
sub getData2()
dim v as string
dim tsql as string
v=combo1.seltext
tsql="select f2 from tablename where f1='"+v+"'"
set rs=new adodb.recordset
rs.open tsql,cn,1,3
if rs.recordcount>0 then
rs.movefirst
combo2.clear
for i=1 to rs.recordcount