No seu banco de dados na tabela UF tem q ter 2 campos:
id_UF (chave primária)
Nome_UF
Depois q vc relacionou as duas tabelas, no seu projeto vc pode colocar um ADOControl, um DataCombo, e um Combobox
Conecte o seu AdoControl com o seu banco e a sua tabela UF.
Conecte o seu DataCombo com o AdoControl e seu respectivo campo (Nome_UF)
Depois é só fazer como no código abaixo:
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select * from cidades", Adodc1.ConnectionString
End Sub
Private Sub DataCombo1_Change()
Adodc1.Recordset.Find "Nome_UF = '" & DataCombo1.Text & "'"
With rs
.Filter = "id_UF_Cidades = '" & Adodc1.Recordset!id_UF & "'"
.MoveF irst
Combo1.Clear
Do While Not .EOF
Combo1.AddItem !Nome_Cidades
.MoveNext
Loop
End With
End Sub
ok?? Todos os campos citados são do tipo texto
qq coisa é só postar
t+
