Prüfen ob Tabelle existiert

[fanavity]

Ja ich habe auf deinen Link geklickt.

Wenn ich jedoch dann

Delphi-Quellcode:

Database1.GetTableNames(ListBox1.Items, False);

Eingebe, erhalte ich eine Fehlermeldung das GetTableNames ein undefinierter Bezeichner sei.

[DeddyH]

Das ist ja ein Ding, ich hätte geschworen, dass es diese Methode schon ewig gibt. Delphi 5 habe ich leider nicht zur Verfügung und kann daher nicht nachsehen, wie das sonst gehen könnte.

[fanavity]

Schade.. Hat vielleicht sonst noch jemand einen Rat für mich :)?

[DeddyH]

Jep: weg von der BDE hin zu ADO. Da gibt es auch unter Delphi 5 bereits GetTableNames, hier ein Artikel dazu.

[fanavity]

Ja das hilft mir jetzt leider nicht weiter.. Da ich nicht alles umstricken möchte.. Es muss doch auch so eine Lösung geben das abzufragen..

[Jumpy]

Was ist denn mit meinem Ansatz in #2 berichtigt durch #7 und wenn das klappt, dann wie in #8 impliziert mit Query-Parametern umsetzen?

[Singlepin]

Von MSSQL hab ich keine Ahnung, aber SHOW TABLES gibt es da wohl nicht.
Aber mit

SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE Table_NAME= '...';

sollt es gehen, wenn man die Rechte hat.

[jobo]

Vielleicht darfst Du gar nicht auf SYSOBJECTS zugreifen?
Ebenso bringt die Existenz in Sysobjects keine Aussage darüber, ob Du auf der gesuchten Tabelle SELECT, UPDATE, INSERT, .. ausführen darfst.
Ich kenne die Dictionary Views von MSSQL nicht, aber hier solltest Du jedenfalls ein geeignetes Objekt abfragen (das auch die Berechtigungen für den aktiven User beeinhaltet)

Alternativ kannst Du (als ADMIN) ein entsprechenden View für Deine Anwendung bauen und Ihn mit den nötigen Grants ausstatten.

Außerdem dürfte die Anzahl der Sysobjects relativ groß sein und es gibt RDBMS, die beim Zugriff (mit count(*) usw. ) nicht gerade schnell sind.

[fanavity]

Mit der Variante sagt er mir das Test1 nicht existiert

Delphi-Quellcode:

     Query1.sql.clear;
     Query1.sql.add('SELECT * FROM sysobjects WHERE name = "'+tabelle+'"');
     Query1.Open;
     Result:=Query1.Active and (Query1.RecordCount>0);
     if result then result1 := '1' else result1 := '0';
     ShowMessage(Result1);

Das mit dem Parametisieren habe ich noch nicht so ganz verstanden.

[FredlFesl]

Wie wäre es mit Try-Except?

Delphi-Quellcode:

Try
  DoTheUpdate();
  ShowMessage('Hurra! Daten eingetragen');
Except
  ShowMessage('Mist, irgendwas ging schief');
End;

Man kann die Exception auswerten, denn wenn Du sowieso auf die BDE setzt, dann kannst Du auch mit den entsprechenden Exceptions rechnen.

Du könntest auch ein Skript zusammenbauen... In der BDE gibt es diese sehr sinnige TUpdateSQL, und im UpdateSQL-Skript solltest Du mit der IF EXISTS - Abfrage zum Ziel kommen. Du müsstest nur noch auswerten, wie viel Records (0 oder 1) verändert wurden. Mit ein wenig Glück sagt dir die Komponente das. Und wenn nicht, schaust Du einfach nach oder machst einen UPDATE-Trigger... Das ist aber dann von hinten durch die Brust ins Auge, geht aber.