关于VB中Combo控件获得SQL数据库中某一列全部内容

[Crazy_Idea]

大家好!我想查询一个数据库中的tbl_Employees中的EmployeeUserName列中所有内容为VB中的Combo控件的List值.该如何操作啊.求代码!!!!多谢大家

[shanshuobsj]

'把tbl_Employees中的EmployeeUserName列查询结果放入RS记录集中
If Not rs.EOF And Not rs.BOF Then
Set Datacombo.DataSource = rs
Set Datacombo.RowSource = rs
Datacombo.ListField = rs.Fields(.....).name
Datacombo.BoundColumn = rs.Fields(.......).name
Datacombo.BoundText = rs.Fields(.......).name
End If

[Crazy_Idea]

抱歉!我是ComboBox控件.在VB中使用的
Set Datacombo.RowSource = rs
Datacombo.ListField = rs.Fields(.....).name
Datacombo.BoundColumn = rs.Fields(.......).name
Datacombo.BoundText = rs.Fields(.......).name
这些属性ComboBox都没有.
还有"rs.Fields(.......).name"中的(.......)需要填写什么内容啊?

[shanshuobsj]

抱歉，我给的是DataCombo控件rs.Fields(EmployeeUserName).name

[shanshuobsj]

'如何是ComboBox控件
Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Dim conn As String

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Persist Security Info=False"
sql = "select EmployeeUserName from tbl_Employees"
rst.Open sql, con, adOpenKeyset, adLockOptimistic

Combo1.Clear
Do While Not rst.EOF
Combo1.AddItem (Trim(rst(0)))
rst.MoveNext
Loop

rst.Close
con.Close

End Sub

[老跑]

看你们急的
连数据库是什么都不知道
就急着往上面贴代码
呵呵!

[hexinchun148]

While Not rst.EOF
Combo1.AddItem (Trim(rst("EmployeeUserName").value))
rst.MoveNext
wend

[feixiangzaici]

我的例子：
从表 orderno 取 OrderNo
Setsql = "select * from orderr"
Set SetRec = executesql(Setsql, Setstr)'调用executesql函数
Do Until SetRec.EOF
'向 Com_Order 控件中添加字段
Com_Order.AddItem SetRec.Fields(1)
SetRec.MoveNext
Loop
SetRec.Close
Set SetRec = Nothing

[guduyidao]

Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.Click
Dim SqlAdp1 As SqlDataAdapter
Dim SqlCommString As String
SqlCommString = "select * from JGoodsUnit01 " 'Selected
SqlAdp1 = New SqlDataAdapter(SqlCommString, ConnectionString)
Dim Dataset1 As New DataSet
SqlAdp1.Fill(Dataset1, "tbl_Employees")
ComboBox3.Items.Clear()
Dim i As Integer
For i = 0 To Dataset1.Tables("tbl_Employees").Rows.Count - 1
ComboBox3.Items.Add(Dataset1.Tables(0).Rows(i).Item("EmployeeUserName").ToString)

Next i
End Sub