Inserimento nuovo record

[Stefanik]

Ciao, volendo inserire un nuovo record in un DB ho creato questa procedura......grazie anche a voi

Private Function svuotacampi()
txtNome = ""
txtIndirizzo = ""
txtProvincia = ""
txtRagione = ""
txtTelefono1 = ""
txtTelefono2 = ""
txtNote = ""
End Function
________________________________
Private Function sbloccacampi()
txtNome.Locked = False
txtIndirizzo.Locked = False
txtProvincia.Locked = False
txtRagione.Locked = False
txtTelefono1.Locked = False
txtTelefono2.Locked = False
txtNote.Locked = False

End Function

________________________________

Private Sub cmdAggiungi_Click()
Rs.AddNew
svuotacampi
sbloccacampi
cmdAnnulla.Visible = True
cmdPrimo.Visible = False
cmdUltimo.Visible = False
cmdSuccessivo.Visible = False
cmdPrecedente.Visible = False
End Sub
__________________________

Private Sub cmdSalva_Click()
Rs("CognomeNome") = txtNome
Rs("Indirizzo") = txtIndirizzo
Rs("Provincia") = txtProvincia
Rs("RagioneSociale") = txtRagione
Rs("Telefono") = txtTelefono1
Rs("TelefonoSecondario") = txtTelefono2
Rs("Note") = txtNote

Rs.Update
End Sub
____________________________________



........ma non mi fuziona. Non inserisce niente nel db, nè mi restituisce errori.
Ovviamente apro la connessione con il db nel form_load.
Utilizzo funzioni di movefirst,movelast,movenext,moveprevious, e funzionano tutte.

Grazie

[xegallo]

prima di inserire le txt nel recordset devi fare rs.addnew

[Stefanik]

Come al solito hai ragione
L' addnew io lo inserivo nel tasto di aggiungi.

Grazie tante.

[Stefanik]

Ah!
I record che inserisce e anche quelli che cancello tramite delete non li va a scrivere nel db.
Infatti finchè il mio progetto rimane aperto visivamente vedo sia i nuovi record inseriti, sia quelli cancellati, ma se chiudo e riapro il progetto tutto è come se non avessi fatto midifiche!
L'update lo faccio...

Private Sub cmdSalva_Click()
Rs.AddNew
Rs("CognomeNome") = txtNome
Rs("Indirizzo") = txtIndirizzo
Rs("Provincia") = txtProvincia
Rs("RagioneSociale") = txtRagione
Rs("Telefono") = txtTelefono1
Rs("TelefonoSecondario") = txtTelefono2
Rs("Note") = txtNote

Rs.Update
End Sub
_______________________

Private Sub cmdRimuovi_Click()
Rs.Delete
Rs.Update
Rs.MoveLast
scrivivalore

Cn.Close
Set Cn = Nothing
End Sub



Avete qualche idea?

[Stefanik]

Un'altra cosa la connessione al db la apro in questo modo:

Cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=GetsMag.mdb;"
Cn.CursorLocation = adUseClient
q = "SELECT * FROM Clienti"
Rs.Open q, Cn, adOpenDynamic, adLockBatchOptimistic

[Stefanik]

Trovato :adhone:
Aprendo il recordest in modo adLockBatchOptimistic non posso utilizzare la funzione update, o meglio update funziona come aggiornamento sul form, ma per rendere effettive le modifiche, bisogna usare la funz. UpdateBatch.