现有一Access数据库dataA,
包含姓名、学号、语文、数学、英语、物理等等成绩
每一列都是对应的值
现在想通过窗体1实现数据调用,有4个text,index值从2到10,分别对应学号语数外等等成绩,另有一个Combo,对应的是姓名,index值为1。想通过combo选择姓名,text里面显示对应姓名里面的值。其中数据库已经连接上,combo以及text已经对应了数据库里面的对应项Dim cnn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()
Dim i As Integer
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb;Persist Security Info=False"
rs.Open "dataA", cnn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
nums = rs.RecordCount
For i = 2 To 10
data(i) = rs.Fields(i) ‘text的index值对应数据库中的对应字段
Next i
For i = 1 To nums
Combo1.AddItem rs.Fields(1) ’combo调用第一个字段的值
rs.MoveNext
Next iEnd Sub上面的语句实现了下拉菜单显示字段1姓名的值,只是其他的text现在只能显示第一条记录对应的数值,现在希望通过下拉选择姓名能够出现对应学生的学号成绩等,显示在对应的text中,请问怎么实现。语句怎么写?我才学VB,很多都不懂,希望大家能帮帮我
包含姓名、学号、语文、数学、英语、物理等等成绩
每一列都是对应的值
现在想通过窗体1实现数据调用,有4个text,index值从2到10,分别对应学号语数外等等成绩,另有一个Combo,对应的是姓名,index值为1。想通过combo选择姓名,text里面显示对应姓名里面的值。其中数据库已经连接上,combo以及text已经对应了数据库里面的对应项Dim cnn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()
Dim i As Integer
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb;Persist Security Info=False"
rs.Open "dataA", cnn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
nums = rs.RecordCount
For i = 2 To 10
data(i) = rs.Fields(i) ‘text的index值对应数据库中的对应字段
Next i
For i = 1 To nums
Combo1.AddItem rs.Fields(1) ’combo调用第一个字段的值
rs.MoveNext
Next iEnd Sub上面的语句实现了下拉菜单显示字段1姓名的值,只是其他的text现在只能显示第一条记录对应的数值,现在希望通过下拉选择姓名能够出现对应学生的学号成绩等,显示在对应的text中,请问怎么实现。语句怎么写?我才学VB,很多都不懂,希望大家能帮帮我
解决方案 »
- 一个关于SPREAD6.0的问题
- 怎样在vb中打开一个Excel,并任意操纵它??
- 如何用本地组件调用远程服务器上的组件?
- Space$() chr$均报无此方法或对像,已经重装过VB
- 如何在vb中显示DWG文件的略缩图
- 如何在循环中调用窗体,在调用窗体中完成操作以后,继续调用该窗体直到循环结束
- 数据库赋值问题!!!!
- 关于M VBS 运行时错误 800A01B6 对象不支持此属性或方法:re.MultiLine 高分
- 请问如下的这个VB.net的函数,怎样改为VB6的呢?
- 我是个初学者,我想问一下,在vb 中怎么给文本控件设置掩码?
- 提示说FROM子语句有语法错误。是何原因啊,急。
- vb 请问可以把一系列图片转换为视频文件?
说了你也未必懂
你在Combo1的Click里学代码重新检索,然后把结果赋值给显示的控件即可.
就说这些,不提供现成代码,提供了你也未必会用
"select * from dataA where 姓名= '" & combo1.text & "' "