[VB6] Errore "Tipi di dati non corrispondenti nell'espressione di criterio"

[terry79]

infatti, è la prima volta che entro in un forum! grazie per l'interessamento!
questo è il codice che ho


If cmbSelRimanenza.Text <> "" Then
s = Split(cmbSelRimanenza.Text, " - ")
MsgBox CInt(s(0))
End If

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\Eurotec\Desktop\rimanenze\rimanenze.mdb"
If cmbSelRimanenza.Text = "" Then
sql = "INSERT INTO rimanenze " _
& "(codArticolo, descrArticolo, codCategoria, Cliente, DataOrdine, QuantOrdinata, PrezzoOrdinato, Fornitore1, Fornitore2, Fornitore3, NoteAgg, DataEvasione, QuantEvasa, PrezzoEvaso, Evaso) " _
& "VALUES " _
& "('" & Replace(cmbCodArticolo.Text, "'", "''") & "', " _
& "'" & Replace(txtDescrArticolo.Text, "'", "''") & "', " _
& "'" & Replace(txtCodCategoria.Text, "'", "''") & "', " _
& "'" & Replace(txtCliente.Text, "'", "''") & "', " _
& "'" & Replace(txtDataOrdine.Text, "'", "''") & "', " _
& "'" & Replace(txtQuantOrd.Text, "'", "''") & "', " _
& "'" & Replace(txtPrezzoOrdine.Text, "'", "''") & "', " _
& "'" & Replace(txtForn1.Text, "'", "''") & "', " _
& "'" & Replace(txtForn2.Text, "'", "''") & "', " _
& "'" & Replace(txtForn3.Text, "'", "''") & "', " _
& "'" & Replace(txtNote.Text, "'", "''") & "', " _
& "'" & Replace(txtDataEvasione.Text, "'", "''") & "', " _
& "'" & Replace(txtQuantEvas.Text, "'", "''") & "', " _
& "'" & Replace(txtPrezzoEvas.Text, "'", "''") & "', " _
& "'" & Replace(chkEvaso.Value, "'", "''") & "')"
conferma = "Inserimento dati effettuato con successo"
Else
MsgBox "Aggiornamento " & CInt(s(0))
sql = "UPDATE rimanenze SET " _
& "CodArticolo = '" & Replace(cmbCodArticolo.Text, "'", "''") & "', " _
& "DescrArticolo = '" & Replace(txtDescrArticolo.Text, "'", "''") & "', " _
& "CodCategoria = '" & Replace(txtCodCategoria.Text, "'", "''") & "', " _
& "Cliente = '" & Replace(txtCliente.Text, "'", "''") & "', " _
& "DataOrdine = '" & Replace(txtDataOrdine.Text, "'", "''") & "', " _
& "QuantOrdinata = '" & Replace(txtQuantOrd.Text, "'", "''") & "', " _
& "PrezzoOrdinato = '" & Replace(txtPrezzoOrdine.Text, "'", "''") & "', " _
& "Fornitore1 = '" & Replace(txtForn1.Text, "'", "''") & "', " _
& "Fornitore2 = '" & Replace(txtForn2.Text, "'", "''") & "', " _
& "Fornitore3 = '" & Replace(txtForn3.Text, "'", "''") & "', " _
& "NoteAgg = '" & Replace(txtNote.Text, "'", "''") & "', " _
& "DataEvasione = '" & Replace(txtDataEvasione.Text, "'", "''") & "', " _
& "QuantEvasa = '" & Replace(txtQuantEvas.Text, "'", "''") & "', " _
& "PrezzoEvaso = '" & Replace(txtPrezzoEvas.Text, "'", "''") & "', " _
& "Evaso = '" & Replace(chkEvaso.Value, "'", "''") & "' " _
& "WHERE (IdRimanenze = '" & CInt(s(0)) & "');"
conferma = "Modifica dati effettuato con successo"

End If
con.Execute (sql)
MsgBox conferma
con.Close
cmbSelRimanenza.Clear
cmbCodArticolo.Clear
end if


Call Form_Load

[Stefano1984Mn]

Che errore ti da?

[terry79]

errrore di run time '-2147217913 (80040e07)'
micosoft / driver ODBC microsoft Access - tipi di dati nn corrispondenti nell'espressione di criterio


potresti aiutarmi???

l'errore me lo continua a dare nell'ELIMINAZIONE e nell'aggionrnamento la mia query di eliminazione è :
con.Execute ("DELETE * FROM rimanenze WHERE IdRimanenze = '" & CInt(s(0)) & "';")

mentre quella di aggiornamento è


sql = "UPDATE rimanenze SET " _
& "CodArticolo = '" & Replace(cmbCodArticolo.Text, "'", "''") & "', " _
& "DescrArticolo = '" & Replace(txtDescrArticolo.Text, "'", "''") & "', " _
& "CodCategoria = '" & Replace(txtCodCategoria.Text, "'", "''") & "', " _
& "Cliente = '" & Replace(txtCliente.Text, "'", "''") & "', " _
& "DataOrdine = '" & Replace(txtDataOrdine.Text, "'", "''") & "', " _
& "QuantOrdinata = '" & Replace(txtQuantOrd.Text, "'", "''") & "', " _
& "PrezzoOrdinato = '" & Replace(txtPrezzoOrdine.Text, "'", "''") & "', " _
& "Fornitore1 = '" & Replace(txtForn1.Text, "'", "''") & "', " _
& "Fornitore2 = '" & Replace(txtForn2.Text, "'", "''") & "', " _
& "Fornitore3 = '" & Replace(txtForn3.Text, "'", "''") & "', " _
& "NoteAgg = '" & Replace(txtNote.Text, "'", "''") & "', " _
& "DataEvasione = '" & Replace(txtDataEvasione.Text, "'", "''") & "', " _
& "QuantEvasa = '" & Replace(txtQuantEvas.Text, "'", "''") & "', " _
& "PrezzoEvaso = '" & Replace(txtPrezzoEvas.Text, "'", "''") & "', " _
& "Evaso = '" & Replace(chkEvaso.Value, "'", "''") & "' " _
& "WHERE (IdRimanenze = '" & CInt(s(0)) & "');"



dove s = Split(Split(cmbSelRimanenza.Text, " - "))

[terry79]

OK!!! ci sono quasi ho trovato l'errore
Quando inserisco tutti i dati nel form nn mi dà più alcun errore, ma se devo compilare parzialmente il form cos'altro devo dichiarare??