Question

vb组合框与数据库问题

窗体中有两个组合框 一个显示城市 一个显示城市所在区 access数据库中有一张名为city的表 分别有两个字段cityname和cityqu 我想把显示城市的组合框添加city表中cityname所有值 另一个组合框添加cityqu所有值 点击组合框1中的城市 组合框2中就会自动显示相应的区
如果没有选择城市 点击确认按钮 就会出现对话框“请选择城市”

Answer 1

Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End Sub

Private Sub Command1_Click()
If Combo1.ListIndex = -1 Then
MsgBox "请选择城市"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "确定"
Dim conn
Dim Rs
Set conn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
conn.open = "provider=microsoft.jet.oledb.4.0;data source=WSCLXT.MDB"
Rs.open "select * from city", conn, 1, 3
While Not Rs.EOF
Combo1.AddItem Rs(0)
Combo2.AddItem Rs(1)
Rs.MoveNext
Wend
Rs.Close
conn.Close
Set Rs = Nothing
Set conn = Nothing
End Sub