vb中combobox控件如何显示Access数据库指定字段的内容。
- 资源分享、学习交流
vb中combobox控件如何显示Access数据库指定字段的内容。
vb中combobox控件如何显示Access数据库指定字段的内容。你能用VB将表中的所有用户名读出吧DimRasrecordset,Iaslong,CaslongsetR=currentdb.openrecoreset(Select用户名From用户信息;)ifr.eofthenmsgbox没有可用的用户elser.movefirstr.movelastc=r.recordcountr.movefirstfori=1toccombo1.addr.field(用户名).valuer.movenextnextendif
思路很不错，加油！
其他回答 (1)
高峰会直睦地睦睦睦睦地睦睦
相关知识等待您来回答
该问题来自：紫枫俊影社区，专业资源分享、学习交流平台！提供各类资源、程序源码、教程、图片、电影、网站模板等编程领域专家在vb中根据指定的查询条件查询ACCESS数据库中符合条件的记录，查询结果在LISTLIEW控件中显示。需要详细代_百度知道
在vb中根据指定的查询条件查询ACCESS数据库中符合条件的记录，查询结果在LISTLIEW控件中显示。需要详细代
查询条件可以只满足其中一条，或两条都满足。
hiphotos://a.jpg" esrc="/zhidao/wh%3D600%2C800/sign=6ebdeee4c85af/ac6eddc451da81cbcdef.baidu://a.hiphotos.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="/zhidao/pic/item/ac6eddc451da81cbcdef.baidu<a href="/zhidao/wh%3D450%2C600/sign=480b6afd374f/ac6eddc451da81cbcdef.baidu
ListItems.EOF
rs!班级itm.SubItems(2) = rs.Add
itm.SubItems(1) = rs!班级itm.SubItems(1) = rs.ListItems!所在系部
itmDo While Not rs.Add
Set itm = ListView1!所在系部
itm!学号 rs.SubItems(2) = rs.Text = rs.Text = rs.MoveNextLoop把 rs.MoveNext Set itm = ListView1!学号
Loop改成Do While Not rs
其他类似问题
按默认排序
其他2条回答
0&上面一句是查询用的.movenext listview1.哪有这样的事..text & &select * from [student] where [系]=&#39.;& & text2.files (&quot,杂给你详细.text & &&quot.都不知道你的那些控件名称?;& & text1.下面一句是把查出来的记录写以LIST中的..?sql=&quot.eof rs.&quot..&#39?;&#39;&#39.详细代码自己写; and [年级]=&#39;&#39,给你一个提示吧
输入框：Text1、Text2控件，查询结果显示在LISTVIEW中，数据库中的标明是：学生信息表。查询控件是Cmd1控件。本人刚学VB实在不会写，希望可以帮帮忙，万分感谢。
sql=&select * from [学生信息表] where [系]=&#39;& & text1.text & &&#39;& and [年级]=&#39;& & text2.text & &&#39;&
If Combo1.Text && && And Text1.Text = && Then
SQL = &select * from 表3：学生基本信息表 where 所在系部=&#39; & & Trim(Combo1.Text) & & &#39; &
Set rs = db.OpenRecordset(SQL)Do While Not rs.EOF
rs.MoveNext Set itm = ListView1.ListItems.Add
itm.Text = rs!所在系部
itm.SubItems(1) = rs!班级itm.SubItems(2) = rs!学号
LoopEnd If错误：itm.Text = rs!所在系部，无当前记录
If Trim(cobname.Text) = &admin& And Trim(Txtsec.Text) = &admin& Then
MsgBox &当前以管理员模式进入软件.& & vbCrLf & &请在用户操作里注册新用户或进行其它操作!&, vbInformation, &-提 示-&
way = rs.Fields(&skinway&)
SkinH_Attach
SkinH_AttachEx App.Path & way, &&
Call closers
Unload frmlogo
frmmain.Show这是我的一段登陆代码,,你参考下.
我不需要登陆代码，需要的是查询数据的代码。
举一反三..你的意思没有给我说明白.所以我没有办法按你的意思,,,把代码完完全全,正正确确的写出来.
Dim conn As ADODB.Connection
&#39;定义连接对象Dim rs As ADODB.Recordset
&#39;定义记录集对象实例化:Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset打开连接:conn.Open &Provider=SQLOLEDB.1;Password=123456;Persist Security Info=TUser ID=Initial Catalog=检测中心计算机维修耗材统计系统;Data Source=ZHBI007&#92;JCZX&rs.Open &select * from IP地址 where 单位 = &#39;& & Trim(Text1.Text) & &&#39;&, conn, adOpenKeyset, adLockOptimistic&#39;最后就是你说的把“产品名称” 显示到combox中了 While rs.EOF = False
Combo1.AddItem rs.Fields(&IP地址&)
rs.MoveNext Wend
您可能关注的推广回答者：
access数据库的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB对ACCESS进行多条件查询
[问题点数：40分]
VB对ACCESS进行多条件查询
[问题点数：40分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
2010年 总版技术专家分年内排行榜第二
2009年 总版技术专家分年内排行榜第三
本帖子已过去太久远了，不再提供回复功能。查看: 3099|回复: 3|
在线时间101 小时经验18 威望0 性别保密最后登录注册时间阅读权限20UID1097636积分69帖子精华0分享0
EH初级, 积分 69, 距离下一级还需 281 积分
积分排行3000+帖子精华0微积分0
我用vb制作一窗体，窗体中有一个combo控件，五个text控件
窗体运行时，将access数据库中record表的学生编号增加到combo下拉框中，供选择，我要实现的功能是鼠标选择combo数据时，其他text的值按照combo值进行相应变化。现在下拉框数据应经有了，可是text数据不知怎样显示。请问combo_dropdown（）怎么写，谢谢！！！！！！！
Private Sub Form_Load()
& &Me.Left = 0
& &Me.Top = 0
& &Set db = DBEngine.Workspaces(0).OpenDatabase(App.path + &\student.mdb&)&&'打开数据库
& &Set rs = db.OpenRecordset(&select * from record&)&&'打开记录集
& &rs.MoveFirst
& && &Do While Not rs.EOF
& && && &Combo1.AddItem rs.Fields(0)
& && && &rs.MoveNext
& &&&Combo1.ListIndex = 0
Private Sub Combo1_DropDown()
[ 本帖最后由 hljadbc2010 于
15:44 编辑 ]
在线时间901 小时经验2101 威望0 性别男最后登录注册时间阅读权限70UID493843积分2201帖子精华0分享0
EH铁杆, 积分 2201, 距离下一级还需 999 积分
积分排行466帖子精华0微积分0
用Combo1_Change事件咯，大致如下：
Set rs = db.OpenRecordset(&select * from record where 学生编号=&& combo1.text &&&)
text = rs.Fields(***)
如来说世界非世界是名世界
在线时间41 小时经验63 威望0 性别男最后登录注册时间阅读权限20UID434984积分63帖子精华0分享0
EH初级, 积分 63, 距离下一级还需 287 积分
积分排行3000+帖子精华0微积分0
Form_Load()最后需要rs.close
Private Sub Combo1_Click()
& && &Set rs = db.OpenRecordset(&select * from record where 编号='& & combo1.text & &'&)
& && &if rs.recordcount&0 then
& && &&&text1=iif(isnull(rs.Fields(1)),&&,rs.Fields(1))
& && &&&text2=iif(isnull(rs.Fields(2)),&&,rs.Fields(2))
& && &&&……
& && & text1=&&
& && & text2=&&
& && & ……
& & end if
& & rs.close
在线时间101 小时经验18 威望0 性别保密最后登录注册时间阅读权限20UID1097636积分69帖子精华0分享0
EH初级, 积分 69, 距离下一级还需 281 积分
积分排行3000+帖子精华0微积分0
求助中。。。。
非常感谢两位的帮助，我还有问题是：1、在窗体录入数据，并将数据追加到该表中（表中字段较多，200多个字段）如何操作？
2、将窗体中显示的数据记录从数据库表中删除该条记录的代码如何编写？
[ 本帖最后由 hljadbc2010 于
21:14 编辑 ]
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&vb中combobox控件如何显示Access数据库指定字段的内容。_百度知道
vb中combobox控件如何显示Access数据库指定字段的内容。
openrecoreset(Select用户名From用户信息vb中combobox控件如何显示Access数据库指定字段的内容.field(用户名).eofthenmsgbox没有可用的用户elser.movefirstr.movelastc=r,CaslongsetR=currentdb.movefirstfori=1toccombo1.addr.)ifr,Iaslong。你能用VB将表中的所有用户名读出吧DimRasrecordset.recordcountr
提问者采纳
查看原帖&&gt思路很不错
其他类似问题
access数据库的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}