ACC2003 Felder Updaten - Fehler 3197

08/06/2009 - 18:52 von Stefan Brand | Report spam
Hallo,

ich arbeite mit WinXP-SP2 und Access2003-SP2 und einem MySQL-Server.

Auf dem Server habe ich eine Datenbank, diese inzwischen 1,2 Mio Datensàtze
hat und ich muss nun ein neues Feld zur Tabelle hinzufügen und mit Werten
füllen.

Ich habe mir zum befüllen des neuen Feldes das beigefügte Script erstellt.
Ich habe volle Berechtigungen auf die MySQL-Tabelle und kann einzelne Daten
auch über Access veràndern. Wenn ich jedoch das Script starte, bekomme ich
bei der Befehlszeile: „rs.Update“ immer den Fehler: Das Microsoft
Jet-Datenbankmodul hat den Vorgang angehalten, da Sie und ein weiterer
Benutzer gleichzeitig versuchen, dieselben Daten zu veràndern.

Ich arbeite aber definitiv alleine auf der Tabelle und einen defekt der
Datenbank kann ich zu 99% ausschließen, da alle anderen Funktionen
funktionieren.

Was mache ich falsch?


Sub DateiEndungenErmitteln()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strDatei As String
Dim strAktEndung As String
Dim intI As Integer
Dim dblAktDS As Double

Set db = CurrentDb()
Set rs = db.OpenRecordset(conTabelle, dbOpenDynaset)

Do While rs.EOF = False
dblAktDS = dblAktDS + 1

If Len(rs("DateiName").Value) > 0 Then
strDatei = rs("PfadZurDatei").Value
Do
intI = intI + 1
strAktEndung = Right(strDatei, intI)
Loop Until Left(Right(strDatei, intI + 1), 1) = "." Or
Left(Right(strDatei, intI + 1), 1) = "\"

rs.Edit
rs("DateiEndung").Value = strAktEndung
rs.Update
End If
rs.MoveNext
intI = 0
Loop

rs.Close
db.Close
End Sub
 

Lesen sie die antworten

#1 Thomas Möller
08/06/2009 - 20:56 | Warnen spam
Hallo Stefan,

Stefan Brand schrieb:
ich arbeite mit WinXP-SP2 und Access2003-SP2 und einem MySQL-Server.

Auf dem Server habe ich eine Datenbank, diese inzwischen 1,2 Mio Datensàtze
hat und ich muss nun ein neues Feld zur Tabelle hinzufügen und mit Werten
füllen.

Ich habe mir zum befüllen des neuen Feldes das beigefügte Script erstellt.
Ich habe volle Berechtigungen auf die MySQL-Tabelle und kann einzelne Daten
auch über Access veràndern. Wenn ich jedoch das Script starte, bekomme ich
bei der Befehlszeile: „rs.Update“ immer den Fehler: Das Microsoft
Jet-Datenbankmodul hat den Vorgang angehalten, da Sie und ein weiterer
Benutzer gleichzeitig versuchen, dieselben Daten zu veràndern.

Ich arbeite aber definitiv alleine auf der Tabelle und einen defekt der
Datenbank kann ich zu 99% ausschließen, da alle anderen Funktionen
funktionieren.



hast Du Saschas Hinweise aus Deinem Thread vom 20.5.2009 in m.p.d.a
schon umgesetzt?
http://groups.google.com/group/micr...bf4cceb4de
(Link in einer Zeile)
(Letzter Absatz: Primàrschlüssel, Timestamp)


Eventuell hilft Dir auch eine Anpassung der Konfiguration:
http://groups.google.com/group/micr...eb8a8b97fe
(Link in einer Zeile)


HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen