Zugriff auf MySQL-DB mittels ODBC

Computer: Software & Programmierung Microsoft Access
#1

Hallo Leute!

Ich habe auf einem Rechner eine MySQL-Datenbank installiert und möchte nun mittels ODBC-Treiber von Access aus darauf zugreifen.
Ich habe die Tabellen der MySQL-DB mit Access verknüpft, das Ganze funktioniert eigentlich ganz gut. Nur bei der Ausführung von folgendem Code habe ich Probleme:

dim db as Database
dim rs as Recordset
dim sql as String

Private Sub Befehl0_Click()
set db=CurrentDb
sql=„SELECT * FROM testtab WHERE (((testtab.feld1)=1));“
set rs=db.OpenRecordset(sql)
rs.Edit
rs![feld2]=„irgendwas“
rs.Update
rs.close
End Sub

Bei der Ausführung (Zeile: rs.Update) erhalte ich folgende Fehlermeldung:

Laufzeitfehler ‚3197‘: Das MS Jet-Datenbankmodul hat den Vorgang angehalten, da Sie und ein weiterer Benutzer gleichzeitig versuchen, dieselben Daten zu verändern.

Das Ganze hat nach Anlegen der Tabelle einmal funktioniert, seit dem nicht mehr. Ausserdem ist ausgeschlossen, das ein weiterer Benutzer darauf zugreift.

Was mache ich falsch???

Grüße aus OÖ, wünsche noch nen schönen Tag!

#2

Hallo!

Ich weiss zwar nicht so hundertprozentig, warum das Konstrukt überhaupt funktionierte, aber das mit mySQL und Access über ODBC ist schon manchmal so ne Sache…

Vorschlag für ein alternatives Vorgehen:

Wenn Daten verändert werden sollen, ist UPDATE das Mittel der Wahl.

dim db as Database
dim rs as Recordset
dim sql as String

Private Sub Befehl0\_Click()
 set db=CurrentDb
 sql="UPDATE testtab SET feld2='Irgendwas' WHERE (testtab.feld1)=1)"
 set rs=db.OpenRecordset(sql)
End Sub

Viele Grüße
Thomas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo!

Vorschlag für ein weiteres alternatives Vorgehen:

Private Sub Befehl0_Click()
DIM SQL
sql=„UPDATE testtab SET feld2=‚Irgendwas‘ WHERE(testtab.feld1)=1)“
Docmd.RunSQL sql
End Sub

Gruß Wolfgang