[VB6] Update Database

[chiamatekatia]

Scusate...Non me ne intendo niente per cui devo chiedere a voi...Io ho questo codice che dovrebbe uppare un database mysql:

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stringa As String

Private Sub cmdConferma_Click()
Dim percorso As String
Dim Configura As String
Dim Configura2 As String
Configura = txtConfigura1.Text
Configura2 = txtConfigura2.Text
percorso = "database.mdb"
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & percorso
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    cn.Open stringa
    rs.Open "update Configurazione set Metallo = '" & Configura & "', Cristallo = '" & Configura2 & "' where id = 1", cn, 1

    Set cn = Nothing
    Set rs = Nothing

End Sub

Ma mi fa: Per l'operazione è necessaria una query aggiornabile

Cosa devo fare? :master:

[Johnny_Depp]

specificare linguaggio e versionenel titolo, come da regolamento, please (->VB6)

a me pare che tu stia tentando di connetterti ad un database access (.mdb) non mysql!

il problema della "query aggiornabile" (se non ricordo male) è legato al server (windows+access=IIS) non al database... devi settare i permessi di lettura/scrittura sul server

[chiamatekatia]

Scusa per il titolo..E' vero ma prendendo un po' di codice qua un po' di la ho ottenuto sta cosa qua che adesso mi rendo conto essere infattibile

Come si fa dunque un update in un database access

[Johnny_Depp]

leggendo queste dovresti risolvere (devi settare i permessi, non da VB)

http://forum.html.it/forum/search.ph...by=&sortorder=

http://forum.html.it/forum/search.ph...by=&sortorder=

(leggi tutto ciò che è inerente alle "query aggiornabili")

[oregon]

Sostituisci la riga

rs.Open "update Configurazione set Metallo = '" & Configura & "', Cristallo = '" & Configura2 & "' where id = 1", cn, 1

con

rs.Open "update Configurazione set Metallo = '" & Configura & "', Cristallo = '" & Configura2 & "' where id = 1", cn, adOpenDynamic

e poi, devi chiudere il recordset e la connessione in questo ordine prima di eliminare gli oggetti ...

rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing

In realta' potevi usare direttamente il metodo Execute della connection senza usare un recordset.

[chiamatekatia]

Adesso mi fa: L'operazione non è consentita se l'oggetto è chiuso

[oregon]

Ma in quale linea di codice?

[chiamatekatia]

Facendo il debug mi indica questa:

rs.Close

[oregon]

Ma nel codice che ti ho mostrato, tra la rs.Open e la rs.Close, cosa hai aggiunto ?

[chiamatekatia]

Niente