Question

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

我有两个combo控件，一个数据库表格 大致如下：
1000 500
1000 450
700 200
700 150
我的目的是在第一个combo控件的下拉相中可以选择第一列非重复数字，如果重复只显示一个，当我选择1000后，在combo2的下拉项中仅仅有500 和 450 两项，请问高手如何实现？

Answer 1

其实这就是一个查询，你可以分几步做：
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
combo2.additem rs.fields(0),i-1
rs.movenext
next i
end if
set rs=nothing
end sub

Answer 2

将"select * from users where username='"+text1.text+"'"
这句执行的结果放在一个recordset中，
然后判断，recordset的行数，如果为0就表示不重复，接着做你要做的，
如果不为0就表示重复了，给出提示
在第二个combo2事件中直接用"select * from users where username='"+combo1.text+"'"

Answer 3

这个有点麻烦
第一列的时候，你要把combo里的数值与表格对比，有重复的跳过
第二列的时候，只要把where 第一列=combo1.text 的数据用for 列出来