New user
Beiträge: 2
| Für eine statistische Auswertung muss ich Daten, die in Form von Textdateien (UTF8) bis 200 MB Größe eingehen, in eine Tabelle in Access einlesen und verarbeiten. Im letzten Jahr gab es dabei keinerlei Probleme, zB:
Datenbankgröße vor dem Einlesen: 5MB
Textdatei einzulesen: 170MB
Datenbankgröße nach dem Einlesen der Textdatei: 500MB
Tabelle mit Inhalt aus Textdatei in der Datenbank: 1,7 Mio Datensätze mit etwa 120 Zeichen je Datensatz
Datenbankgröße nach dem Verarbeiten: 900MB
Datenbankgröße nach dem Komprimieren: 500MB
In diesem Jahr bleibe ich hängen, weil die Datenbank das Limit erreicht.
Das passiert in folgender Prozedur:
Dim d As New ADODB.Recordset, s As New ADODB.Recordset
d.Open "select * from Daten order by pzn desc, [vo-datum] desc;", CurrentProject.Connection, adOpenForwardOnly, adLockPessimistic '
s.Open "select * from Stamm_PZN order by pzn desc, [stand] desc;", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly '
d.MoveFirst
s.MoveFirst
Do
Select Case True
Case d!pzn < s!pzn
s.MoveNext
If s.EOF = True Then Exit Do
Case d!pzn > s!pzn
d.MoveNext
If d.EOF = True Then Exit Do
Case Else
'If d![vo-datum] >= cJJJJ & s!stand Then 'ABDATA
If d![vo-datum] >= s!stand Then 'WIDO
d!ATC = s!ATC
d!DDD = s!DDD
d!Biosim = s!Biosim
d!BTM = s!BTM
d.MoveNext
If d.EOF = True Then Exit Do
Else
s.MoveNext
If s.EOF = True Then Exit Do
End If
End Select
Loop
Recordset d enthält Bewegungsdaten. Diese sollen zu einem Datum (vo-datum) mit zu dem Zeitpunkt gültigen Stammdaten (gültig ab stand) aus s ergänzt werden.
Wenn ich durch die Prozedur debugge, verändert sich die DB-Größe wie folgt:
Start der Prozedur 456 MB
Recordset d öffnen danach 456 MB (1,8 Mio. DS)
Recordset s öffnen danach 456 MB (150T DS)
Do … Loop 2,1 GB werden vor Beendigung der Schleife erreicht
Datenbank, Code, Tabellen und Datenaufkommen sind im Grunde genommen gleich. Einzige Variable scheint mir mein neuer Rechner zu sein, Win 10, 64 Bit.
Vorher Win 7, 64 Bit mit Office Professional 2010.
Auf dem neuen Rechner wurde dasselbe Office-Paket wie auf dem alten PC installiert.
Ich bin ratlos, was kann dieses Aufblähen verursachen?
|