[VB2010] Problema funzione con query parametrica

[Neo996sps]

Ciao a tutti,

ho un problema tra una funzione e una query parametrica. Sicuramente è un mio errore però non lo riesco a trovare.

Questo il codice funzione:

    Public Function InsertMachine(ByVal id_cliente As Integer, ByVal seriale As String, ByVal descrizione As String, ByVal attivo As String, ByVal fornitore As String) As Boolean
        db.apri()
        Dim sqlCommand As New MySqlCommand
        Dim InserisciMacchina As String
        Try
            'Stringa SQL di inserimento con i parametri
            InserisciMacchina = "INSERT INTO TblMacchine (id, id_cliente, seriale, descrizione, attivo, fornitore) VALUES (@id, @id_cliente, @seriale, @descrizione, @attivo, @fornitore)"
            'Stampo a video la stringa SQL per verificare se è corretta
            MsgBox(InserisciMacchina)
            'Connetto il database MySql 
            sqlCommand.CommandText = InserisciMacchina
            sqlCommand.CommandType = CommandType.Text
            'Setto i parametri dei valori
            sqlCommand.Parameters.AddWithValue("@id", Nothing)
            sqlCommand.Parameters.AddWithValue("@id_cliente", id_cliente)
            sqlCommand.Parameters.AddWithValue("@seriale", seriale)
            sqlCommand.Parameters.AddWithValue("@descrizione", descrizione)
            sqlCommand.Parameters.AddWithValue("@attivo", attivo)
            sqlCommand.Parameters.AddWithValue("@fornitore", fornitore)
            'Eseguo il comando SQL
            sqlCommand.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
            MsgBox("Error occured: Could not insert record", vbCritical, "Errore")
        End Try

    End Function 

mentre questo è il codice che ho sul tasto salva del mio form

 cli.InsertMachine(frmClienteDettaglio.txtChiaveCliente.Text, txtSeriale.Text, txtDescrizione.Text, chbAttivo.CheckState, txtFornitore.Text) 

dove cli è dichiarato così:

Dim cli As New clsClienti 

e clsClienti è la classe che contiene la mia funzione.

Mi sapete aiutare a trovare l'errore?

[oregon]

Ma di quale errore parli ?

E quando ti connetti al DB .. non vedo il codice per l'apertura della connessione ...

[Neo996sps]

Ciao,

mi connetto al DB come prima istruzione dopo la dichiarazione di funzione con il codice:

db.apri 

L'errore è che non avviene l'inserimento dei dati nella tabella, forse se lo scrivevo era di aiuto un pochino .

[oregon]

Originariamente inviato da Neo996sps
Ciao,

mi connetto al DB come prima istruzione dopo la dichiarazione di funzione con il codice:

db.apri 

Sì ma intendevo dire che il Command non è collegato in nessun modo al tuo db aperto (ovvero non c'è alcun riferimento alla connection da utilizzare).

Penso che debba assegnare anche la proprietà

sqlCommand.Connection = ...

con l'oggetto connection a cui si riferisce il DB

[Neo996sps]

l'avevo detto che era colpa mia... Per i posteri:

Public Function InsertMachine(ByVal id_cliente As Integer, ByVal seriale As String, ByVal descrizione As String, ByVal attivo As String, ByVal fornitore As String) As Boolean
        db.apri()
        Dim sqlCommand As New MySqlCommand
        Dim InserisciMacchina As String
        Try
            'Stringa SQL di inserimento con i parametri
            InserisciMacchina = "INSERT INTO TblMacchine (id, id_cliente, seriale, descrizione, attivo, fornitore) VALUES (@id, @id_cliente, @seriale, @descrizione, @attivo, @fornitore)"
            'Stampo a video la stringa SQL per verificare se è corretta
            'MsgBox(InserisciMacchina)
            'Connetto il database MySql 
            sqlCommand.Connection = db.conn
            sqlCommand.CommandText = InserisciMacchina
            sqlCommand.CommandType = CommandType.Text
            'Setto i parametri dei valori
            sqlCommand.Parameters.AddWithValue("@id", Nothing)
            sqlCommand.Parameters.AddWithValue("@id_cliente", id_cliente)
            sqlCommand.Parameters.AddWithValue("@seriale", seriale)
            sqlCommand.Parameters.AddWithValue("@descrizione", descrizione)
            sqlCommand.Parameters.AddWithValue("@attivo", attivo)
            sqlCommand.Parameters.AddWithValue("@fornitore", fornitore)
            'Eseguo il comando SQL
            sqlCommand.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
            MsgBox("Error occured: Could not insert record", vbCritical, "Errore")
        End Try

    End Function 

[oregon]

Originariamente inviato da Neo996sps
l'avevo detto che era colpa mia...

Di nulla ...