Primärschlüssel per BDE bestimmen

[Foo316]

Hallo,
ich bestimme mit der unteren Funktion den Primärschlüssel von Tabellen in einer Firebird-Datenbank.

Delphi-Quellcode:

procedure GetPrimaryKey();
begin
   Check(DbiOpenIndexList(FDatabase.Handle,PChar(TableName),nil,hCur));
   try
      while (DbiGetNextRecord(hCur,dbiNoLock,@idx,nil) = DBIERR_NONE) do begin
         if idx.bPrimary then begin
            // mache was mit dem Primärindex
         end;
      end;
   finally
      Check( DbiCloseCursor(hCur) );
   end;
end;

Es funktioniert auch grundsätzlich aber nicht bei allen Tabellen.
Hat jemand einen Tipp woran es liegen könnte?

[edit=alcaeus]Delphi-Tags eingefuegt. Bitte in Zukunft selbst machen. Danke :) Mfg, alcaeus[/edit]

[Foo316]

[edit=alcaeus]Delphi-Tags eingefuegt. Bitte in Zukunft selbst machen. Danke :) Mfg, alcaeus[/edit][/quote]

Sorry und Danke.

hab selbst was rausgefunden.
Sieht nach einem BDE-Problem aus :-(

Scheinbar liegt es daran, das die BDE die Primärschlüssel daran erkennt, dass der Indexname, den der Primärschlüssel nutzt (nicht der Name des Primärschlüssel), mit

SQL-Code:

RDB$PRIMARY...

beginnt.
Dieser ist in der Systemtabelle

SQL-Code:

RDB$RELATION_CONSTRAINTS

in der Spalte

SQL-Code:

RDB$INDEX_NAME

zu finden.

Bei den Tabellen zu den ich keinen Primärschlüssel bekomme, ist nämlich der Indexname gleich dem Primärschlüsselnamen!

Schade. Muß ich wohl die Systemtabellen bemühen, um den Primärschlüssel zu bestimmen.