[Delphi] Hoe lees je veel DBF records uit

[FvH]

Moet een aantal DBF files uitlezen, data eruit lichtelijk verbouwen en vervolgens inserten in een sql-server db.

Nu is dit op zich niet zo moeilijk, maar ik krijg een "Translation error. Out of bound" van de EDBEngine Als ik m'n prog run. Het compiled zonder warnings of whatever.

Ik gebruik TTable om de DBF file in te laden.

code:

  try
    DBFTable.DatabaseName := edtPathDBF.Text;
    DBFTable.TableName := 'INVOICES.DBF';
    DBFTable.Open;
  except
    showmessage('Check je path settings. Het DBF bestand is niet leesbaar!');
  end;

Vervolgens link ik een datasource component aan de ttable. Met de dataset in de datasource lees ik vervolgens de waarden etc. uit en doe de bewerkingen. Vervolgens bouw ik een INSERT query die ik door een adosqlquery laat uitvoeren om hem in de sql-server db te kicken.

ik gebruik een for loop die van 0 t/m dscrDBF.DataSet.RecordCount loopt.

Ik heb met debuggen al gechecked of het toevallig mis gaat op het moment van het uitvoeren van de insert-query. Dit is niet het geval. Ik heb de run meerdere malen gedaan en het gaat ook niet steeds op dezelfde plek mis (record). Het loopt door t/m ongeveer 82000 records, daarna gaat het fout.

Iemand een andere manier hoe ik een DBF file kan doorlopen? Of een oplossing voor dit probleem?

[LordLarry]

Delphi:

DBTable.First;
while not DBTable.EOF do begin
  // Do Something

  DBTable.Next;
end;

[megamuch]

Zou je het met een offset niet kunnen proberen? Dus eerst 0 t/m 50.000 en dan van 50.001/ 100.000 etc.

En wat gebeurt er als je alleen de regels tussen 82.000 en 83.000 pakt? Gaat het dan ook fout?

Als er wat verkeerds in het DBF bestand staat en je checkt dat niet, dan kan er natuurlijk van alles gebeuren.

/just food for thought

[FvH]

Dit gaat al sneller... hij runt nu. Ben benieuwd.

[FvH]

Ik check al m'n vars. Null, Not Null, etc. etc. Type checks. Alles wordt gechecked.

Ik heb al met offsets gechecked. Dat is het probleem niet. Ik kan het wel in stukken doen, maar ik vraag me af tegen welk limiet je aanloopt als je "slechts" 80000 records or so hebt.

[FvH]

While loopje ipv for maakt niets uit.

Wederom: Translation Error. Value out of bounds.

Word hier lichtelijk kriegel van.... deze keer was het weer op record 80072. Vorige keer op 76929.

Iemand een idee hoe dit op te lossen is?

[Boss]

offtopic:
-knopje is ook best handig!

- Wat voor code heb je verder?
- Is er iets 'vreemds' met die records waar 'ie op hangt?

[FvH]

Heb probleem gevonden denk ik. Als ik de CPU output bekijk push hij een register, cleared het gelijk erna en probeerd het vervolgens nog een keer te pop-en. Dit lijkt me geen normale actie. Iemand een idee hoe dit kan? Ik heb het in delphi 7 geprobeerd en delphi 2005.

[FvH]

Boss schreef op donderdag 03 februari 2005 @ 00:10:

offtopic:
[afbeelding] -knopje is ook best handig!

- Wat voor code heb je verder?
- Is er iets 'vreemds' met die records waar 'ie op hangt?

Nee, records zijn gewoon goed. Zowel de client app die op de oude DBF's werkt als MS Access hebben geen problemen om de DBF helemaal te openen en de betreffende records te zien.

[NMe]

Toch is de manier die LordLarry postte de manier om een table uit te lezen. De fout zal dus ergens anders in je implementatie zitten. Laat eens wat meer code zien. En step eens door je code heen om te kijken op welke regel het mis gaat, en welke waarde je variabelen dan hebben. Dit is vrij standaard debugwerk hoor.

Boss schreef op donderdag 03 februari 2005 @ 00:10:

offtopic:
-knopje is ook best handig!

^^