[ADO]+[VB6] - Salvare e Modificare un recordset!

[Pinco Pallino 2]

CIAO!
Ho un piccolo problema...ho creato un recordset e una connessiona a un db access tramite ADO....tutto funge...i campi vengono caricati...ecc ecc

Se però cerco di salvarli mi da errore...

Ho provato col metodo update ma mi da sto errore (vedi foto)
Inoltre se scrivo nei campi a cui è assegnato un campo del db mi da errore pure li per ogni lettera ke batto!!

CIAO!

[AleX ZeTa]

m... posta il codice.

io in genere uso
ADODB.Connection
ADODB.Recordset

e con quelli (connessione ODBC se non erro) quando leggi devi aprire in un modo (3,3) quando scrivi in un altro (1,2 o 1,3).

[Pinco Pallino 2]

Allora...intanto faccio una premessa ke magari chiarisce di + la situazione poi ti posto il codice!

Ho un form con 3 textbox
E un bottone

(giusto per far un esempio..)

Creo gli oggetti:

Dim Conn As New ADODB.Connection
Dim Recor As New ADODB.Recordset

Private Sub Form_Load()
DataSource = App.Path & "\db1.mdb"
   
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataSource
Conn.Open
Recor.Open "SELECT * FROM query WHERE nome='" & text1.Text & "'", Conn

set text2.dataSource= Recor
    text2.datafield = "cognome"

set text3.dataSource= Recor
    text3.datafield = "indirizzo"
end sub

Sin qui tutto ok! mi carica i dati...ma se provo a modificarli...nn va!!

[Corwin]

Ma se apri la "query" (che immagino sia una query) in access riesci a modificare i dati ? Credo proprio di no.

[Pinco Pallino 2]

beh...una query nn si può modificare...è in sola lettura...

Si lo so ho messo il nome query ma è solo una tabella!

[Pinco Pallino 2]

nn abbandonatemi vi prego!
E' davvero importante!!

[junx]

Ciao.
Prova così:

Dim Conn As New ADODB.Connection
Dim Recor As New ADODB.Recordset

Private Sub Form_Load()
DataSource = App.Path & "\db1.mdb"
   
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataSource
Conn.CursorLocation = adUseClient 
Conn.Open
Recor.LockType = adLockPessimistic Recor.Open "SELECT * FROM query WHERE nome='" & text1.Text & "'", Conn

set text2.dataSource= Recor
    text2.datafield = "cognome"

set text3.dataSource= Recor
    text3.datafield = "indirizzo"
end sub

fammi sapere.

[Pinco Pallino 2]

mi errore di compilazione su:

Recor.LockType = adLockPessimistic Recor.Open "SELECT * FROM query WHERE nome='" & text1.Text & "'", Conn

Poi un'altra cosa
ogni volta ke riapro un nuovo recordser devo usare questa sintassi?

Intendo locktype ecc

grazie 10000!

[junx]

Recor.LockType = adLockPessimistic Recor.Open "SELECT * FROM query WHERE nome='" & text1.Text & "'", Conn

si, non sono andato a capo....

Recor.LockType = adLockPessimistic
Recor.Open "SELECT * FROM query WHERE nome='" & text1.Text & "'", Conn

[Pinco Pallino 2]

Ho risolto dovevo andare a capo!
E mi sa ke mi hai risolto anke il problema principale!!

Sei incredibile!!
GRAXIE