Question

vb6.0中怎么把查询到的内容显示到combo中

Answer 1

Private Sub DataCombo1_Click(Area As Integer)
Dim strQuery As String '声明变量，用来保存SQL语句字符串
'如果没有选择部分信息，则退出
If DataCombo1.Text = "" Then
Exit Sub
End If
'DataCombo1.BoundText是当前选择部门编号，
'以此编号设置SQL语句，读取此部门中的所有员工信息
strQuery = "Select * FROM Employees WHERE DepId = " _
+ DataCombo1.BoundText
'设置Adodc2的数据源，并刷新显示
With Adodc2
.RecordSource = strQuery
.Refresh
End With
End Sub

Private Sub Form_Load()
DataCombo1.Text = Adodc1.Recordset.Fields(1)
DataCombo1_Click (0)
End Sub
设置combo的以前属性:
1,BoundColumn属性一般设置成所查询表的主键,以便执行SQL语句
2,RowSource设置为ADODC1,其中ADODC1的connectstring属性为你所连接的数据源RecordSource设置为你连接的表的名字
3,ListField设置为combo中你所要显示内容所在列的列字段名
这样就能实现显示

Answer 2

Dim res as adodb.recordset
res.open "select * from txl where singer=周杰伦",conn,1,3
if res.recordcount=0 then exit sub
do while not res.eof=true
combo1.AddItem res.fields("歌曲")
res.movenext
loop
res.close

Answer 3

1,循环recordSet,然后combo.add

追问

还是不行啊。。。难道我真的太笨了啊！

追答

需要你自己查combo的方法