Olá

Preciso criar um banco que contem Países , Cada País contém pelo menos 5 cidades , quero carregar os paises em uma combo e quando selecionado o país a combo 2 carrega automático as cidades.

como devo montar o banco no access ? e o código SQL qual o melhor a utilizar. Obrigado.

Olá, Gadu, há pouco tempo, fiz um programinha para consultar ceps, desta mesma maneira, quando seleciono um estado numa combo, as cidades que pertencem a este estado são carregadas em uma outra combo. O código que eu usei foi esse:

 

' aqui, preenche a Combo com os estados

Private Sub CmbUf_DropDown()
    CmbUf.Clear
    sqluf = "Select * From Ufs"
    Set rsuf = db.OpenRecordset(sqluf)
    Do Until rsuf.EOF
        CmbUf.AddItem rsuf("uf") & ""
        rsuf.MoveNext
    Loop
    Set rsuf = Nothing
End Sub

 

' aqui, preenche a Combo com as cidades

Private Sub CmbCidade_DropDown()
    CmbCidade.Clear
    sqlcid = "Select * From Cidades Where UF = '" & CmbUf.Text & "'"
    Set rscid = db.OpenRecordset(sqlcid)
    Do Until rscid.EOF
        CmbCidade.AddItem rscid("cidade") & ""
        rscid.MoveNext
    Loop
    Set rscid = Nothing
End Sub

lembrando que eu uso o DAO para realizar as consultas Sql.

 

Se isto te ajudar...

 

Até mais.

Eisa estrutura da sua Tabela

 

Nome do Banco de Dados: Paises.mdb

Nome das tabelas: Tab_Paises, Tab_Cidades

 

agora a estrutura de cada tabela:

 

 

 

 

 

Você deve criar dois forms, um de inclusão, alteração, etc... espero que você ja saiba fazer isto

 

agora para funcionar da forma que você deseja é fácil:

 

Supondo que existam dois Combos, cboPaises e cboCidades

 

no load do form você carregaria o cboPaises destea forma

 

Private Sub From_Load()

 

 

sqlPaises="select*from Tab_Paises Order by nome"

set RSPaises=DB.OpenRecorset(sqlPaises)

Do While not RSPaises.EOF

cboPaises.additem RSPaises("nome")

RSPaises.MoveNex_t

Loop

 

End Sub

 

Agora no evento click do cboPaises este código

 

Private Sub cboPaises_Click()

 

SQLCidades="SELECT * FROM Tab_Paises,Tab_Cidades WHERE" _

& " Tab_Cidades.CodigoPais=Tab_Paises.CodigoPais ORDER BY Tab_Cidades.nome"

Do While Not RSCidades.EOF

cboCidades.Additem RSCidades("Nome")

RSCidades.MoveNex_t

Loop

 

end sub

 

e pronto está resolvido.

 

 

até

 

 

Ainda não deu porque ele este último código lista todos os estados , e eu quero listar os estados somente do país selecionado , se alguem puder me ajudar em cima deste código.

Tive que fazer algumas modificações mais deu certo Obrigado.