Tabelle auf existenz überprüfen mit Try, Except

[Karstadt]

Hallo.

Ich möchte gerne folgende Funktion für Überprüfung auf Existenz einer Tabelle verwenden:

Try
TTable.Tablename:='xyz';
TTable.Open;
Except
Showmessage('tabelle nicht da');
exit;
end;

Nun habe ich aber zwei Fehlermeldungen eine vo TTable eine andere von (Showmessage).

1) Wie kann ich die erste FMeldung deaktivieren?
2) Ist diese Funktion überhaupt dafür geiegnet?

[omata]

Moin,

wenn du über ODBC auf die Datenbank zugreifst, dann benutzt du doch hoffentlich TDatabase?

Wenn das so ist, kannst du doch einfach alle Tabellen auslesen...

Delphi-Quellcode:

  Database.GetTableNames(TableList);

MfG
Thorsten

[Karstadt]

:hello:

[Abrand]

Hallo,

noch ein kleiner Hinweis.
In den meisten Datenbanken kann man auch in deren Metadaten nach
der Existenz von Tabellen, Triggern, Feldern usw. suchen.

In Firebird kann man folgende SQLs dazu verwenden:

SQL-Code:

select * from RDB$RELATIONS --für die Suche nach Tabellen 
select * from rdb$triggers --für die Suche nach Trigger-Programmen 
select * from rdb$fields --für die Suche nach einem Feld

Vielleicht gibt es sowas auch für MySQL?
Das Laden von allen Tabellen in eine StringList etc. könnte bei größeren
Datenbanken etwas länger dauern...

Viele Grüsse

[omata]

Danke für den Hinweis, wenn man allerdings die BDE benutzt denke ich mal wird diese genau das in der jeweilige Datenbank machen. Sprich GetTableNames wird genau solch eine Abfrage machen und alles lesen. Das ist ja gerade die Idee der BDE gewesen sich nicht um spezielle Befehle der einzelnen Datenbanken kümmern zu müssen.

Was du meinst, ist vermutlich eine SQL-Anweisung gleich auf die Suche/Prüfung einer Tabelle einzuschränken, damit das Ganze dann schneller geht.

Allerdings kann man ja auch beim Programmstart einmal alle Tabellen lesen und diese dann auswählbar machen. Dann ist die positive Logik (Ich teste nicht alles was es gibt sondern lese und übergebe nur das was es gibt) auch wieder hergestellt.

So bleibt man unabhängig von der verwendeten Datenbank (wenn man schon die BDE verwendet)

MfG
Thorsten

[RavenIV]

hier eine Methode, die funktioniert:

Delphi-Quellcode:

// testet, ob eine Tabelle schon in der DB vorhanden ist
// benutzt dazu Metadata
function TDbTable.ExistInDb (TableName : String): Boolean;
var
  TableFound: Boolean;
  ZSQLMetadata: TZSQLMetadata;
  DSSQLMetadata: TDataSource;
begin
  Result := False;
  ZSQLMetadata := TZSQLMetadata.Create (self);
  DSSQLMetadata := TDataSource.Create (self);
  ZSQLMetadata.Connection := FmyConnection;
  DSSQLMetadata.DataSet := ZSQLMetadata;

  // Spalten aus Tabelleninfo (Metadata) auslesen
  ZSQLMetadata.MetadataType := mdTables;
  ZSQLMetadata.Catalog := LowerCase (FTableDatabase);
  ZSQLMetadata.Open;
  TableFound := False;
  while not DSSQLMetadata.DataSet.Eof and (TableFound = FALSE) do
  begin
    if LowerCase (DSSQLMetadata.DataSet.FieldByName ('TABLE_NAME').Text) = LowerCase (TableName) then
    begin
      TableFound := True;
      Result := True;
    end;
    DSSQLMetadata.DataSet.Next;
  end;

  //aufräumen
  ZSQLMetadata.Free;
  DSSQLMetadata.Free;
end;

da dies nur ein Ausschnitt aus einem meiner Projekte ist, brauchst Du evtl. noch weitere Teile meines Projektes (z.B. TDbTable.Create). Falls ja, dann einfach per PN melden.