Hallo,
beim Auslesen der Tabellenstruktur in der Datenbank bin ich auf das Problem gestoßen, dass ich nicht an den Primary Key herankomme.
Die Daten werden bis jetzt wie folgt ausgelesen:
Delphi-Quellcode:
...
i := 0;
slCodeMaster := TStringlist.Create;
slTableOne := TStringlist.Create;
ExtractConstantIntoStringList(CodeMaster, slCodeMaster);
query_ex.SQL.Clear;
query_ex.SQL.Add('SELECT * FROM Kunde');
query_ex.Open;
query_ex.First;
while not query_ex.Eof do
begin
slTableOne.Add(query_ex.Fields[i].DisplayName);
slTableOne.Add(FieldTypeToString(query_ex.Fields[i].DataType));
slTableOne.Add(IntToStr(query_ex.Fields[i].Size));
Inc(i);
query_ex.Next;
end;
Wie komme ich jetzt noch an den Schlüssel ran?
(Und vielleicht noch nebenbei. Gibt es eine Möglichkeit TFieldType in String umzuwandeln? Ich musste mir dafür jetz ne eigene Funktion schreiben, aber ich bin sicher dass das auch anders geht.
)
Vielen Dank für eure Hilfe
Franz