要命问题！大家帮帮我~~~

Question

首先从数据库里取出要显示的内容，返回一个recordset名为rst
然后
COMBOBOX.clear
while not rst.eof 
COMBOBOX.add rst("列名"）
rst.movenext
wend

Answer 1

这也要命？ dim rs as new adodb.recordset
 rs.open "select COMBO_DATA from COMBOS",cn,1,3
 while not rs.eof 
  combo1.additem rs!COMBO_DATA
  rs.movenext
 wend

Answer 2

怎么说呢！！我必须要把取得的纪录放在COM里！在用属性把得到的纪录写到客户端！

Answer 3

试试这个：'连接数据库
Public Function Get_data(ByVal Sql_str As String) As Recordset
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strcnn As String
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    Set Get_data = rs    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenStatic
    rs.Open Sql_str, con, adOpenDynamic, adLockOptimistic
    Set Get_data = rs
    Set con = Nothing
    Set rs = Nothing
End Functionprivate sub Fill_combo()
Dim res As ADODB.Recordset
dim n as integer
Set res = New ADODB.Recordset
combo1.clear
res=get_data("select field1 from table ")
if not(res.bof or res.eof) then
   for n=1 to res.recordcount  
      combo1.additem res.fields(0)
      res.movenext
   next
end ifend sub在form_load事件里调用Fill_combo就OK了