Question

vb中combobox1中选择省，combobox2中对应出现市，combobox3出现县，combobox4……以此类推。

还要连接一个已经做好的数据库，这该怎么写？

Answer 1

比如数据库是AA.mdb，数据表是省市表，有字段省、市、县等等，那么：
Private Sub Form_Load()
'连接数据库语句略
strSQL = "SELECT Distinct 省 FROM 省市表"
RS.Open strSQL, db, 2, 2
Do While Not RS.EOF
Combo1.AddItem RS!省 '这里给Combo1加载省名称
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
'关闭数据库连接对象
End Sub

Private Sub Combo1_Click()
Combo2.Clear
'连接数据库语句略
strSQL = "SELECT Distinct 省，市 FROM 省市表 Where 省='" & Combo1.Text & "'"
RS.Open strSQL, db, 2, 2
Do While Not RS.EOF
Combo2.AddItem RS!市 '这里给Combo2加载市名称
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
'关闭数据库连接对象
End Sub

Combo3与上面同理，在Private Sub Combo2_Click() 加载县名称，不再说了。

Answer 2

都是考试题

Answer 3

你要把数据库发过来看看才能写出代码
1426991913