Datenbank reorganisieren

  • VB6

    Datenbank reorganisieren

    Hi,
    hab mal ne schwere *lööl* frage, geht dieser Code so umzuwandeln, das er noch schneller wird? Dies benötigt bei mir so etwa 45 Minuten Rechenzeit!

    Visual Basic-Quellcode

    1. 'anzDS22 hat ca. 10000 Datensätze (enthält neuen Index)
    2. 'mdb_24 enthält ca. 500000 Datensätze
    4. Open Pfad1 & "24.DAT" For Random As 24 Len = DB24_mdb 'Datendatei öffnen
    5. anzDS24 = LOF(24) / DB24_mdb 'Anzahl DS ermitteln
    6. For I = 1 To anzDS24 'alle DS durchlaufen
    7. Get #24, I, mdb_24 'DS 24 lesen
    8. gefunden = 0 'angenommen nicht gefunden
    9. For J = 1 To anzDS22 'alle sortierten DS
    10. If mdb_24.ID = Val(Mid(Wert(J), 1, 11)) Then 'wenn alte ID gefunden
    11. If gefunden = 0 Then 'und noch nicht umgewandelt
    12. mdb_24.SpielerID = Val(Mid(Wert(J), 12, 11)) 'dann jetzt neuen Index setzen
    13. gefunden = 1 'merke das gefunden
    14. Exit For 'raus aus FOR J
    15. End If '
    16. End If '
    17. Next '
    18. If gefunden = 0 Then mdb_24.SpielerID = 0 'wenn alte ID nicht dann ID auf 0 setzen
    19. Put #24, I, mdb_24 'DS neu speichern
    20. Next '


    Danke für eure Mühe

Facebook
Telefonspende