Forum: Datenbanken
Delphi
by Jelly,
27. Sep 2005
Hab mich an die TADOConnection.GetTablesNames angelehnt, und bin zu folgendem funktionierendem Code gelangt.
procedure TMailTableName.FillTableNames(Names: TStringList);
var
aRS : _RecordSet;
aConn : _Connection ;
aOleV : OleVariant;
sSQL : string ;
FConnection : string ;
Info : TMailDatabaseInfo ;
i : integer ;
Forum: Datenbanken
Delphi
by Jelly,
27. Sep 2005
Genau. Nur dass ich eben nicht mit TADODataset arbeite.
Forum: Datenbanken
Delphi
by Jelly,
27. Sep 2005
Ich sitz grad etwas auf dem Schlauch. Über folgende Methode liste ich mir alle Tabellenfelder in eine StringList. Das klappt auch.
procedure TMailFieldName.FillFieldNames (Names : TStringList) ;
var
aRS : _RecordSet;
aOleV : OleVariant;
sSQL : string ;
FConnection : string ;
Info : TMailDatabaseInfo ;
i : integer ;
begin