善于combox控件问题。

Question

如果把COMBOX控件的值表连接为一个表中某的字段的值。
在输入时直接选择就行。

Answer 1

Public Sub BindDataToCombox(Byval strSql As String,objS As Object)
     Dim objRs As Adodb.Recordset     Set objRs=objCon.Execute(strSql)
     Do Until objRs.Eof=True         
         objS.Add objRs.Fields(0).Value
         objRs.MoveNext
     Loop
End Sub

Answer 2

dim conn As New ADODB.Connection
dim rst As New ADODB.Recordset
dim sql As String, cn As String
Private Sub Form_Load()
   cn = "dsn=mis;uid=sa;pwd=;"
   conn.Open cnIf rst.State Then rst.Close
sql = "select 要显示的字段 from 表 where 条件
rst.Open sql, conn, adOpenKeyset, adLockPessimistic
    Do While rst.EOF = False
    Combo1.AddItem rst!要显示的字段
    rst.MoveNext
    Loop
end sub

Answer 3

直接设置属性就可以，不过不是用combox控件了，
因该是DBcombox控件，不知道记错没有。

Answer 4

QY3000(剑魔の独孤秦)说的对，应该用dbcombox,直接与数据库连接，使用很方便

Answer 5

dbcombox在工具栏中没有怎么办?

Answer 6

1.可以用企业版控件
2.可以添加控件 microsoft datalist controls 6.0
就可以得到datacombo