Extreme Veteran
Beiträge: 582
 
| 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 |
