Tabellennamen aus einer TDatabase in eine Stringlist?

[Bigeddie]

Hallo,

Ich möchte über ein TDatabase alle Tabellennamen über GetTableNames in eine Stringlist auslesen.
Leider erhalte ich immer eine Fehlermeldung wenn ich

MyDatabase.GetTableNames(MyList,false); aufrufe.

MyList ist vom Type TStringlist, da es sich dabei TStrings um eine abstrakte Klasse handelt, aber was mache ich falsch?

Gruß

Bigeddie

[marabu]

Hallo Bigeddie,

du hast zwar vergessen die Fehlermeldung mitzuteilen, aber es kommen in erster Linie nur zwei Fehler in Frage: du hast die StringList nicht vorher erzeugt oder die Database-Komponente ist noch nicht im Zustand Connected.

Grüße vom marabu

[Bigeddie]

Danke hat funktioniert, dachte aber da ich nur, daß ich eine direkte referenz auf die Liste in TDatabase bekommen würde und nicht extra ein Objekt bräuchte in welches eine Kopie der Liste übertragen wird.

Gruß
Bigeddie

[WIng2005]

Delphi-Quellcode:

Procedure PAdminDBViewer_Main;
var SL:TStringList;
Begin
mainform.Notebook1.ActivePage:='PAdminDBViewer';

begin

  SL:=TStringList.Create;
  try
    Mainform.ZConnection1.GetTableNames(SL, False);

    Mainform.Memo1.lines.add('Folgende Tabellen sind vorhanden:');
     Mainform.Memo1.lines.Addstrings(SL);
  finally
    SL.free;
  end;
end;


end;

Bei mir kommt immer: [Fehler] PAdminDBViewer.pas(24): Es gibt keine überladene Version von 'GetTableNames', die man mit diesen Argumenten aufrufen kann

Nutze D7 und Zeos auf MYSQL

MFG
Steffen

[marabu]

Hallo Steffen,

was passiert, wenn du beim Aufruf von GetTableNames() die richtigen Argumente übergibst?

procedure GetTableNames(const Pattern: string; List: TStrings); Freundliche Grüße

[WIng2005]

Fehler entdeckt:

Mainform.ZConnection1.GetTableNames(SL, False);
in
Mainform.ZConnection1.GetTableNames('',SL);

geändert und geht. Kann es sein, das die, in der Doku gezeigte Syntax von GettableNames
bei SQLConnection eine ander ist, als die, für die TZConnection ?

MFG
Steffen

[mkinzler]

Zitat:

bei SQLConnection eine ander ist, als die, für die TZConnection ?

Ja

[marabu]

Genau so ist es.

[WIng2005]

Na dann .... Stunden verschenkt....

Wie auch immer, nun gehts ja..

Dank euch trotzdem.

MFG
Steffen

[Jens Hartmann]

Hallo zusammen,

ich muss dieses Thema hier mal kurz aufgreifen. Warum kommt bei unten gezeigter Methoden die Fehlermeldung im Anhang?

Delphi-Quellcode:

procedure TForm8.FormCreate(Sender: TObject);
var
  FTableList : TStringList;
  i : Integer;
begin
  FTableExist := False;
  FTableList := TStringList.Create;
  try
    dbMon1.FileName := 'MyAppLog.log';
    dbMon1.Active   := True;
    dbMon1.AutoSave := True;
    dbCon1.Connect;
    dbCon1.GetTableNames('',FTableList);
  finally
    FTableList.Free;
  end;
end;

Die Logdatei zeigt folgendes:

Zitat:

08.01.2011 11:32:41: CONNECT TO "PSSecur" AS USER "SYSDBA"
08.01.2011 11:32:41: TRANSACTION STARTED.
08.01.2011 11:32:41: SELECT DISTINCT a.RDB$RELATION_NAME, a.RDB$SYSTEM_FLAG, a.RDB$VIEW_SOURCE, a.RDB$DESCRIPTION FROM RDB$RELATIONS a

und in der Zeile...

    dbCon1.GetTableNames('',FTableList); passiert der Fehler.

Gruß Jens