Aktualisieren einer Access-Datenbank

[verzweifelt]

Hallo
Keine Ahnung, ob mir von Euch wer weiterhelfen kann, geht nämlich um VB.
Ich muss mit VB Daten in eine Access-Datenbank schreiben, aber nicht neu hinzufügen, sondern vorhandene aktualisieren. Bekomm immer die Fehlermeldung, dass meine Datenbank schreibgeschützt ist, obwohl sie es nicht ist, also muss irgendwas mit den Schaltern nicht stimmen.
Bräuchte ein Beispiel mit passiger Syntax!

Hiiiilfeee!!
Danke

[Gernot Weber]

Hallo Verzweifelter!

Bräuchte ein Beispiel mit passiger Syntax!

Einfacher wärs, wenn Du mal Deine bisherige Syntax posten würdest.

Übrigens: Du hast eine interessante Mail-Adresse. Wo bekommt man denn
sowas? ;-)

Gruss Gernot

[Verzweifelte]

Hallo Gernot
So sieht der Code im Moment aus: hat auch einer per Internet so vorgeschlagen. Bekomm aber immer noch die Fehlermeldung,
dass die Datenbank schreibgeschütz ist ;((

Private Sub Speichern()

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset

Set db = New ADODB.Connection
db.Provider = "microsoft.jet.oledb.3.51"
db.Open "H:\Testprojekt\db1.mdb"
         Set rs = New ADODB.Recordset
         rs.Open "Select * from AllgemeinAbfrage where Servername = '" & Svrname & "'", db, adOpenKeyset, adLockOptimistic
         While Not rs.EOF
            rs![Frequenz] = 1111
            rs.MoveNext
         Wend
         rs.Close
         Set rs = Nothing
         db.Close
         Set db = Nothing

End Sub

[Verzweifelte]

Rückruf!! Vielen Dank nochmal, hab was anderes ausprobiert und es funktionier jetzt!!!
*freu*
Danke ;)

Hallo Gernot
So sieht der Code im Moment aus: hat auch einer per Internet so vorgeschlagen. Bekomm aber immer noch die Fehlermeldung,
dass die Datenbank schreibgeschütz ist ;((

Private Sub Speichern()

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset

Set db = New ADODB.Connection
db.Provider = "microsoft.jet.oledb.3.51"
db.Open "H:\Testprojekt\db1.mdb"
         Set rs = New ADODB.Recordset
         rs.Open "Select * from AllgemeinAbfrage where Servername = '" & Svrname & "'", db, adOpenKeyset, adLockOptimistic
         While Not rs.EOF
            rs![Frequenz] = 1111
            rs.MoveNext
         Wend
         rs.Close
         Set rs = Nothing
         db.Close
         Set db = Nothing

End Sub

[Gernot Weber]

Hallo (Nun nicht mehr) Verzweifelter!

Rückruf!! Vielen Dank nochmal, hab was anderes ausprobiert und es funktionier jetzt!!!
*freu*
Danke ;)

Lass mich an Deiner Freude teilhaben
Habe nämlich auch selten Freude mit Access)
Wie hast Du es gelöst?
Gruss Gernot

[die kollegin der Verzweifelten]

der fehler war, dass die statt auf eine tabelle in der DB auf eine abfrage verwiesen hatte, in die man/frau nicht reinschreibben
kann bzw. darf. (schreibgeschützt) *g*

die kollegin

[stefan(klein geschrieben)]

hi gernot,

Übrigens: Du hast eine interessante Mail-Adresse. Wo bekommt man denn
sowas? ;-)

http://www.internic.net/cgi-bin/whois?whois_nic=yyy.com

sowas gibt es.;-)

ciao
stefan