AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Tabelle auf existenz überprüfen mit Try, Except

Tabelle auf existenz überprüfen mit Try, Except

Ein Thema von Karstadt · begonnen am 16. Jan 2006 · letzter Beitrag vom 17. Jan 2006
Antwort Antwort
Karstadt

Registriert seit: 8. Nov 2005
788 Beiträge
 
#1

Tabelle auf existenz überprüfen mit Try, Except

  Alt 16. Jan 2006, 16:12
Datenbank: Mysql • Version: 4 • Zugriff über: ODBC
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?
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Tabelle auf existenz überprüfen mit Try, Except

  Alt 16. Jan 2006, 16:21
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...

  Database.GetTableNames(TableList); MfG
Thorsten
  Mit Zitat antworten Zitat
Karstadt

Registriert seit: 8. Nov 2005
788 Beiträge
 
#3

Re: Tabelle auf existenz überprüfen mit Try, Except

  Alt 16. Jan 2006, 16:40
  Mit Zitat antworten Zitat
Abrand

Registriert seit: 16. Jan 2006
Ort: Bayern
9 Beiträge
 
Delphi 6 Enterprise
 
#4

Re: Tabelle auf existenz überprüfen mit Try, Except

  Alt 16. Jan 2006, 17:33
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
Alex
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Tabelle auf existenz überprüfen mit Try, Except

  Alt 16. Jan 2006, 18:21
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
  Mit Zitat antworten Zitat
Benutzerbild von RavenIV
RavenIV

Registriert seit: 12. Jan 2005
Ort: Waldshut-Tiengen
2.875 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: Tabelle auf existenz überprüfen mit Try, Except

  Alt 17. Jan 2006, 08:43
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.
Klaus E.
Linux - das längste Text-Adventure aller Zeiten...
Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz