Är det någon som kan hjälpa mig. Jag vet inte hur jag ska skriva för att updatera poster i databasen Jag får felmedelande om att det är READ ONLY. när jag använder en knapp och objrs.addNew

Dim objrs As ADODB.Recordset
Dim objcon As ADODB.Connection


Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub Form_Load()
Dim str As String
Set objrs = New ADODB.Recordset
Set objcon = New ADODB.Connection

objcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\Register.mdb"
objcon.CursorLocation = adUseClient
objcon.Open

Set objrs = objcon.Execute("SELECT * FROM persId")


Set txtFNamn.DataSource = objrs
txtFNamn.DataField = "fNamn"


Set txtLNamn.DataSource = objrs
txtLNamn.DataField = "lNamn"




End Sub

Skriv istället:

objrs.Open "SELECT * FROM persId", objcon, adOpenKeyset, adLockOptimistic, adCmdText


Fullständigt exempel. Lagt till felhantering:
Option Explicit

Private objrs As ADODB.Recordset
Private objcon As ADODB.Connection

Private Sub Form_Load()
On Error GoTo Form_Load_Err
Set objrs = New ADODB.Recordset
Set objcon = New ADODB.Connection

objcon.CursorLocation = adUseClient
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\Register.mdb"

objrs.Open "SELECT * FROM persId", objcon, adOpenKeyset, adLockOptimistic, adCmdText

Set txtFNamn.DataSource = objrs
txtFNamn.DataField = "fNamn"

Set txtLNamn.DataSource = objrs
txtLNamn.DataField = "lNamn"

Form_Load_Exit:
Exit Sub

Form_Load_Err:
MsgBox Err.Description, vbCritical
Unload Me
Resume Form_Load_Exit

End Sub