vb中combo的下拉内容

来源：百度知道 编辑：UC知道 时间：2024/05/26 00:37:10
现在我要做一个VB的查询系统，要求最后的图表按选择时间段来显示，数据都是访问数据库得来的，现在问题是要用两个combo来显示时间段，怎么把数据库中的时间全部显示在combo的下拉列表里供选择？代码怎么弄，请大虾们帮帮我

Private Sub GetData()
Dim I As Integer
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
RS.ActiveConnection = "Driver={SQL Server};Server=ServerName;Database=DBName"
RS.Open "Select * From TBName", , adOpenStatic, adLockOptimistic
Combo1.Clear
If RS.RecordCount > 0 Then
RS.MoveFirst
For I = 1 To RS.RecordCount
Combo1.AddItem RS.Fields(FieldName), I - 1
RS.MoveNext
Next I
End If
Combo1.Refresh
RS.Close
Set RS = Nothing
End Sub

Dim rs As New ADODB.Recordset
set rs=sqlfind("select * from 表名") 语句视情况而定.sqlfind是一个
已定义好的执行函数
rs.MoveFirst
Do While Not rs.EOF
Combo.AddItem (rs.Fields("日期字段"))
rs.MoveNext
loop
这样应该可以达到你要的效果吧.