[VB6] Query di aggiornamento e operazione non consentita

[^EvAmPiReS^]

Scusate ma dove sbaglio?

Private Sub CommandSvuota_Click()

Dim sql As String

Data.DatabaseName = App.Path & "\xxx.mdb"

sql = "   update Ospite "
sql = sql & "     set numerostanza = 0 "
sql = sql & "      where numerostanza = " & TextNumStanza & " "


Data.RecordSource = sql

Data.Refresh

End Sub

Quando eseguo la query mi dà:

"Errore di run-time 3219 Operazione non valida"

[Veronica80]

come ti connetti al db?
che db è?
com'è strutturato?

[oregon]

Se devi usare le frasi SQL di UPDATE, INSERT, DELETE, allora non utilizzare il controllo Data.

Ma più in generale, lascia stare il controllo Data in quanto e' veramente obsoleto.

Se vuoi programmare con i DB, utilizza gli oggetti ADO (non usare controlli ...) e i suoi metodi.

[^EvAmPiReS^]

So che Data è ormai datato, ma sono al 90% di un progetto e vorrei evitare di annullare tutto il mio lavoro...
Mi connetto al db Access con quel poco codice che ho postato, dove ho una tabella Ospite con una colonna "numerostanza" che vorrei settare a zero nel caso abbia il valore inserito dall'utente.
Potete darmi qualche consiglio per risolvere su questo codice?

[^EvAmPiReS^]

Non lo so, mi son improvvisamente ricordato di dover aprire il DB in scrittura

Private Sub CommandSvuota_Click()

Dim sql As String

Dim ws As Workspace

Dim db As Database
   
Set ws = Workspaces(0)

Set db = ws.OpenDatabase(App.Path & "\xxx.mdb", False, False)

sql = "   update Ospite osp"
sql = sql & "     set osp.numerostanza = 0 "
sql = sql & "      where osp.numerostanza = " & TextNumStanza & " "

db.Execute sql

End Sub

Grazie comunque, alla prossima senza DATA (molto presto credo).

[oregon]

No ... la soluzione e' dovuta al fatto che hai abbandonato l'uso del Data Control (come ti invito ancora a fare) e, quanto meno, hai utilizzato il modello ad oggetti di DAO.

In questo modo con la Execute dell'oggetto Database, hai potuto risolvere ... ma non con il recordset del controllo Data ...

In ogni caso ... passa ad ADO ...