SQL数据库名为CZ
控件名DATACOMBO1
我ADODB把查询结果集合在了DB.
Dim conn As New ADODB.Connection
Dim db As New ADODB.Recordset
Dim com As New ADODB.Command
Dim mmm As String
Dim sql As String
mmm = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=boos1;Data Source=BENQ1"
conn.ConnectionString = mmm
conn.Open mmm
sql = "select * from CZ where 车站代码='" & xxx & "' " 'XXX是我要查询的变量
db.CursorLocation = adUseClient
db.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not db.EOF = True Then
'这里我不会写怎么让DATACOMBO1的下拉列表显示DB的内容
End If
Close db
Close conn
Set db = Nothing
Set conn = Nothing
请高手指点

DATACOMBO1是一个什么控件？？

如果DATACOMBO1是象gridgold一样的话。
你就用　set datacombo1.datasource=db
如果datacombo1象listview 一样，你可以用
datacombo1.additem db.field(索引号)

Set DataCombo1.DataSource = Recordset
Set DataCombo1.RowSource = Recordset
DataCombo1.ListField = "Col_Name"

多谢.我去试试,
datacombo 是在部件里添加的!!

板主.我是新手.你写的我看不懂.Set DataCombo1.RowSource = Recordset ( Recordset表示什么 )
DataCombo1.ListField = "Col_Name" ("Col_Name"表示什么)
我知道ROWSOURCE 是数据源,listfield是显示下拉列表数据

麻烦各位了.帮帮我吧

你看你发上来的代码哪里有RecordSet那RecordSet就表示什么.
代码不是你自己写的吧?
如果是,那不可能不知道什么叫RecordSet
如果不是.那我没有话说了.

虽然没解决问题.不过还是很感谢

If Not db.EOF = True Then
'这里我不会写怎么让DATACOMBO1的下拉列表显示DB的内容
End If
把上面那段改成下面的就可以了
Set DataCombo1.RowSource = db
DataCombo1.ListField = "车站代码"

[此贴子已经被作者于2007-10-12 17:31:08编辑过]

Set Me.DataCombo1.RowSource = rec
Me.DataCombo1.ListField = rec.Fields("BugContext").Name