Einzelnen Beitrag anzeigen

Ducksoul

Registriert seit: 19. Apr 2006
Ort: Ilmenau
87 Beiträge
 
RAD-Studio 2009 Pro
 
#1

TADOQuery Primary Key auslesen

  Alt 9. Feb 2010, 10:56
Datenbank: Access • Zugriff über: ADO
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
Franz
  Mit Zitat antworten Zitat