[VB6] Aggiorna contenuto campo

[Massimo Moretti]

Buon fine settimana

Utilizzo VB6 per estrarre, modificare dati da un DB di Access.
Con un click sul pulsante dovrei sostituire il contenuto di un campo che corrisponde ad un determinato criterio:
[CODE]Private Sub Cmd_Update_Click()
Dim Aggiorna As String
Aggiorna = "UPDATE Tbl_Running SET Tbl_Running.Scarpa = '" & TXT_Modifica.Text & "' WHERE ((Tbl_Running.Scarpa = '" & Txt_Scarpa.Text & "'))"
Set rs = New adodb.Recordset
rs.Open Aggiorna, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Running_VB.mdb", adOpenKeyset, adLockOptimistic, adCmdText
Set rs = Nothing

End Sub
[CODE]

dove:
TXT_Modifica.Text= dato da modificare
Txt_Scarpa.Text= Dato modificato

Ho provado ad eseguire il comando aprendo solamente un form, e funziona, ma il form che dovrà eseguire quel comando viene aperto con un click su un Datagrid proveniente da un altra maschera, ed in questa condizione, non avviene nessuna modifica ma non mi segnala nessun errore.

??

[mgmg]

Forse non sente aperta la connessione al data base? Come l'hai dichiarata Public o Private

Prova, se vuoi, questo codice:

        Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Running_VB.mdb", ;Persist Security Info=False"
        Db.Execute "UPDATE Tbl_Running SET Tbl_Running.Scarpa = '" & TXT_Modifica.Text & "' WHERE ((Tbl_Running.Scarpa = '" & Txt_Scarpa.Text & "'))"