database citta,province regioni

[slay]

ciao, esiste un database scaricabile con tutte le regioni province e città d'italia?

[canna]

credo di si io l'ho scaricato in rete

cerca cap italiani e trovi sicuramente anche l'elenco delle città e regioni poi te le devi separare se ti servono in tabelle diverse

[canna]

ABRUZZO
BASILICATA
CALABRIA
CAMPANIA
EMILIA ROMAGNA
FRIULI VENEZIA GIULIA
LAZIO
LIGURIA
LOMBARDIA
MARCHE
MOLISE
PIEMONTE
PUGLIA
SARDEGNA
SICILIA
TOSCANA
TRENTINO ALTO ADIGE
UMBRIA
VALLE D'AOSTA
VENETO

[canna]

città e targhe

ElseIf TxtCitta.Text = "BELLUNO" Then
TxtProvincia.AddItem "BL"
ElseIf TxtCitta.Text = "PADOVA" Then
TxtProvincia.AddItem "PD"
ElseIf TxtCitta.Text = "ROVIGO" Then
TxtProvincia.AddItem "RO"
ElseIf TxtCitta.Text = "TREVISO" Then
TxtProvincia.AddItem "TV"
ElseIf TxtCitta.Text = "VENEZIA" Then
TxtProvincia.AddItem "VE"
ElseIf TxtCitta.Text = "VERONA" Then
TxtProvincia.AddItem "VR"
ElseIf TxtCitta.Text = "VICENZA" Then
TxtProvincia.AddItem "VI"
ElseIf TxtCitta.Text = "AOSTA" Then
TxtProvincia.AddItem "AO"
ElseIf TxtCitta.Text = "PERUGIA" Then
TxtProvincia.AddItem "PG"
ElseIf TxtCitta.Text = "TERNI" Then
TxtProvincia.AddItem "TR"
ElseIf TxtCitta.Text = "BOLZANO" Then
TxtProvincia.AddItem "BZ"
ElseIf TxtCitta.Text = "TRENTO" Then
TxtProvincia.AddItem "TN"
ElseIf TxtCitta.Text = "AREZZO" Then
TxtProvincia.AddItem "AR"
ElseIf TxtCitta.Text = "GROSSETO" Then
TxtProvincia.AddItem "GR"
ElseIf TxtCitta.Text = "FIRENZE" Then
TxtProvincia.AddItem "FI"
ElseIf TxtCitta.Text = "LIVORNO" Then
TxtProvincia.AddItem "LI"
ElseIf TxtCitta.Text = "LUCCA" Then
TxtProvincia.AddItem "LU"
ElseIf TxtCitta.Text = "MASSA" Or TxtCitta.Text = "CARRARA" Then
TxtProvincia.AddItem "MS"
ElseIf TxtCitta.Text = "PISA" Then
TxtProvincia.AddItem "PI"
ElseIf TxtCitta.Text = "PISTOIA" Then
TxtProvincia.AddItem "PT"
ElseIf TxtCitta.Text = "PRATO" Then
TxtProvincia.AddItem "PO"
ElseIf TxtCitta.Text = "SIENA" Then
TxtProvincia.AddItem "SI"
ElseIf TxtCitta.Text = "AGRIGENTO" Then
TxtProvincia.AddItem "AG"
ElseIf TxtCitta.Text = "CALTANISSETTA" Then
TxtProvincia.AddItem "CL"
ElseIf TxtCitta.Text = "CATANIA" Then
TxtProvincia.AddItem "CT"
ElseIf TxtCitta.Text = "ENNA" Then
TxtProvincia.AddItem "EN"
ElseIf TxtCitta.Text = "MESSINA" Then
TxtProvincia.AddItem "ME"
ElseIf TxtCitta.Text = "PALERMO" Then
TxtProvincia.AddItem "PA"
ElseIf TxtCitta.Text = "RAGUSA" Then
TxtProvincia.AddItem "RG"
ElseIf TxtCitta.Text = "SIRACUSA" Then
TxtProvincia.AddItem "SR"
ElseIf TxtCitta.Text = "TRAPANI" Then
TxtProvincia.AddItem "TP"
ElseIf TxtCitta.Text = "BARI" Then
TxtProvincia.AddItem "BA"
ElseIf TxtCitta.Text = "BRINDISI" Then
TxtProvincia.AddItem "BR"
ElseIf TxtCitta.Text = "FOGGIA" Then
TxtProvincia.AddItem "FG"
ElseIf TxtCitta.Text = "LECCE" Then
TxtProvincia.AddItem "LE"
ElseIf TxtCitta.Text = "TARANTO" Then
TxtProvincia.AddItem "TA"
ElseIf TxtCitta.Text = "ALESSANDRIA" Then
TxtProvincia.AddItem "AL"
ElseIf TxtCitta.Text = "ASTI" Then
TxtProvincia.AddItem "AT"
ElseIf TxtCitta.Text = "BIELLA" Then
TxtProvincia.AddItem "BI"
ElseIf TxtCitta.Text = "CUNEO" Then
TxtProvincia.AddItem "CN"
ElseIf TxtCitta.Text = "NOVARA" Then
TxtProvincia.AddItem "NO"
ElseIf TxtCitta.Text = "TORINO" Then
TxtProvincia.AddItem "TO"
ElseIf TxtCitta.Text = "VERBANIA" Then
TxtProvincia.AddItem "VB"
ElseIf TxtCitta.Text = "VERCELLI" Then
TxtProvincia.AddItem "VC"
ElseIf TxtCitta.Text = "CAMPOBASSO" Then
TxtProvincia.AddItem "CB"
ElseIf TxtCitta.Text = "ISERNIA" Then
TxtProvincia.AddItem "IS"
ElseIf TxtCitta.Text = "ANCONA" Then
TxtProvincia.AddItem "AN"
ElseIf TxtCitta.Text = "ASCOLI PICENO" Then
TxtProvincia.AddItem "AP"
ElseIf TxtCitta.Text = "MACERATA" Then
TxtProvincia.AddItem "MC"
ElseIf TxtCitta.Text = "PESARO" And TxtCitta.Text = "URBINO" Then
TxtProvincia.AddItem "PS"
ElseIf TxtCitta.Text = "BERGAMO" Then
TxtProvincia.AddItem "BG"
ElseIf TxtCitta.Text = "BRESCIA" Then
TxtProvincia.AddItem "BS"
ElseIf TxtCitta.Text = "COMO" Then
TxtProvincia.AddItem "CO"
ElseIf TxtCitta.Text = "CREMONA" Then
TxtProvincia.AddItem "CR"
ElseIf TxtCitta.Text = "LECCO" Then
TxtProvincia.AddItem "LC"
ElseIf TxtCitta.Text = "LODI" Then
TxtProvincia.AddItem "LO"
ElseIf TxtCitta.Text = "MANTOVA" Then
TxtProvincia.AddItem "MN"
ElseIf TxtCitta.Text = "MILANO" Then
TxtProvincia.AddItem "MI"
ElseIf TxtCitta.Text = "PAVIA" Then
TxtProvincia.AddItem "PV"
ElseIf TxtCitta.Text = "SONDRIO" Then
TxtProvincia.AddItem "SO"
ElseIf TxtCitta.Text = "VARESE" Then
TxtProvincia.AddItem "VA"
ElseIf TxtCitta.Text = "GENOVA" Then
TxtProvincia.AddItem "GE"
ElseIf TxtCitta.Text = "IMPERIA" Then
TxtProvincia.AddItem "IM"
ElseIf TxtCitta.Text = "LA SPEZIA" Then
TxtProvincia.AddItem "SP"
ElseIf TxtCitta.Text = "SAVONA" Then
TxtProvincia.AddItem "SV"
ElseIf TxtCitta.Text = "FROSINONE" Then
TxtProvincia.AddItem "FR"
ElseIf TxtCitta.Text = "LATINA" Then
TxtProvincia.AddItem "LT"
ElseIf TxtCitta.Text = "RIETI" Then
TxtProvincia.AddItem "RI"
ElseIf TxtCitta.Text = "ROMA" Then
TxtProvincia.AddItem "RM"
ElseIf TxtCitta.Text = "VITERBO" Then
TxtProvincia.AddItem "VT"
ElseIf TxtCitta.Text = "GORIZIA" Then
TxtProvincia.AddItem "GO"
ElseIf TxtCitta.Text = "PORDENONE" Then
TxtProvincia.AddItem "PN"
ElseIf TxtCitta.Text = "TRIESTE" Then
TxtProvincia.AddItem "TS"
ElseIf TxtCitta.Text = "UDINE" Then
TxtProvincia.AddItem "UD"
ElseIf TxtCitta.Text = "BOLOGNA" Then
TxtProvincia.AddItem "BO"
ElseIf TxtCitta.Text = "FERRARA" Then
TxtProvincia.AddItem "FE"
ElseIf TxtCitta.Text = "FORLI'" Then
TxtProvincia.AddItem "FO"
ElseIf TxtCitta.Text = "MODENA" Then
TxtProvincia.AddItem "MO"
ElseIf TxtCitta.Text = "PARMA" Then
TxtProvincia.AddItem "PR"
ElseIf TxtCitta.Text = "PIACENZA" Then
TxtProvincia.AddItem "PC"
ElseIf TxtCitta.Text = "RAVENNA" Then
TxtProvincia.AddItem "RA"
ElseIf TxtCitta.Text = "REGGIO EMILINA" Then
TxtProvincia.AddItem "RE"
ElseIf TxtCitta.Text = "RIMINI" Then
TxtProvincia.AddItem "RN"
ElseIf TxtCitta.Text = "AVELLINO" Then
TxtProvincia.AddItem "AV"
ElseIf TxtCitta.Text = "BENEVENTO" Then
TxtProvincia.AddItem "BN"
ElseIf TxtCitta.Text = "NAPOLI" Then
TxtProvincia.AddItem "NA"
ElseIf TxtCitta.Text = "CASERTA" Then
TxtProvincia.AddItem "CE"
ElseIf TxtCitta.Text = "SALERNO" Then
TxtProvincia.AddItem "SA"
ElseIf TxtCitta.Text = "CATANZARO" Then
TxtProvincia.AddItem "CZ"
ElseIf TxtCitta.Text = "COSENZA" Then
TxtProvincia.AddItem "CS"
ElseIf TxtCitta.Text = "CROTONE" Then
TxtProvincia.AddItem "KR"
ElseIf TxtCitta.Text = "REGGIO CALABRIA" Then
TxtProvincia.AddItem "RC"
ElseIf TxtCitta.Text = "VIBO VALENTIA" Then
TxtProvincia.AddItem "VV"
ElseIf TxtCitta.Text = "MATERA" Then
TxtProvincia.AddItem "MT"
ElseIf TxtCitta.Text = "POTENZA" Then
TxtProvincia.AddItem "PZ"
ElseIf TxtCitta.Text = "CHIETI" Then
TxtProvincia.AddItem "CH"
ElseIf TxtCitta.Text = "L'AQUILA" Then
TxtProvincia.AddItem "AQ"
ElseIf TxtCitta.Text = "PESCARA" Then
TxtProvincia.AddItem "PE"
ElseIf TxtCitta.Text = "TERAMO" Then
TxtProvincia.AddItem "TE"
ElseIf TxtCitta.Text = "NUORO" Then
TxtProvincia.AddItem "NU"
ElseIf TxtCitta.Text = "SASSARI" Then
TxtProvincia.AddItem "SS"
ElseIf TxtCitta.Text = "ORISTANO" Then

[slay]

ok grazie