ich erstelle eine Abfrage mit ADO+SQL und möchte den abgefragten Datensatz verändern. Mein Code sieht folgendermaßen aus:
Sub Test4()
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H1
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Users\Micha\Documents\My Dropbox\\Test.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
objRecordset.Open "SELECT DISTINCT * FROM [Data$] where Monat = 'November' and Jahr = 2009 and [ _
_
Kostenstelle] ='BBC001'" & _
"and [Kosten / Umsatz] ='Monatsgehalt'", objConnection, adOpenStatic, adLockOptimistic, _
adCmdText
Do Until objRecordset.EOF
Debug.Print objRecordset.Fields.Item("Name")
objRecordset.Fields.Item("RNR") = "HD"
objRecordset.Update
objRecordset.MoveNext
Loop
End Sub
an der Stelle "objRecordset.Fields.Item("RNR") = "HD" bekomme ich eine Fehlermeldung: "Aktualisieren nicht möglich, Datenbank oder Objekt ist schreibgeschützt". Habe es schon mit "objRecordset.Edit" versucht, liefert aber ebenfalls eine Fehlermeldung.
Alle Recherche bzgl. adOpenStatic + adLockOptimistic hat mir nicht wirklich weitergeholfen. Die Antwort ist sicherlich ganz einfach - nur finde ich sie leider nicht.
Wäre super, wenn einer von Euch eine Idee hätte ..
Grüße