请教如何将数据库中的字段读到combo控件中让用户选择?

Question

1.用控件直接绑定，很多书上有讲
2.自编循环查询语句添加
  1)用“SELECT 字段 FROM 表名”查询到相应记录
  2）用“EOF”条件循环添加COMBO
3.如需细节，EMAIL给我吧，其实都差不多。
    

Answer 1

以下是我最近编的程序的一段代码，你参考一下    rst.Open sqlStr, cn
    cmbSeatID1.Clear
   
    i = 0
    '将座席号加入下拉列表1(忙)中
    While Not rst.EOF
        cmbSeatID1.AddItem rst("seatid"), i
        If rst("seatid") = CInt(BeListened) Then
            '缺省显示正在被监听的座席号
            cmbSeatID1.ListIndex = i
        End If
        rst.MoveNext
        i = i + 1
    Wend

Answer 2

这是我作的医院软件部分代码，根据实践感觉这样即简单效率又高（我是指vb+sqlserver时）。其中gconnect为全局adodb变量。
'取出收入方式代码、药房代码   '创建远程服务器连接
    Set gConnect = New Connection
    gConnect.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=yygl;Data Source=sqlbackup"
    gConnect.CursorLocation = adUseClient
    gConnect.CommandTimeout = 10
    gConnect.Open  '添加收费方式代码和名称
  rsSffs.Open "select * from g_sffsdm", gConnect, adOpenStatic, adLockUnspecified
  rsYf.Open "select * from g_yfdm", gConnect, adOpenStatic, adLockUnspecified
  rsSffs.MoveFirst
  Do While Not rsSffs.EOF
    Combo1(0).AddItem rsSffs!sffsdm & rsSffs!mc
    rsSffs.MoveNext
  Loop
  Set rsSffs = Nothing

Answer 3

如果你用VB+Access的话，参考以下代码：
set rs=mydb.openRecordSet("MyTable",dbopenSnapShot)
rs.moveLast
intRecCount=rs.count
rs.movefirst
for i=1 to intRecCount
   Combo1.AddItem("MyTable.Field1")
   rs.movenext
next i
  

Answer 4

    For i = 0 To rst.Fields.Count - 1
        Combo1.AddItem rst.Fields(i)
    Next
行吗？

Answer 5

哈，其实很简单，程序如下 COMBO1.ROWSOURCETYPE=1 &&将COMBO控件的数据源类型设为"值"
 COMBO1.ROWSOURCE=""
 USE <数据库名>
 FNS=""
 FOR I=1 TO <n> && n的值为数据库中的字段总数
  FNS=FIELDS(I)
  COMBO1.ROWSOURCE=COMBO1.ROWSOURCE+FNS+","
 ENDFOR