Datenbank update

[autakia]

Hallo Leute,
ich habe da ein problem ich möchte meine datenbank Access 2000 updaten über die ADO schnitstelle aber ich bekomme dan die Fehlermeldung 3251
Das Aktuellerecordset unterstütz keine Aktualisierung. Hierbei handelt es sich möglicherwise um einschränkung des providers oder des gewählten Lock types

cn.Provider = "Microsoft.Jet.oledb.3.51"
cn.Open "C:\Dokumente und Einstellungen\Autakia\Eigene Dateien\Lagerhalle\db2.mdb", "admin", ""
cn.BeginTrans
Set cmdbefehl.ActiveConnection = cn
cmdbefehl.CommandType = adCmdTable
cmdbefehl.CommandText = strveranstalltung
Set rs = cmdbefehl.Execute
cn.BeginTrans
rs.Fields("Veranstalltungsname").Value = strveranstalltung
rs.Fields("Sitzplatz").Value = rowzahl
rs.Fields("Reihe").Value = colzahl
rs.Fields("Besetzt").Value = True
rs.Fields("Preis").Value = 13
rs.Update
cn.CommitTrans
mit adnew klapte es auch nicht vielleicht weiss jeamnd weiter

 

[wincnc]

Versuch´s mal so:
Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Provider = "Microsoft.Jet.OLEDB.4.0" ' 4.0 für Access 2000
cn.Open "C:\Dokumente und Einstellungen\Autakia\Eigene Dateien\Lagerhalle\db2.mdb", "admin", ""

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM DeineTabelle", cn, adOpenDynamic, adLockOptimistic
End Sub

Private Sub Command1_Click()
rs.AddNew
rs.Fields("Veranstalltungsname").Value = strveranstalltung
rs.Fields("Sitzplatz").Value = rowzahl
rs.Fields("Reihe").Value = colzahl
rs.Fields("Besetzt").Value = True
rs.Fields("Preis").Value = 13
rs.Update
End Sub

 

[autakia]

danke für deine Antwort ich hatte es dann selbst ebengerade herausgefunden
das ich adLockOptimistic noch in den open String einzufügen habe, aber noch mals vielen Dank für deine Bemühungen
greets Autakia