1:
2:
3:
4:
5:
6:
7:
8:
9:

// ****
// **** Tabellen
// ****
Adoconnection1.GetTableNames(List: TStrings; [Systemtables :Boolean = False]);

// ****
// **** Felder einer Tabelle
// ****
Adoconnection1.GetFieldNames(const TableName, List: TStrings);					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TFrmMain.FormCreate(Sender: TObject);
var
  NameList : TStrings;
begin
  // Initialisierung
  DataModule2.ADOConnectionMain.GetTableNames(NameList);
  LBTables.Items := NameList;
end;					

1:

DataModule2.ADOConnectionMain.GetTableNames(LBTables.Items);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

var i : Integer;
    Felddefinition : TFieldDef;
    Feldname, FeldTypStr : String;
    Feldtyp : TFieldType;
    Feldgroesse : Integer;
begin
  ADOConnection1.Open;
  Adoconnection1.GetTableNames(ListBox1.Items);
  Adoconnection1.GetFieldNames('Tabellenname', ListBox2.Items);
  for i:=1 to ADOTable1.FieldDefs.Count do
    begin
      Felddefinition:=ADOTable1.FieldDefs[i-1];
      Feldname:=Felddefinition.Name;
      Feldtyp:=Felddefinition.DataType;
      Feldgroesse:=Felddefinition.Size;
      case Feldtyp of
        ftString      : FeldTypStr:='String';
        ftDate        : FeldTypStr:='Datum';
        ftBoolean     : FeldTypStr:='Boolean';
        ftFloat       : FeldTypStr:='Float/Double';
        ftUnknown     : FeldTypStr:='Unbekannt oder nicht definiert';
        ftSmallint    : FeldTypStr:='16-Bit-Integer';
        ftInteger     : FeldTypStr:='32-Bit-Integer';
        ftWord        : FeldTypStr:='Vorzeichenloser 16-Bit-Integer';
        ftCurrency    : FeldTypStr:='Währungsfeld';
        ftBCD         : FeldTypStr:='Binärcodiertes Dezimalfeld, das ohne Präzisionsverlust in ein Währungsfeld konvertiert werden kann';
        ftTime        : FeldTypStr:='Zeitfeld';
        ftDateTime    : FeldTypStr:='Datums-/Zeitfeld';
        ftBytes       : FeldTypStr:='Feste Bytezahl (binäre Speicherung)';
        ftVarBytes    : FeldTypStr:='Variable Bytezahl (binäre Speicherung)';
        ftAutoInc     : FeldTypStr:='32-Bit-Integer-Zählerfeld';
        ftBlob        : FeldTypStr:='BLOB-Feld (Binary Large OBject)';
        ftMemo        : FeldTypStr:='Textmemofeld';
        ftGraphic     : FeldTypStr:='Bitmapfeld';
        ftFmtMemo     : FeldTypStr:='Memofeld für formatierten Text';
        ftParadoxOle  : FeldTypStr:='Paradox-OLE-Feld';
        ftDBaseOle    : FeldTypStr:='dBASE-OLE-Feld';
        ftTypedBinary : FeldTypStr:='Typisiertes Binärfeld';
        ftCursor      : FeldTypStr:='Ausgabecursor einer Stored Procedure von Oracle (nur TParam)';
        ftFixedChar   : FeldTypStr:='Zeichenfeld fester Länge';
        ftWideString  : FeldTypStr:='Langes Stringfeld';
        ftLargeint    : FeldTypStr:='Großes Integerfeld';
        ftADT         : FeldTypStr:='Feld für abstrakte Datentypen';
        ftArray       : FeldTypStr:='Arrayfeld';
        ftReference   : FeldTypStr:='REF-Feld';
        ftDataSet     : FeldTypStr:='Datenmengenfeld';
        ftOraBlob     : FeldTypStr:='BLOB-Felder in Oracle 8-Tabellen';
        ftOraClob     : FeldTypStr:='CLOB-Felder in Oracle 8-Tabellen';
        ftVariant     : FeldTypStr:='Daten eines unbekannten oder nicht definierten Typs';
        ftInterface   : FeldTypStr:='Schnittstellenreferenzen (IUnknown)';
        ftIDispatch   : FeldTypStr:='IDispatch-Schnittstellenreferenzen';
        ftGuid        : FeldTypStr:='GUID-Werte (Globally Unique IDentifier)';
        ftTimeStamp   : FeldTypStr:='Datums-/Zeitfeld, auf das über DBExpress zugegriffen wird';
        ftFMTBcd      : FeldTypStr:='Feld für binärcodierte Dezimalwerte, die für ftBCD zu groß sind';
      end;           
                     
      StringGrid1.Cells[0,i]:=Feldname;
      StringGrid1.Cells[1,i]:=FeldTypStr;
      StringGrid1.Cells[2,i]:=IntToStr(Feldgroesse);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TDataModule2.ADOTable1AfterOpen(DataSet: TDataSet);
begin
  // alle Tabellen angeben
  ADOConnectionMain.GetTableNames(Unit1.FrmMain.LBTables.Items);
  // alle Felder der gewählten Tabelle angeben
  ADOTable1.GetFieldNames(Unit1.FrmMain.LBFields.Items);
end;