Thema: Delphi GetFieldNames mit ADO

Einzelnen Beitrag anzeigen

japetos

Registriert seit: 30. Aug 2005
Ort: Montreal
58 Beiträge
 
#1

GetFieldNames mit ADO

  Alt 30. Aug 2005, 14:25
Datenbank: MSSQL • Version: 2.8 • Zugriff über: mit ADO
Hallo erstmal an alle Delhpispezialisten!!!

Ich habe folgendes Problem:
So sieht im Mom mein Code aus:
Delphi-Quellcode:
procedure TMainForm.GetTablesT2;
var
   i, j : Integer;
   node, fnode : TTreeNode;
   list : TStrings;
begin
   i := 14; // Database-Nr.: KSH_Programming
   ADOConnection1.GetTableNames(ComboBox1.Items);
   TreeView2.Items.Clear;
   list := TStringList.Create;
   try
      begin
         node := TreeView2.Items.AddChild(nil, ComboBox1.Items[i]);
         ADOConnection1.GetFieldNames(ComboBox1.Items[i], list);
         for j:=0 to list.Count -1 do
         begin
            fnode := TreeView2.Items.AddChild(node, list[j]);
         end;
      end;
   finally
      list.Free;
   end;
end;
Ich moechte jetzt aber nicht die TableNames, sondern direkt auf die FiledNames zugreifen und aus denen den Baum erstellen. Denn im Moment wird ein Bau aus den Spalten der Tabelle erstellt.
Die Tabelle hat 3 Spalten: id, owner_id, bla;
die id mit owner_id=0 soll immer ein Knoten sein.

Ich hoffe ich hab mich nicht unverstaendlich ausgedrueckt.
  Mit Zitat antworten Zitat