[vb express 2008] includere una checkbox in una query

[frank095]

vorrei modificare tramite una checkbox di un form una checkbox di un database access..

 If FrontalinoCheckBox.Checked = True Then
                Dim comando3 As New OleDb.OleDbCommand("UPDATE Articoli_anagrafica SET Frontalino= '" + FrontalinoCheckBox.Checked = True + "'", archivio)
                archivio.Open()
                comando3.ExecuteNonQuery()
                archivio.Close()
            End If

errore : Cast non valido dalla stringa "UPDATE Articoli_anagrafica SET F" al tipo 'Double'.

[Runtime]

E' sempre e solo il solito problema di !!!!!!!!!!!!!!QUERY PARAMETRIZZATE!!!!!!!!!!!!!

Nel caso specifico, quello che scrivi tra apici, l'OleDb lo considera di tipo stringa mentre, nel DB, il campo Frontalino è di tipo Double.

Ciao

[frank095]

ho fatto così

 If FrontalinoCheckBox.Checked = True Then
                Dim comando3 As New OleDb.OleDbCommand("UPDATE Articoli_anagrafica SET Frontalino=  @frontalino", archivio)
                comando3.Parameters.Add("@frontalino", OleDbType.double).Value = FrontalinoCheckBox
                archivio.Open()
                comando3.ExecuteNonQuery()
                archivio.Close()
            End If

ma mi dice mpossibile convertire il valore del parametro da un CheckBox a un Double.

[oregon]

FrontalinoCheckBox

e basta ?

[frank095]

.checkstate ! errore di distrazione ! corretto e funziona

[oregon]

No ... non è un errore di distrazione ...

[frank095]

no è distrazione altrimenti non avrei saputo cosa mettere comunque un ultimo problema ! come dovrei fare in caso di una ricerca ? vorrei che la checkbox si selezionasse in caso di il comando SELECT trovasse nel database nel campo frontalino una riga dove è selzionato.. ho fatto così ma non so cosa inserire tra legg.read e legg.close per fare in modo che la checkbox venga letta..

Dim ricfront As New OleDb.OleDbCommand("SELECT @Frontalino FROM Articoli_anagrafica WHERE Codice_barra = '" + Codice_alternativoTextBox.Text + "'", archivio)
            ricfront.Parameters.Add("@Frontalino", OleDbType.Boolean).Value = FrontalinoCheckBox.CheckState
            Dim legg As OleDb.OleDbDataReader = ricfront.ExecuteReader()
            legg.Read()


            legg.Close()

[frank095]

??