Tabellennamen aus einer TDatabase in eine Stringlist?

[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