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

我用的是access数据库,用的ADODC连接,想让combox控件显示数据库中某一表格的人员名单,求助!... 我用的是access数据库,用的ADODC连接,想让combox控件显示数据库中某一表格的人员名单,求助! 展开
 我来答
创作者zUzVB1Sl31
2012-09-08 · 编程类资料、英语学习资料
创作者zUzVB1Sl31
采纳数:1331 获赞数:5974

向TA提问 私信TA
展开全部
先连接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
这样就可以了
百度网友26ea681
2012-09-21 · 超过34用户采纳过TA的回答
知道答主
回答量:86
采纳率:0%
帮助的人:47.8万
展开全部
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
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式