Question

VB用adodc连接数据库后如何使combox控件下拉菜单显示某一字段内容？

我用的是access数据库，用的ADODC连接，想让combox控件显示数据库中某一表格的人员名单，求助！

Answer 1

先连接ACCESS,砸个Combo设置属性?
Private Sub Form_load()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS路径"
Adodc1.RecordSource="Select Distinct 字段 From 表 Where 条件表达式"
Adodc1.Refresh
' //设置连接数据库,查询一个字段就够了,因为要避免他重复出现
While NOT Adodc1.RecordSet.EOF
' //循环遍历数据库,排除异常
Combo1.AddItem Adodc1.RecordSet.Fields("字段")
' //给下拉列表字段
End With
End Sub
这样就可以了

Answer 2

Imports System.Data.OleDb

Dim constr, sql As String
constr= "provider= microsoft.jet.oledb.4.0; data source= " & Application.StartupPath & "\数据库名.mdb" ''' 该数据库文件放在bin文件夹中
Dim con As New OleDbConnection(constr)
sql = " select * from 表名"

''以下可以采用两种方法
''''' 方法一
Dim ada As New OleDbDataAdapter(sql, con)
Dim ds As New DataSet

ada.Fill(ds, "表名")
DataGrid1.DataSource = ds.Tables("表品")
ComboBox1.DataSource = ds
ComboBox1.DisplayMember = "表名.字段名"

''' 方法二
dim com As New OleDbCommand(sql,con)
Dim dr As OleDbDataReader
con.open()
dr = com.ExecuteReader
While dr.Read
ComboBox1.Items.Add(dr.Item("字段名"))
End While
dr.Close()
con.Close()

ComboBox1.SelectedIndex = 0