Ursache für Aufblähen Access DB gesucht
PeterDoering
Gesendet: 11.11.19 17:31
Betreff: RE: Ursache für Aufblähen Access DB gesucht



Extreme Veteran

Beiträge: 563
5002525
Hallo,

CGa - 11.11.19 14:25
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

Einen Grund kann ich dir nicht nennen, aber alternative Ansätze:

1. Per SQL statt des Loops:
- TransferText mit Option acLink, um die Textdatei zu verknüpfen.
- SQL Statement statt Loop für den Update:

UPDATE Daten AS D INNER JOIN Stamm_PZN AS S ON D.pzn = S.pzn
SET D.ATC=S.ATC, D.DDD=S.DDD, D.Biosim=S.Biosim, D.BTM=S.BTM
WHERE D.[vo-datum]>=S.Stand

(Luftcode)

2. Update in einer eigenen temporären mdb/accdb ausführen. Dann findet das Aufblähen in dieser statt und du kannst sie nach Gebrauch wegwerfen.

Meine erste Wahl wäre 1.

-----
Gruss - Peter
Top of the page Bottom of the page