none
Database OLEDB e ricerca dati RRS feed

  • Domanda

  • Buonasera a tutti.
    Per divertimento sto scrivendo un programmino che calcola il codice fiscale.
    Uso Visual Studio 2019.
    Ho collegato il database fatto in Access al progetto tramite il wizard e ho popolato una Combobox con i dati contenuti nella tabella COMUNI. Scelgo dall'elenco, o scrivo manualmente, il comune e per ora fila liscia.
    Adesso mi servirebbe poter estrarre dalla tabella CODICE del database il codice accoppiato al comune scelto.

    Ho provato così ma mi da errore su

    Function Cod_comune(city As String) As String
      Dim stringaconn As String = 
    "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & 
    Application.StartupPath() & "\" & "Comuni2003.mdb"
      Dim stringasql As String = "SELECT SIGLA, PROVINCIA, 
    CODICE from Comuni WHERE Comune = @city"
      Using connessione As OleDbConnection = New 
    OleDbConnection(stringaconn)
        Using comando As OleDbCommand = New 
    OleDbCommand(stringasql, connessione)
            connessione.Open()
            comando.CommandType = CommandType.Text
          Using reader As OleDbDataReader = 
    comando.ExecuteReader
            While reader.Read()
            MessageBox.Show(reader.GetString(1))
            End While
            reader.Close()
          End Using
        End Using
        connessione.Close()
      End Using
    End Function

    Si ferma tutto su: "Using reader As OleDbDataReader = comando.ExecuteReader"

    Non so cosa fare, sto leggendo guide su guide ma non riesco a trovare una soluzione che sono sicuro sarà una stupidaggine.

    Grazie a tutti e buona serata.



    • Modificato joker7421 domenica 27 marzo 2022 16:47
    domenica 27 marzo 2022 16:47

Risposte

  • Grazie  a tutti coloro che avranno letto il mio post.

    Questa parte l'ho risolta; il mio errore era nella stringa SQL:

    Dim stringasql As String = "SELECT SIGLA, PROVINCIA, CODICE from Comuni WHERE Comune = @city"

    invece di

    Dim stringasql As String = "SELECT SIGLA, PROVINCIA, CODICE from Comuni WHERE Comune = '" & UCase(city) & "'

    Grazie e alla prossima

    domenica 27 marzo 2022 20:52

Tutte le risposte

  • Grazie  a tutti coloro che avranno letto il mio post.

    Questa parte l'ho risolta; il mio errore era nella stringa SQL:

    Dim stringasql As String = "SELECT SIGLA, PROVINCIA, CODICE from Comuni WHERE Comune = @city"

    invece di

    Dim stringasql As String = "SELECT SIGLA, PROVINCIA, CODICE from Comuni WHERE Comune = '" & UCase(city) & "'

    Grazie e alla prossima

    domenica 27 marzo 2022 20:52
  • Grazie della seconda risposta al tema.

    • Microsoft offre questo servizio gratuitamente, per aiutare gli utenti e aumentare il database dei prodotti e delle tecnologie. Il contenuto fornito “as is“ non comporta alcuna responsabilità da parte dell’azienda.

    lunedì 28 marzo 2022 06:10
    Moderatore