Ads Error 7038 Invalid record number?

[Grolle]

Hallo,

ich bekomme direkt beim starten der Anwendung folgenden Fehler:

Zitat:

AdsTable1: Error 7038: Invalid record number

Weiß jemand, was das bedeutet?

Viele Grüße...

[Union]

Zitat:

Zitat von Advantage Database Error Guide

Problem: Attempted to read a record and the record number is greater than the number of records in the file. This error often results from using an index that contains more keys than the table has records. This can occur if a Pack or Zap is performed on the table when the index file(s) was closed.

Solution: Reposition to a valid record number. Reindex the index(es) that contain more keys than the table has records.

[Grolle]

Hi,
sollte es dann ausreichen, wenn ich IndexCollationMismatch auf icmReindex einstelle?
Viele Grüße...

[Union]

Nei, Du musst neu indexieren. Zum Beispiel über sp_packtable. Und künftig musst Du darauf achten, dass Die Indexdateien auch geöffnet sind und damit nicht mehr mit dem Inhalt der Tabelle divergieren.

[Grolle]

Hallo,

Zitat:

. Und künftig musst Du darauf achten, dass Die Indexdateien auch geöffnet sind und damit nicht mehr mit dem Inhalt der Tabelle divergieren.

Wie kann ich das erreichen? Das Problem ist bis jetzt noch nie aufgetreten. (Leider auch bei einem User und nicht bei mir selber!)

Viele Grüße...

[Union]

Das kann passieren, wenn der User z.b. ein Backup unvollständig wieder zurückspielt. Dann stimmen die Tabellen nicht mit den Indexdateien überein.

[Grolle]

Hi,

es ist nur eine Tabelle und eine Indexdatei. Bei einer Sicherung der Daten wird der gesamte Ordner (inklusive *.adi und *.adt)
gespeichert. Dieser wird dann beim Backup zurück kopiert bzw. ersetzt. Sonst passiert mit dem Index nur folgendes:

Delphi-Quellcode:

oncreate:
  ADSTable1.IndexName := 'NAME';

gridclick:
  if (ARow = 0) and (ACol = 1) then ADSTable1.IndexName := 'NAME';
  if (ARow = 0) and (ACol = 2) then ADSTable1.IndexName := 'VORNAME';
  if (ARow = 0) and (ACol = 3) then ADSTable1.IndexName := 'STRASSE';
  if (ARow = 0) and (ACol = 5) then ADSTable1.IndexName := 'PLZ'; 
  if (ARow = 0) and (ACol = 6) then ADSTable1.IndexName := 'WOHNORT';  
  if (ARow = 0) and (ACol = 11) then ADSTable1.IndexName := 'DEFINIERBAR';
  if (ARow = 0) and (ACol = 15) then ADSTable1.IndexName := 'GRUPPE';

Backup zurückspielen:
if (copyfile(PChar(pfad +'\adressen.adi'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\adressen.adi')),false)= true) and
          (copyfile(PChar(pfad +'\adressen.adt'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\adressen.adt')),false)= true) then
        begin
        end else
        begin
          AdsConnection1.IsConnected := true;
          AdsTable1.Active := true;
          Statusbar1.Panels.Items[1].Text := IntToStr(ADSTable1.recordcount);
          MessageDlg('     Fehler bei der Wiederherstellung der Datenbank!     ',mtError,[mbOK],0);
        end;

Allerdings werden die Dateien beim Backup ja komplett ersetzt. Kann es da dann wirklich zu dem Fehler kommen?

Viele Grüße...

[Union]

Das ist ja sehr schön. Aber Du protokollierst den Fehler nicht - und wie schnell ist so eine Meldung weggeklickt. Nachher war's natürlich keiner. Und wenn Du mit dem ADS als echter Server-Version arbeitest (nicht die Local-Version), dann werden die Tabellen beim Schliessen der Connection nicht sofort alle geschlossen! Die werden noch eine Weile aus Performancegründen gecached, und zwar die 25 zuletzt benutzten.

Ich verwende dies hier, wenn ich sicher sein will, dass die Tabellen wirklich zu sind:

Delphi-Quellcode:

//------------------------------------------------------------------------
procedure TfrmMain.CloseAllAdsTables;
//------------------------------------------------------------------------
// Alle Tabellen auf jeden Fall schliessen
//------------------------------------------------------------------------
begin
   Ace.AdsCacheopenCursors(0);
   frmData.AdsConnection.CloseCachedTables;
   frmData.AdsConnection.IsConnected := false;
   Ace.AdsCacheopenCursors(25);
end;

[Grolle]

Hi,
ich verwende ausschließlich die Local-Version. Exceptions werden ebenfalls protokolliert. Was da ankommt sieht so aus:

Zitat:

10.07.2006 01:44:34 E/A-Fehler 32 EInOutError ToolBar110.07.2006 01:44:51 E/A-Fehler 32 EInOutError ToolBar110.07.2006 12:05:29 AdsTable1: Error 7038: Invalid record number. EADSDatabaseError Form1

Viele Grüße...

[Union]

Dann kann es vielleicht sein, dass (entweder beim Backup oder beim Restore) zwei Instanzen Deines Programms geöffnet waren?

[Grolle]

Hallo,

da werde ich den User wohl nochmal kontaktieren müssen. Ich melde mich dann nochmal.
Bisher wird im Programm auf jeden Fall nicht verhindert, dass es sich mehrmals öffnen
lässt!

Viele Grüße...

[Der schöne Günther]

Nach 18 Jahren auch von mir: Vielen Dank, das Packen hat die Tabellen wieder repariert.