bei folgendem Code kommt der Fehler 3027 - Datenbank ist schreibgeschützt in der Zeile mit rec.edit.
Was mache ich falsch? Da war doch was mit Cursortypen, aber wo gebe ich die an??? (und wie).
Sub Test()
Dim wks As Workspace
Dim conn As Connection
Dim rec As Recordset
Dim sqlstring As String
Set wks = DBEngine.CreateWorkspace("ODBCWorkspace", "", "", dbUseODBC)
Set conn = wks.OpenConnection(" ", dbDriverComplete, True, "ODBC;DSN=xxx;Description=xxx;SERVER=xxx;UID=xxx_dev;PWD=xxx;DATABASE=xxx")
sqlstring = "SELECT Name FROM xxx "
Set rec = conn.OpenRecordset(sqlstring, dbOpenDynaset)
Do Until rec.EOF
rec.Edit
rec!name = "Toast"
rec.Update
rec.MoveNext
Loop
rec.Close
conn.Close
Set conn = Nothing
End Sub
Bitte helft mir
Vielen Dank
Nils
Noch eine Zusatzfrage: Wie müsste der ConnectionString für eine Verbindung ohne DSN aussehen?