[VB6 e Access] errore QRY UPDATE

[raffaeu]

Ciao ho una query che fa l' update del recordset visualizzato nelle caselle di testo ma mi da errore mi dice

'NECESSARIO OGGETTO'

            qry3 = "UPDATE ProdAnagrafica SET Prod_nome =" & txtNome.Text & ",Prod_tipo" & txtTipo.Text & ",Prod_specie=" & txtSpecie.Text & ",Prod_categoria=" & txtCategoria.Text & ",Prod_descrizione=" & txtDescrizione.Text & ",Prod_acqui=" & txtAcquisto.Text & ",Prod_vendi=" & txtVendi.Text
            rs.Open qry3, CN, adOpenKeyset, adLockOptimistic

[xegallo]

2 errori
l'apice prima e dopo un valore stringa
set campo = 'valore'

per lanciarla usa
cn.execute

[ladyBlu]

prima di tutto, stai attento agli apici quando devi inserire delle stringhe

qry3 = "UPDATE ProdAnagrafica SET " & _
    "Prod_nome = '" & txtNome.Text & "'," & _
    "Prod_tipo = '" & txtTipo.Text & "'," & _
    "Prod_specie = '" & txtSpecie.Text & "'," & _
    "Prod_categoria = '" & txtCategoria.Text & "'," & _
    "Prod_descrizione = '" & txtDescrizione.Text & "'," & _
    "Prod_acqui = '" & txtAcquisto.Text & "'," & _
    "Prod_vendi = '" & txtVendi.Text & "'"

    rs.Open qry3, CN, adOpenKeyset, adLockOptimistic

e poi stai attento agli "=", ne hai saltato uno: "Prod_tipo" & txtTipo"

spero che così vada bene

[raffaeu]

la query funziona ma mi aggiorna tutti i record allora ho fatto in questo modo:

scelta = lstMagazzino.SelectedItem 'costruisco il recordset

If txtNome.Text = "" Or txtTipo = "" Or txtSpecie.Text = "" Or txtCategoria.Text = "" Or txtDescrizione.Text = "" Or txtAcquisto.Text = "" Or txtVendita.Text = "" Then
        MsgBox "Campi vuoti!!", vbCritical, "Compilare tutti i campi"
        
        SvuotaText Me
        Else
        Dim rs As ADODB.Recordset
            Set rs = New ADODB.Recordset
            Dim qry3 As String
            qry3 = "UPDATE ProdAnagrafica SET " & _
    "Prod_nome = '" & txtNome.Text & "'," & _
    "Prod_tipo = '" & txtTipo.Text & "'," & _
    "Prod_specie = '" & txtSpecie.Text & "'," & _
    "Prod_categoria = '" & txtCategoria.Text & "'," & _
    "Prod_descrizione = '" & txtDescrizione.Text & "'," & _
    "Prod_acqui = '" & txtAcquisto.Text & "'," & _
    "Prod_vendi = '" & txtVendita.Text & "' WHERE Prod_id = '" & scelta "'"

    rs.Open qry3, CN, adOpenKeyset, adLockOptimistic
            'creo l' addnew
            
            rs.Close
            'ripristino la form allo stato iniziale
            popolaMag
           
            'svuoto le txt
            SvuotaText Me
            Disconnetti
        End If

ma il problema sta nel come passo il where mi da errore di sintassi

[xegallo]

prob_id è un numero? se si niente apice

[raffaeu]

A: grazie adesso funzia!

B: ma allora mi ascolti sometimes, ho visto che hai di nuovo fatto un replace sul tuo avatar!

Questo è il tuo!

:tongue:


Grande xegallo che sai sempre tutto!!

[ladyBlu]

ma che c'avete i messaggi in codice voi due? :master:


vabbè, basta che ti funzia la qry...:tongue:

[xegallo]

Originariamente inviato da raffaeu


B: ma allora mi ascolti sometimes, ho visto che hai di nuovo fatto un replace sul tuo avatar!

Questo è il tuo!

:tongue:


Grande xegallo che sai sempre tutto!!

era provvisorio solo per un'occasione speciale
non cambierei mai il mio mito

fine ot