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]