[VB6] Errore di sintassi in query di UPDATE con condizione WHERE

[bbgol]

cosa ho sbagliato????

vi posto il codice


Dim SQL As String ' COMANDO SQL A SECONDA CHE SI TRATTI DI UNA INSERT O DI UN UPDATE
Dim conferma As String ' MESSAGGIO DI CONFERMA (SECONDO LO STESSO CRITERIO DESCRITTO SOPRA)

' COME SOPRA...

Set cn2 = New ADODB.Connection
Set rs2 = New ADODB.Recordset

cn2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\clienti.mdb"
SQL = "UPDATE tabella SET " _
& "(codicefiscalevend, nomevend, cognomevend, datanascitavend, comunenascitavend, viaven, residenzavend, nven, telefonovend, viaac, marca, nac, modello, cilindrata, telaio, targa, dataentrata, datauscita, valutazione, prezzovendita, costomanutenzione, guadagno, agenzia, codicefiscaleac, nomeac, cognomeac, datanascitaac, comunenascitaac, residenzaac, telefonoac) " _
& "VALUES " _
& "('" & Replace(txtcodfisven.Text, "'", "''") & "', " _
& "'" & Replace(txtnomeven.Text, "'", "''") & "', " & "'" & Replace(txtcognomeven.Text, "'", "''") & "', " _
& "'" & Replace(txtdatanascitaven.Text, "'", "''") & "', " _
& "'" & Replace(txtcomuneven.Text, "'", "''") & "', " & "'" & Replace(txtvia.Text, "'", "''") & "', " _
& "'" & Replace(txtresiven.Text, "'", "''") & "', " & "'" & Replace(txtn.Text, "'", "''") & "', " _
& "'" & Replace(txttelefonoven.Text, "'", "''") & "', " & "'" & Replace(txtvia1.Text, "'", "''") & "', " _
& "'" & Replace(txtmarca.Text, "'", "''") & "', " & "'" & Replace(txtn1.Text, "'", "''") & "', " _
& "'" & Replace(txtmodello.Text, "'", "''") & "', " _
& "'" & Replace(txtcilindrata.Text, "'", "''") & "', " _
& "'" & Replace(txttelaio.Text, "'", "''") & "', " _
& "'" & Replace(txttarga.Text, "'", "''") & "', " _
& "'" & Replace(txtdataentrata.Text, "'", "''") & "', " _
& "'" & Replace(txtdatauscita.Text, "'", "''") & "', " _
& "'" & Replace(txtvalutazione.Text, "'", "''") & "', " _
& "'" & Replace(txtprezzovendita.Text, "'", "''") & "', " _
& "'" & Replace(txtcostimanutenzione.Text, "'", "''") & "', " & "'" & Replace(txtguadagno.Text, "'", "''") & "', " _
& "'" & Replace(txtagenzia.Text, "'", "''") & "', " _
& "'" & Replace(txtcodicefiscaleac.Text, "'", "''") & "', " _
& "'" & Replace(txtnomeac.Text, "'", "''") & "', " & "'" & Replace(txtcognac.Text, "'", "''") & "', " _
& "'" & Replace(txtdatanascitaac.Text, "'", "''") & "', " & "'" & Replace(txtcomunenascitaac.Text, "'", "''") & "', " _
& "'" & Replace(txtresidenzaac.Text, "'", "''") & "', " _
& "'" & Replace(txttelefonoac.Text, "'", "''") & "')"
SQL = SQL & " where cognomevend=" & txtcognomeven
conferma = "modifica effettuata con successo"


' ESEGUO REALMENTE IL COMANDO SQL CHE ARRIVA ALL'ESTERNO DELLA CONDIZIONE
cn2.Execute (SQL)
lblmessaggio.Caption = conferma

cn2.Close

[EngLab]

SQL = SQL & " where cognomevend=" & txtcognomeven

deve essere

SQL = SQL & " where cognomevend=""" & txtcognomeven & """;"

Se non funziona nemmeno così, vai in debug e nell'immediata scrivi ?SQL . Premi invio e copia qui il risultato, che lo vediamo insieme.

[bbgol]

mi da lo stesso errore

su questa riga

cn2.Execute (SQL)

[EngLab]

Originariamente inviato da EngLab
SQL = SQL & " where cognomevend=" & txtcognomeven

deve essere

SQL = SQL & " where cognomevend=""" & txtcognomeven & """;"

Se non funziona nemmeno così, vai in debug e nell'immediata scrivi ?SQL . Premi invio e copia qui il risultato, che lo vediamo insieme.

[bbgol]

?

[EngLab]

Quando viene generato l'errore, anzichè cliccare su "Fine", clicca su "Debug". Rimarrà evidenziata la riga

cn2.Execute (SQL)

mentre in basso ci sarà una finestrella, si chiama "Immediata". Scrivici dentro "?SQL" senza virgolette e premi invio. Apparirà il contenuto attuale della variabile SQL. Copialo e incollalo qui e vediamo di capire meglio l'errore.

[bbgol]

ecco cosa esce


UPDATE tabella SET (codicefiscalevend, nomevend, cognomevend, datanascitavend, comunenascitavend, viaven, residenzavend, nven, telefonovend, viaac, marca, nac, modello, cilindrata, telaio, targa, dataentrata, datauscita, valutazione, prezzovendita, costomanutenzione, guadagno, agenzia, codicefiscaleac, nomeac, cognomeac, datanascitaac, comunenascitaac, residenzaac, telefonoac) VALUES ('FRSFBA79M10G793C', 'FABIO', 'FRESOLONE', '10/08/1979', 'POLLA', 'jjh', 'BATTIPAGLIA', 'hbhb j', '0828303317', 'hbbjbh', 'HONDA', 'hhbh', 'CBR 600', '900', 'DJFJ3', '683', '26/01/2006', '27/01/2007', '4000', '5000', '1000', '0', 'VACCARO', 'DJDHGH', 'fabio', 'NBH', 'IJIHIU', 'POLLA', 'HKIUUI', '3747') where cognomevend="FRESOLONE";

[bbgol]

praticamente vedendo il risultato la modifica l'ha capita (dove ce il parametro fabio verso la fine) ma non esegue

[oregon]

Originariamente inviato da bbgol
praticamente vedendo il risultato la modifica l'ha capita (dove ce il parametro fabio verso la fine) ma non esegue

Eh?

Comunque ... sei sicuro che alla fine dove c'e' la WHERE ci siano le doppie virgolette ?

[bbgol]

si