[VB6] Aggiornamento e modifica di un database

[plasticity]

stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "*********************************"

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open stringa
rs.Open "********************", cn, 3, 3

rs.AddNew
rs("Nome") = txtNome.Text
rs("Cognome") = txtCognome.Text
rs("Eta") = txtEta.Text
rs("Sesso") = txtSesso.Text
rs("Via") = txtIndirizzo.Text
rs("Citta") = txtCitta.Text
rs("Cap") = txtCap.Text
rs("Telefono") = txtTelefono.Text
rs("ComponentiFamiglia") = txtComponentiFamiglia.Text
rs("EtaComponenti") = txtEtaComponenti.Text
rs("Alias") = txtAlias.Text
rs("Cell") = txtCellulare.Text
rs("Note") = txtNote.Text
rs.Update
cmbSeleziona.Clear
Call Form_Load
Set cn = Nothing
Set rs = Nothing

Ho fatto questo per inserire dati all'interno del database. Ma per modificarli invece che struttura devo usare?

[LMondi]

Dipende da come hai strutturato il DB; ad esempio con il seguente codice modifichi un prezzo tenendo conto del suo ID:
Oggetto.ActiveConnection = ConnesInserimento
Oggetto.CommandType = adCmdText

Oggetto.CommandText = "insert into Prezzi(Prezzo,IDPiatti)" _
& "values ('" & Replace(TxtPrezzo.Text, "'", "''") & "','" & Replace(TxtIDPrezzo.Text, "'", "''") & "')"
Oggetto.Execute

[plasticity]

non c'è un modo + semplice usando rs...ecc come ho fatto su?

[LMondi]

Prima devi selezionare l'elemento che ti occorre con la preposizione WHERE (Vedi la guida vi sono diversi esempi) e poi fai la sostituzione.

[power.mobile]

si... anzichè usare rs.AddNew devi fare rs.Edit

[plasticity]

mi da un errore se uso rs.Edit

[power.mobile]

scusa quando fai rs.open che sono tutti quegli asterischi??? lì ci dovrebbe essere l'istruzione SQL con cui selezioni il record da modificare....

[oregon]

Magari invece di dire "mi da' un errore" potresti dire quale errore!

[mgmg]

Ha ragione, non si fà l'edit in ADO, basta l'update
Ciao