[VB.NET 2008] Database

[Fabio7586]

Salve, ho un problema, inserito in input due valori da textbox, deve andare a fare la ricerca in un database e se trovato, deve restituirmi in un altra textbox il valore:
codice

Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aprichiudi.Click
           Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Fabio\Desktop\Codice Fiscale\Comuni.accdb;Persist Security Info=False;"
        Dim Cn As New OleDbConnection(ConnString)
        Dim sql As String = "select NAZIONALE from italia where  COMUNE=txtCOMUN and PROVINCIA=txtPROV"
        If Cn.State = ConnectionState.Open Then Cn.Close()
        If Aprichiudi.Text = "&Connetti" Then
            Cn.Open()
            Aprichiudi.Text = "&Disconnetti"
        Else
            Aprichiudi.Text = "&Connetti"
            Cn.Close()
        End If
        If (Cn.State) = ConnectionState.Open Then
            MessageBox.Show("Il db adesso è connesso", _
            "Attenzione", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
            Dim cmd As New OleDbCommand(sql, Cn)
            Dim testo As String
            testo = cmd.ExecuteNonQuery()
            txtout.Text = testo
        Else
            MessageBox.Show("Il db adesso è disconnesso", _
            "Attenzione", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
        End If
    End Sub

Dice oledbexception non è stata gestita, nessun valore specificato per alcuni parametri necessari.
Cosa sto sbagliando?

[-MiStO-]

ma gli passi i parametri nella query?
io vedo solo che costruisci la stringa...
cosa sono e come sono settati txtCOMUN e txtPROV?
magari serve una cosa del genere, supponendo txtCOMUN e txtPROV varabili inizializzate prima a tua discrezione
Dim sql As String = "select NAZIONALE from italia where COMUNE= ' " & txtCOMUN & " ' and PROVINCIA= ' " & txtPROV & " ' "

[Kralizek]

Originariamente inviato da -MiStO-

ma gli passi i parametri nella query?
io vedo solo che costruisci la stringa...
cosa sono e come sono settati txtCOMUN e txtPROV?
magari serve una cosa del genere, supponendo txtCOMUN e txtPROV varabili inizializzate prima a tua discrezione
Dim sql As String = "select NAZIONALE from italia where COMUNE= ' " & txtCOMUN & " ' and PROVINCIA= ' " & txtPROV & " ' "

ma anche no! Impariamo ad usare i parametri!

Dim sql As String = "SELECT NAZIONALE FROM italia WHERE COMUNE = ? AND PROVINCIA = ?"
Dim cmd As New OdbcCommand (sql)
cmd.Parameters.Add(txtCOMUN.Text)
cmd.Parameters.Add(txtPROV.Text)

o qualcosa del genere, non ricordo esattamente la sintassi per aggiungere parametri ad un OdbcCommand. Ma meglio che la concatenazione di stringhe!

[Fabio7586]

Originariamente inviato da -MiStO-

ma gli passi i parametri nella query?
io vedo solo che costruisci la stringa...
cosa sono e come sono settati txtCOMUN e txtPROV?
magari serve una cosa del genere, supponendo txtCOMUN e txtPROV varabili inizializzate prima a tua discrezione
Dim sql As String = "select NAZIONALE from italia where COMUNE= ' " & txtCOMUN & " ' and PROVINCIA= ' " & txtPROV & " ' "

Sono due textbox; in che senso costruisco solo la stringa? Dove lavoro io, creiamo software di gestione aziendale, e non ho alcun problema a lavorare con i database, tant'è vero che le query che scrivo sono tutte del tipo select campo1 as qualcosa,campo2 as qualcosa,campo3 as qualcosa from table where table.campo1=variabile1,table.campo2=varibile2 eventualmente group by order by etc..

Originariamente inviato da Kralizek

ma anche no! Impariamo ad usare i parametri!

Dim sql As String = "SELECT NAZIONALE FROM italia WHERE COMUNE = ? AND PROVINCIA = ?"
Dim cmd As New OdbcCommand (sql)
cmd.Parameters.Add(txtCOMUN.Text)
cmd.Parameters.Add(txtPROV.Text)

o qualcosa del genere, non ricordo esattamente la sintassi per aggiungere parametri ad un OdbcCommand. Ma meglio che la concatenazione di stringhe!

Perchè usi odbccommand?

Ho fatto come hai detto, solo scrivendo oledbcommand e non odbc

Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aprichiudi.Click
        Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Fabio\Desktop\Codice Fiscale\Comuni.accdb;Persist Security Info=False;"
        Dim Cn As New OleDbConnection(ConnString)
        Dim sql As String = "select NAZIONALE from italia where COMUNE=? and PROVINCIA=?"
        If Cn.State = ConnectionState.Open Then Cn.Close()
        If Aprichiudi.Text = "&Connetti" Then
            Cn.Open()
            Aprichiudi.Text = "&Disconnetti"
        Else
            Aprichiudi.Text = "&Connetti"
            Cn.Close()
        End If

        If (Cn.State) = ConnectionState.Open Then
            MessageBox.Show("Il db adesso è connesso", _
            "Attenzione", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
            Dim cmd As New OleDbCommand(sql)
            Dim testo As String
            cmd.Parameters.Add(txtCOMUN.Text)
            cmd.Parameters.Add(txtPROV.Text)
            testo = cmd.ExecuteNonQuery()
            txtout.Text = testo
        Else
            MessageBox.Show("Il db adesso è disconnesso", _
            "Attenzione", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
        End If
    End Sub

Ma mi dà questo errore:
OleDbParameterCollection accetta solo oggetti di tipo OleDbParameter non null, non oggetti String.

[-MiStO-]

Originariamente inviato da Kralizek

o qualcosa del genere, non ricordo esattamente la sintassi per aggiungere parametri ad un OdbcCommand. Ma meglio che la concatenazione di stringhe!

hai ragione, molto meglio e molto più pulito
era giusto per dare una soluzione veloce

[Fabio7586]

Help!

[Kralizek]

Originariamente inviato da Fabio7586

Help!

Scusa, ero al lavoro e non ho visto che stavi usando il provider OleDb. Anzicchè usare OdbcCommand, usa OleDbCommand e tutto andrà bene

[Fabio7586]

Originariamente inviato da Kralizek

Scusa, ero al lavoro e non ho visto che stavi usando il provider OleDb. Anzicchè usare OdbcCommand, usa OleDbCommand e tutto andrà bene

Ho usato oledb, ma da questo errore:
OleDbParameterCollection accetta solo oggetti di tipo OleDbParameter non null, non oggetti String.

due post più su c'è il codice che ho usato!

[Kralizek]

Vedi il costruttore di un OleDbParameter cosa chiede

[MarcoGG]

Originariamente inviato da Kralizek

ma anche no! Impariamo ad usare i parametri!

Dim sql As String = "SELECT NAZIONALE FROM italia WHERE COMUNE = ? AND PROVINCIA = ?"
Dim cmd As New OdbcCommand (sql)
cmd.Parameters.Add(txtCOMUN.Text)
cmd.Parameters.Add(txtPROV.Text)

o qualcosa del genere, non ricordo esattamente la sintassi per aggiungere parametri ad un OdbcCommand. Ma meglio che la concatenazione di stringhe!

Quoto. La concatenazione, tranne in casi molto semplici, espone spesso ad errori, soprattutto in connessione a DB Access...

Per quanto riguarda OleDbParameter, forse meglio questa soluzione, più corretta e leggibile ( su DB Access 2003, per 2007 modificare la strCN... ) :

        Dim strCN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & percorso & "nomeDB.mdb" & ";Persist Security Info=False"
        Dim CN As New OleDb.OleDbConnection(strCN)
        Dim strSql As String = "SELECT * FROM nomeTabella WHERE id=@id AND nome=@nome"
        Dim CMD As New OleDb.OleDbCommand(strSql, CN)
        CMD.Parameters.Add("@id", OleDb.OleDbType.BigInt)
        CMD.Parameters.Add("@nome", OleDb.OleDbType.VarChar)
        '...

        'Assegnazione Parametri :
        CMD.Parameters("@id").Value = txt_id.Text
        CMD.Parameters("@nome").Value = txt_nome.Text
        '...

        CN.Open()
        Dim RDR As OleDb.OleDbDataReader = CMD.ExecuteReader()
        While (RDR.Read())

            '...
            '...

        End While

        RDR.Close()
        CN.Close()

Ciascun parametro ha un suo nome @parametro. Con 2 soli parametri non si nota un granchè, ma ti assicuro che in una Insert con 30 parametri fa la sua bella differenza...

[Kralizek]

Che io sappia il provider OleDb non supporta i parametri con nome.
Cosí come il provider MySql marca i parametri con "?" (es: ?name).

[MarcoGG]

Originariamente inviato da Kralizek

Che io sappia il provider OleDb non supporta i parametri con nome.
Cosí come il provider MySql marca i parametri con "?" (es: ?name).

Li supporta eccome...
Io uso quella tecnica praticamente tutte le volte che ho a che fare con DB Access. Forse ti riferisci ad un ADO.Net precedente al 2.0...

[Fabio7586]

Originariamente inviato da MarcoGG

Quoto. La concatenazione, tranne in casi molto semplici, espone spesso ad errori, soprattutto in connessione a DB Access...

Per quanto riguarda OleDbParameter, forse meglio questa soluzione, più corretta e leggibile ( su DB Access 2003, per 2007 modificare la strCN... ) :

        Dim strCN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & percorso & "nomeDB.mdb" & ";Persist Security Info=False"
        Dim CN As New OleDb.OleDbConnection(strCN)
        Dim strSql As String = "SELECT * FROM nomeTabella WHERE id=@id AND nome=@nome"
        Dim CMD As New OleDb.OleDbCommand(strSql, CN)
        CMD.Parameters.Add("@id", OleDb.OleDbType.BigInt)
        CMD.Parameters.Add("@nome", OleDb.OleDbType.VarChar)
        '...

        'Assegnazione Parametri :
        CMD.Parameters("@id").Value = txt_id.Text
        CMD.Parameters("@nome").Value = txt_nome.Text
        '...

        CN.Open()
        Dim RDR As OleDb.OleDbDataReader = CMD.ExecuteReader()
        While (RDR.Read())

            '...
            '...

        End While

        RDR.Close()
        CN.Close()

Ciascun parametro ha un suo nome @parametro. Con 2 soli parametri non si nota un granchè, ma ti assicuro che in una Insert con 30 parametri fa la sua bella differenza...

Perchè mi consigli il provider 4.0 e non 12.0? Io l'ho preso da stringconnection, che differenza c'è?

Edit:
Pardon...non avevo ben capito che avevi scritto di cambiare strcon! Poi per passare il valore ottenuto dalla query, basta che assegno la variabile strsql nella textbox?

P.s. se è possibile qualcuno può spiegarmi come faccio a fare un oggetto che mi compare a video con un timer, che dura finchè il database non si connette?

[MarcoGG]

Originariamente inviato da Fabio7586

Perchè mi consigli il provider 4.0 e non 12.0? Io l'ho preso da stringconnection, che differenza c'è?

Perchè, come ho scritto, il mio esempio è su Access 2003. Se usi un DB Access 2007 ( .accdb ) l'unica modifica è appunto la stringa di connessione strCN. Usa la tua.

[MarcoGG]

Originariamente inviato da Fabio7586

P.s. se è possibile qualcuno può spiegarmi come faccio a fare un oggetto che mi compare a video con un timer, che dura finchè il database non si connette?

Non so esattamente il perchè del tuo codice, ma tutta questa preoccupazione sui tempi di connessione al DB la trovo superflua, soprattutto se questo file .accdb è locale ( ma anche in LAN... ).
La connessione è praticamente istantanea. La apri / la usi / la chiudi.
Oltretutto tenere connessioni inutili aperte, in giro per l'applicazione, e soprattutto con Access, non è mai una buona idea...

[Fabio7586]

Originariamente inviato da MarcoGG

Non so esattamente il perchè del tuo codice, ma tutta questa preoccupazione sui tempi di connessione al DB la trovo superflua, soprattutto se questo file .accdb è locale ( ma anche in LAN... ).
La connessione è praticamente istantanea. La apri / la usi / la chiudi.
Oltretutto tenere connessioni inutili aperte, in giro per l'applicazione, e soprattutto con Access, non è mai una buona idea...

Non è una preoccupazione sui tempi del database, figurati, era solo per fare una cosa carina ^_^

[Fabio7586]

Ho Provato questo:

Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aprichiudi.Click
        Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Fabio\Desktop\Codice Fiscale\Comuni.accdb;Persist Security Info=False;"
        Dim Cn As New OleDbConnection(ConnString)
        Dim sql As String = "select NAZIONALE from italia where COMUNE=@idcomune and PROVINCIA=@idprovincia"
        Dim cmd As New OleDbCommand(sql, Cn)
        cmd.Parameters.Add("@idcomune", OleDb.OleDbType.LongVarChar)
        cmd.Parameters.Add("@idprovincia", OleDb.OleDbType.LongVarChar)

        If Cn.State = ConnectionState.Open Then Cn.Close()
        If Aprichiudi.Text = "&Connetti" Then
            Cn.Open()
            Aprichiudi.Text = "&Disconnetti"
        Else
            Aprichiudi.Text = "&Connetti"
            Cn.Close()
        End If

        If (Cn.State) = ConnectionState.Open Then
            MessageBox.Show("Il db adesso è connesso", _
            "Attenzione", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
            cmd.Parameters("@idcomune").Value = txbLNasc.Text
            cmd.Parameters("@idprovincia").Value = txbProvNasc.Text
            Dim RDR As OleDb.OleDbDataReader = cmd.ExecuteReader()
            While (RDR.Read())

                '...
                txtout.Text = cmd.ExecuteNonQuery()
                '...

            End While

            RDR.Close()



        Else
            MessageBox.Show("Il db adesso è disconnesso", _
            "Attenzione", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
        End If
    End Sub

Non funzione, restituisce qualcosa a proposito di ExecuteNonQuery(), perchè?

[MarcoGG]

Originariamente inviato da Fabio7586

Non funzione, restituisce qualcosa a proposito di ExecuteNonQuery(), perchè?

Vedo che hai usato la soluzione dei parametri con nome. Bene, ma non così. Ovvio che da errore, hai già il DataReader pronto, inoltre .ExecuteNonQuery si usa per operazioni di Insert/Update/Delete, e mai usarlo nel ciclo di lettura del DataReader...

Se la tua query era "select NAZIONALE from italia ... ", a questo punto esiste un campo "NAZIONALE" nella tabella risultati restituita dal DataReader, perciò semmai :

        While (RDR.Read())

                '...
                txtout.Text = RDR("NAZIONALE")
                '...

        End While

[Fabio7586]

Originariamente inviato da MarcoGG

Vedo che hai usato la soluzione dei parametri con nome. Bene, ma non così. Ovvio che da errore, hai già il DataReader pronto, inoltre .ExecuteNonQuery si usa per operazioni di Insert/Update/Delete, e mai usarlo nel ciclo di lettura del DataReader...

Se la tua query era "select NAZIONALE from italia ... ", a questo punto esiste un campo "NAZIONALE" nella tabella risultati restituita dal DataReader, perciò semmai :

        While (RDR.Read())

                '...
                txtout.Text = RDR("NAZIONALE")
                '...

        End While

GrazIEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE!!!!!!

[MarcoGG]

Risposta a tuo pvt :
Se vuoi riutilizzare il mio codice al post #10, basta che nel ciclo di lettura del DataReader, per ogni Record restituito, tu vada ad aggiungere una riga al DataGridView, che avrai già formattato in design mode costruendo le colonne di formato appropriato.
Altro metodo è usare un DataSet, ma in quel caso il codice andrà modificato.