vb combo与数据库文件关联

答案:4 悬赏:80 手机版

解决时间 2021-02-08 09:33

提问者网友：姑娘长的好罪过
2021-02-07 14:53

如题。小弟做了一个类似同学录的软件

想建一个combo，目的是显示access数据库中的姓名。这样可以一目了然的看到所有的名字。

应该是Combo1.DataSource = ？？

还是什么的。。。

有点儿搞不懂，望高手援助。

建立一个datacombo控件然后该怎么做呢？
cwa9958 麻烦详细说一下好么？

最佳答案

五星知识达人网友：西岸风
2021-02-07 16:32

用的是VB.NET吗？代码如下：

ComBo.DataSource = DataTable.Tables("TableName")
ComBo.DisplayMember = "DisplayField"
ComBo.ValueMember = "ValueField"

什么年代，别再用VB6了。

既然楼主和cwa9958都热心于VB6，用datacombo，那就用ADO举例如下吧：

dim conn as adodb.connection
conn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = '" & App.Path & "\xxx.mdb'"

dim rst as adodb.recordset
rst.open "select * from names",conn,1,3

DataCombo1.RowSource = names
datacombo1.ListField = "name_field"

在工具栏加入Datacombo的方法是点击“工程”-“部件”-“Microsoft Data List Controls 6.0”

本人级别低，请楼主给点分吧。

全部回答

1楼网友：雪起风沙痕
2021-02-07 18:43

想要在combobox下拉表中显示内容,必须自己写程序,读取所有的姓名,

然后用一个循环additem加入下拉列表.

基本的过程是

定义connection

定义recorderset

打开rs

循环

加入combobox

如果不想编这些,

可以使用activex中的

,然后画个datacombo

然后指定rowsource与listfield

2楼网友：渊鱼
2021-02-07 18:38

你会用adodc控件不？这个是vb6.0最好用的一个控件~ 你把条件著名好~ 例如： xxWs = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\（access名）.mdb;Persist Security Info=False;Jet OLEDB:Database Password=密码" Adodc1.ConnectionString = xxWs Adodc1.RecordSource = "select * from 表名" Adodc1.Refresh Combo1.DataSource = adodc1.Recordset

3楼网友：野味小生
2021-02-07 17:59

不可以这样做，只能一条条添加进combo1里面。或者用别的控件，如datacombo控件不同意Taylor1973 的观点，vb6也有优点，用net做的程序不能再xp系统简单运行的，还要先安装net运行库，麻烦

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息