XE7 FireDac TFDConnection.GetTableNames auf Firebird = abstract error

[Perlsau]

Moin allerseits

Ich will mein IbDac zurück

Seit ein paar Tagen arbeite ich nun remote an einem Rechner im Ruhrgebiet, bis der Programmierer Mitte Januar aus'm Urlaub zurück ist. Im Verlauf des Projekts muß ich alle Tabellen zahlreicher Datenbanken verschiedenster DBMS auslesen, analysieren und die so gewonnenen Daten sichern, was ich im Falle einer Firebird-DB mit TFDConnection.GetTableNames versucht habe:

Delphi-Quellcode:

Function TInfoFireBird.Tabellen: Boolean;
Var
  Liste : TStrings;

begin
  Liste := TStrings.Create;
  Try
    Try
      FBCon.GetTableNames('','','',Liste,[osMy],[tkTable]);

Das liefert mir leider eine Fehlermeldung zurück, obwohl die Syntax korrekt zu sein scheint (kein Compilerfehler):
Im Projekt ****.exe ist eine Exception der Klasse EAbstractError mit der Meldung 'Abstrakter Fehler' aufgetreten.

Die drei leeren Strings sollen "normalerweise" beinhalten:
ACatalogName, ASchemaName beschränken Tabellennamen auf den Katalog und das Schema.
APattern ist das LIKE-Muster zum Filtern der Tabellennamen.

Wenn ich als APattern das Like-Zeichen % eintrage, kommt dieselbe Fehlermeldung:
FBCon.GetTableNames('','','%',Liste,[osMy],[tkTable]); Katalog- und Schemanamen gibt es ja bei Firebird nicht, das sind glaub ich Begriffe aus MySQL bzw. MsSQL

Falls ich den Rechner dort zum Absturz bringe, muß ich den Nachbarn anrufen, der die Kiste dann neu startet
Das muß ich natürlich unter allen Umständen vermeiden, ist ja quasi eine Bewährungsprobe

Die Verbindungsfunktion sieht so aus:

Delphi-Quellcode:

Function TInfoFireBird.Verbinden: Boolean;
begin
  Try
    FBCon.Connected := False;
    FBCon.Params.Clear;
    FBCon.Params.Append('DriverID=FB');
    FBCon.Params.Append('CharacterSet=UTF8');
    FBCon.Params.Append('Database=' + DateiName);
    FBCon.Params.Append('User_Name=' + DBI.DbUser);
    FBCon.Params.Append('Password=' + DBI.DbPass);
    FBCon.Params.Append('ExtendedMetadata=True');
    FBCon.DriverName := 'FB';
    FBCon.Connected := True;
    Result          := True;
  Except
    on e:exception Do
    Begin
      Result := False;
      Fehlertext := 'Fehler bei Verbindung mit "' + DateiName + '": ' + e.Message;
    End;
  End;
end;

In der Hilfe ist ein Fehler: Die Syntax der Methode wird mit drei Strings als Parameter dargestellt, unten im Beispiel werden jedoch vier leere Strings als Parameter übergeben. Drei sind aber richtig, bei vieren kommt ein Compilerfehler.

[mikhal]

Hilft zwar nicht konkret bei deinem Problem, aber hast du schon versucht, die Tabellennamen über die Metadaten zu ermitteln. Siehe z.B. hier.

Grüße
Michael

[Lemmy]

Hi,

EAbstractError deutet ja darauf hin, dass das Programm versucht eine Methode einer KLasse aufzurufen, die nicht implementiert ist (in einer abgeleiteten Klasse eine in der Elternklasse als abstract; eingeführte Methode). D.h. Du kannst da vermutlich übergeben was Du willst - ich vermute, dass der Weg der falsche ist... Sind die FireDAC Sourcen bei dir dabei? Dann könntest Du mal durchdebuggen und schauen wo es knallt.

[Perlsau]

Zitat von mikhal:

Hilft zwar nicht konkret bei deinem Problem, aber hast du schon versucht, die Tabellennamen über die Metadaten zu ermitteln. Siehe z.B. hier.

Moin Mikhal, das war mein nächster Gedanke. Allerdings weiß ich noch nicht, ob dieser Weg die Unterscheidung zwischen Tabellen und Views ermöglicht ... Mit GetTableNames soll das ja angeblich gehen ...

Zitat von Lemmy:

Hi, EAbstractError deutet ja darauf hin, dass das Programm versucht eine Methode einer KLasse aufzurufen, die nicht implementiert ist (in einer abgeleiteten Klasse eine in der Elternklasse als abstract; eingeführte Methode). D.h. Du kannst da vermutlich übergeben was Du willst - ich vermute, dass der Weg der falsche ist... Sind die FireDAC Sourcen bei dir dabei? Dann könntest Du mal durchdebuggen und schauen wo es knallt.

Moin Lemmy, das werd ich jetzt gleich mal versuchen ... So, jetzt weiß ich mehr:

In der Unit FireDAC.Comp.Client knallt es in der procedure TFDCustomConnection.GetTableNames, und zwar nach dem zweiten Try beim Versuch, die übergebene Liste zu leeren: AList.Clear; (Zeile 4764). Was stimmt denn mit meiner Liste nicht?

[Sir Rufo]

**hüstel**

Schau mal in die Doku TStrings

Du willst bestimmt eine TStringList-Instanz erzeugen

[Perlsau]

Mithüstel

Natürlich muß es heißen Liste := TStringList.Create;

Danke, Sir Rufo, Du bist einfach unersetzlich

Achso: Jetzt geht's natürlich

[Perlsau]

Die Sache ist allerdings noch nicht ganz gegessen: Wenn ich eine Datenbank angebe, die überprüft 17 Tabellen besitzt, bleibt die Liste dennoch leer. Leider ist die Dokumentation der Parameter von GetTableNames äußerst dürftig. Dennoch hab ich herausgefunden, daß man sich vom TFDPhysObjectScopes osMy nicht beirren lassen darf, denn damit erhält man 0 Tabellen, zumindest in allen Firebird-Datenbanken, die ich eben mal kurz damit getestet habe. Man muß dagegen osOther angeben, womit man die selbst angelegten Tabellen erfaßt. Vielleicht bedeutet das My ja, daß es für MySQL-Datenbanken gilt und nicht "my tables" So von wegen intuitiv und so ...

Erwähnt sei das Ganze sozusagen der Vollständigkeit halber, wenn da mal jemand das gleiche Problem hätte ...

[Bernhard Geyer]

Hat wirklich der User die Tabellen angelegt oder sieht er sie nur?
http://docwiki.embarcadero.com/Libra...y.ObjectScopes

Bei MySQL könnte ich mir auch vorstellen das hier je nach Version die Kennzeichnung "Diese Tabelle hat der eingelockte User angelegt" nicht eindeutig/stabil bestimmbar ist.

[Perlsau]

Das weiß ich nicht, den mit osMy werden keine Tabellen gezählt. Muß ich mal bei mir zu Hause testen, derzeit meldet sich die Anwendung bei den diversen Datenbanken, die gezählt und analysiert werden sollen, natürlich mit SYSDBA und MASTERKE (bzw. mit den entsprechend geänderten Zugangsdaten, die ich hier aber nicht verrate ) an, sonst müßte man ja erstmal alle Tabellen händisch durchgehen und die jeweiligen Zugangsdaten eingeben, von denen ich derzeit gar nicht weiß, wo mein Auftraggeber sie abgelegt hat.

[Sir Rufo]

Eine gänge Alternative sollte wohl [osMy, osOther] sein, dann bekommt man auf jeden Fall alle Tabellen ausgenommen die SystemTabellen.