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

Delphi-Quellcode:

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?

Delphi-Quellcode:

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.... :wall:

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...

Delphi-Quellcode:

    dbCon1.GetTableNames('',FTableList);

passiert der Fehler.:gruebel:

Gruß Jens

[haentschman]

Moin...
versuch mal:

Delphi-Quellcode:

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

- GetTableNames liefert TStrings zurück
- normalerweise vertragen sich TStrings und TStringlist...wer weiß
- von TStrings brauchst du keine Instanz

PS: FTableList ist lokal deklariert. Wenn du aus dem Create raus bist existiert FTableList nicht mehr. Wenn du dann im OnShow versuchst drauf zuzugreifen gibt es Zugriffsverletzungen.

Probier mal die Variante mit TStrings bzw. mit TSringlist mit einer private deklarierten Variable.

[Jens Hartmann]

Hallo,

da kann der Fehler nicht liegen, da ich auch schon versucht habe die einträge in eine ComboBox zu übernehmen. Und die wäre vom Typ TStrings.

Delphi-Quellcode:

  dbCon1.GetTableNames('',cbTables.Items);

Gruß Jens

[hoika]

Hallo,

die Exception weist auf einen NIL-Zugriff hin.

Sicher, dass das genau dein Code ist ?
Nichts weggelassen ?
Kommt die Exception genauso bei Verwendung von CBTable.Items ?


Heiko

[Jens Hartmann]

Ja, genau so...

hier jetzt über eine Click Event...

Delphi-Quellcode:

procedure TForm8.btn1Click(Sender: TObject);
begin
  dbMon1.FileName := 'MyAppLog.log';
  dbMon1.Active   := True;
  dbMon1.AutoSave := True;
  dbCon1.Connect;
  dbCon1.GetTableNames('',cbTables.Items);
{hier wird später eine Abfrage entstehen um eine nicht vorhandene Tabelle anzulegen!}

{  dbCon1.StartTransaction;
  try
    dbPro1.Execute;
  except
    dbCon1.Rollback;
  end;
  dbCon1.Commit; }
end;

Und genau die selbe Fehlermeldung.

Gruß Jens

[Jens Hartmann]

Delphi-Quellcode:

procedure TForm8.btn1Click(Sender: TObject);
var
  TStringVar : TStrings;
  i : Integer;
begin
  dbMon1.FileName := 'MyAppLog.log';
  dbMon1.Active   := True;
  dbMon1.AutoSave := True;
try
  Memo1.Clear;
  TStringVar := TStringList.Create;
  dbCon.GetTableNames('',TStringVar);
  for i := 0 to TStringVar.Count - 1 do
    begin
      if pos ('$',TStringVar[i]) = 0 then
        Memo1.Lines.Add(TStringVar[i]);
    end;
finally
  TStringVar.Free;
end;

so geht es jetzt. Ich hatte im Anwendungsverzeichnis eine falsche fbclient.dll Datei. Man was ein doofer Fehler.

Danke trotzdem Gruß Jens