Jump to content
metinnovo

Ajuda relacionada com Visual Basic 12 e Sql server (Distritos , concelho, freguesias)

Recommended Posts

metinnovo

Boa noite,

Estou aqui a precisar uma ligeira a ajuda, é assim na minha PAP estou a desenvolver uma aplicação para uma imobiliária, que vai a opção para criar clientes. Mas dentro dessa opçao , vai abrir um Form que vai ter uma parte de registro normal. agora a parte que eu estou a precisar de ajuda é quando eu clico na combo box Distrito, só apareca os concelhos na combo box Concelho, e quando eu selecione o concelho só apareca as Freguesias desse concelho na combo box Freguesia.

Já tenho a minha tabela na base de dados, que tem por seguinda as colunas: id, id_distrito, distrito, id_concelho, concelho, id_freguesia, freguesia. Sei que esta relacionado a fazer uma query no visual basic na combo box. se alguem me pudesse dar umas luzes ia ser optimo.

Obrigado a todos

PS: Tenho alguns conhecimentos de vb, se alguem precisar da minha ajuda , estou disponivel.

Share this post


Link to post
Share on other sites
Leonardo Pereira

A tua tabela tem esses campos todos ??

Ou seja tens assim ?,

1 | 1 | DistritoA | 1 | ConcelhoA | 1 FreguesiaA

2 | 1 | DistritoA | 1 | ConcelhoA | 2 FreguesiaB

3 | 2 | DistritoB | 2 | ConcelhoB | 3 FreguesiaC

Edited by Leonardo Pereira

Share this post


Link to post
Share on other sites
acao

boas

acho estranho que esteja assim mas!.

tente assim e complete o cod.

Private Sub cbDistritos_Click(sender As Object, e As System.EventArgs) Handles cbDistritos.Click
 cbConcelhos.Items.Clear()
 Dim stringConcelho As String = "SELECT DISTINCT Concelho FROM CodPostal where Distrito = '" & cbDistritos.SelectedText & "'"
 'carregas a combo Concelho
 cbFreguesias.Items.Clear()
End Sub

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 cbDistritos.Items.Clear()
 Dim stringDistrito As String = "SELECT DISTINCT Distrito FROM CodPostal"
 'carregas a combo distritos
 cbConcelhos.Items.Clear()
 cbFreguesias.Items.Clear()
End Sub
Private Sub cbFreguesias_Click(sender As Object, e As System.EventArgs) Handles cbFreguesias.Click
 cbFreguesias.Items.Clear()
 Dim stringFreguesia As String = "SELECT DISTINCT freguesia FROM CodPostal where Distrito = '" & cbDistritos.SelectedText & "' and Concelho = '" & cbConcelhos.SelectedText & "';"
 'carregas a combo freguesia
End Sub

Edited by acao

Share this post


Link to post
Share on other sites
metinnovo

obrigado . ja consegui

a unica coisa que me falta é só uma tabela com todas as freguesias. *.* se for fazer a mao, tou aqui ate amanha,

Share this post


Link to post
Share on other sites
Leonardo Pereira

Pois as tabelas não estão bem normalizadas mas também dá , isso é que interessa.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.