Question

用VB编写学生通讯录。当在下拉列表框中选择某一姓名,能在三个文本框中分别显示电

1． 编写一个学生通讯录程序。当在下拉列表框中选择某一姓名后，能在三个文本框中分别显示该学生的电话号码、E_mail 和专业。

Answer 1

应该类似我下面的代码
Private Sub cmbLB_Click()
Dim r As New ADODB.Recordset
Dim itmx As ListItem
ListView1.ListItems.Clear
r.Open "select * from tiku where 类别='" & cmbLB & "' order by 类型,idd", cn
Do While Not r.EOF
Set itmx = ListView1.ListItems.Add
itmx.Text = Trim(r!idd & " ")
itmx.SubItems(1) = Trim(r!类型 & " ")
itmx.SubItems(2) = Trim(r!题目 & " ")
r.MoveNext
Loop
r.Close
End Sub

Answer 2

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Combo1_Click()
'--实现combo内容发生变化后，3个文本框显示与之对应的内容
rs.Open "select 电话号码,E-mail,专业 from 表名称 where 姓名='" & Combo1.Text & "'", cn
Text1.Text = rs.Fields("电话号码")
Text2.Text = rs.Fields("E-mail")
Text3.Text = rs.Fields("专业")
rs.Close
End Sub

Private Sub Form_Load()
'--连接数据库
cn.Open "数据库连接（此处自己填写相关连接）"
End Sub