CodiceFiscale Comuni.mdb Aiuto

di il
6 risposte

CodiceFiscale Comuni.mdb Aiuto

Salve, sto realizzando con Visual Basic Net, il programmino che calcola il codice fiscale, mah ho un problema con il data base dei comuni.

per il momento solo a titolo di prova ho messo:
If VarCitta = "ROMA" Then
VarCodiceFiscaleCitta = "H501"
Else
MsgBox("per il momento funziona solo con la Città di Roma")
End If

Penso sia chiaro che non so come utilizzare il file Comuni.mdb,
mi serve conoscere il codice per entrare nel file (o connettermi nel file) Comuni.mdb ,
entrare nella tabella ITALIA , e nella tabella italia
in base al COMUNE ottenere il relativo CODICE_Fiscale .

Graz..
Ciaoo da MrJohnny.




MrJohnny Icq 397979

6 Risposte

  • Re: CodiceFiscale Comuni.mdb Aiuto

    Questo è il codice per collegarti al database (file comuni.mdb) ed estrarre il codice del comune dalla tabella ITALIA.


    Dim dr As System.Data.oledb.OleDbDataReader ' data reader per access
    Dim myCommand As System.Data.oledb.OleDbCommand
    Dim CommandText As String = "" ' dichiaro ed inizializzo la stringa per la query
    Dim myconnectionstring As System.Data.oledb.OleDbConnection ' connessione ad access

    myconnectionstring = New System.Data.oledb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("comuni.mdb"))
    myconnectionstring.Open() ' apro la connessione

    CommandText = "select CODICE_Fiscale from ITALIA where comune='" & comune & "'" ' comune è il comune da ricercare


    myCommand = New System.Data.oledb.OleDbCommand(CommandText, myconnectionstring) ' setto il command
    dr = myCommand.ExecuteReader()
    If dr.Read() Then
    Label1.Text = dr("CODICE_Fiscale ") + "<br>"
    'stampo in una labe il codice del comune

    End If
    ' chiudo e rilascio gli oggetti
    dr.Close()
    dr = Nothing
    myCommand = Nothing
    myconnectionstring.Close()
    myconnectionstring = Nothing



    Roberto Franchini 1972
  • Re: CodiceFiscale Comuni.mdb Aiuto

    Grazieee Tantissimoo!!!!!!!!

    MrJohnny Icq 397979
  • Re: CodiceFiscale Comuni.mdb Aiuto

    Grazieee

    MrJohnny Icq 397979
  • Re: CodiceFiscale Comuni.mdb Aiuto

    <BLOCKQUOTE id=quote><!--<font size= face="" id=quote>-->quote:<hr height=1 noshade id=quote>
    Questo è il codice per collegarti al database (file comuni.mdb) ed estrarre il codice del comune dalla tabella ITALIA.


    Dim dr As System.Data.oledb.OleDbDataReader ' data reader per access
    Dim myCommand As System.Data.oledb.OleDbCommand
    Dim CommandText As String = "" ' dichiaro ed inizializzo la stringa per la query
    Dim myconnectionstring As System.Data.oledb.OleDbConnection ' connessione ad access

    myconnectionstring = New System.Data.oledb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("comuni.mdb"))
    myconnectionstring.Open() ' apro la connessione

    CommandText = "select CODICE_Fiscale from ITALIA where comune='" & comune & "'" ' comune è il comune da ricercare


    myCommand = New System.Data.oledb.OleDbCommand(CommandText, myconnectionstring) ' setto il command
    dr = myCommand.ExecuteReader()
    If dr.Read() Then
    Label1.Text = dr("CODICE_Fiscale ") + "<br>"
    'stampo in una labe il codice del comune

    End If
    ' chiudo e rilascio gli oggetti
    dr.Close()
    dr = Nothing
    myCommand = Nothing
    myconnectionstring.Close()
    myconnectionstring = Nothing



    Roberto Franchini 1972
    <hr height=1 noshade id=quote></BLOCKQUOTE id=quote><!--</font id=quote><font face="" size= id=quote>-->



    Ottimo... Graz..
    By MrJohnny.

    MrJohnny Icq 397979
  • Re: CodiceFiscale Comuni.mdb Aiuto

    <BLOCKQUOTE id=quote><!--<font size= face="" id=quote>-->quote:<hr height=1 noshade id=quote>
    Questo è il codice per collegarti al database (file comuni.mdb) ed estrarre il codice del comune dalla tabella ITALIA.


    Dim dr As System.Data.oledb.OleDbDataReader ' data reader per access
    Dim myCommand As System.Data.oledb.OleDbCommand
    Dim CommandText As String = "" ' dichiaro ed inizializzo la stringa per la query
    Dim myconnectionstring As System.Data.oledb.OleDbConnection ' connessione ad access

    myconnectionstring = New System.Data.oledb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("comuni.mdb"))
    myconnectionstring.Open() ' apro la connessione

    CommandText = "select CODICE_Fiscale from ITALIA where comune='" & comune & "'" ' comune è il comune da ricercare


    myCommand = New System.Data.oledb.OleDbCommand(CommandText, myconnectionstring) ' setto il command
    dr = myCommand.ExecuteReader()
    If dr.Read() Then
    Label1.Text = dr("CODICE_Fiscale ") + "<br>"
    'stampo in una labe il codice del comune

    End If
    ' chiudo e rilascio gli oggetti
    dr.Close()
    dr = Nothing
    myCommand = Nothing
    myconnectionstring.Close()
    myconnectionstring = Nothing



    Roberto Franchini 1972
    <hr height=1 noshade id=quote></BLOCKQUOTE id=quote><!--</font id=quote><font face="" size= id=quote>-->



    Ottimo... Graz..
    By MrJohnny.

    MrJohnny Icq 397979
  • Re: CodiceFiscale Comuni.mdb Aiuto

    <BLOCKQUOTE id=quote><!--<font size= face="" id=quote>-->quote:<hr height=1 noshade id=quote>
    Questo è il codice per collegarti al database (file comuni.mdb) ed estrarre il codice del comune dalla tabella ITALIA.


    Dim dr As System.Data.oledb.OleDbDataReader ' data reader per access
    Dim myCommand As System.Data.oledb.OleDbCommand
    Dim CommandText As String = "" ' dichiaro ed inizializzo la stringa per la query
    Dim myconnectionstring As System.Data.oledb.OleDbConnection ' connessione ad access

    myconnectionstring = New System.Data.oledb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("comuni.mdb"))
    myconnectionstring.Open() ' apro la connessione

    CommandText = "select CODICE_Fiscale from ITALIA where comune='" & comune & "'" ' comune è il comune da ricercare


    myCommand = New System.Data.oledb.OleDbCommand(CommandText, myconnectionstring) ' setto il command
    dr = myCommand.ExecuteReader()
    If dr.Read() Then
    Label1.Text = dr("CODICE_Fiscale ") + "<br>"
    'stampo in una labe il codice del comune

    End If
    ' chiudo e rilascio gli oggetti
    dr.Close()
    dr = Nothing
    myCommand = Nothing
    myconnectionstring.Close()
    myconnectionstring = Nothing



    Roberto Franchini 1972
    <hr height=1 noshade id=quote></BLOCKQUOTE id=quote><!--</font id=quote><font face="" size= id=quote>-->



    Ottimo... Graz..
    By MrJohnny.

    MrJohnny Icq 397979
Devi accedere o registrarti per scrivere nel forum
6 risposte