VB用adodc连接数据库后如何使combox控件下拉菜单显示某一字段内容?
我用的是access数据库,用的ADODC连接,想让combox控件显示数据库中某一表格的人员名单,求助!...
我用的是access数据库,用的ADODC连接,想让combox控件显示数据库中某一表格的人员名单,求助!
展开
2个回答
展开全部
先连接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
这样就可以了
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
这样就可以了
展开全部
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
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
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询