Prüfen ob Tabelle existiert

[fanavity]

Hallo,

wie genau kann ich prüfen ob eine Tabelle existiert? Wenn ich dem Query1 eine Variable zuweise und diese anschließend prüfen will, passiert rein garnichts..

Delphi-Quellcode:

Query1.close;
     Query1.sql.clear;
     test2 := Query1.sql.add('SELECT COUNT( * ) FROM sysobjects WHERE name = "'+tabelle+'"');
     Query1.Open;
     showmessage(IntToSTr(test2));

Der gibt mir kein fenster aus... Denn ich will, bevor ich die tabelle beschreibe prüfen ob sie vorhanden ist.. Denn folgendes klappt irgendwie nicht:

Delphi-Quellcode:

Query1.sql.add('IF EXISTS (SELECT * FROM dbo.SYSOBJECTS WHERE name="'+tabelle+'")');
          Query1.sql.add('INSERT INTO '+tabelle+' (ID, test, test2, test3, test4)');
          Query1.sql.add('VALUES (:id, :test, :test2, :test3, :test4)');

Hat da jemand vielleicht eine Idee?

Denn wenn Fall eins klappen würde, könnte ich in Delphi ne einfache If-Abfrage machen und ggf die Tabelle befüllen oder ne MSG-Box ausgeben das sie erst erstellt werden muss..

PS: Bei der Variante eins gibt er mir immer eine Fehlermeldung: Query1: Das Feld 'id' wurde nicht gefunden

[Jumpy]

sowas vllt.:

Delphi-Quellcode:

function table_exists(tabelle:String):Boolean
//...
Query1.sql.clear;
Query1.sql.add('SELECT COUNT( * ) FROM sysobjects WHERE name = "'+tabelle+'"');
Query1.Open;
Result:=Query1.Active and (Query1.RecordCount>0);

[DeddyH]

Was enthält wohl der RecordCount bei einer Aggregatabfrage wie COUNT? :zwinker:

[fanavity]

FUnktioniert leider auch nicht :(

Hat sonst noch jemand eine Idee?

[FredlFesl]

Das macht das Programm aber ganz schon abhängig von dem verwendeten RDBMS.

Deine ADOConnection kennt alle Tabellen:

Delphi-Quellcode:

MyADOConnection.GetTableNames(myStringList);
If myStringList.IndexOf('MyTable')=-1 then
  ShowMessage('Tabelle nicht vorhanden');

[DeddyH]

Wie wäre es mit GetTableNames und dann nachsehen, ob die entsprechende Tabelle in der Liste enthalten ist?

[edit] Wo war der rote Kasten? [/edit]

[Jumpy]

Zitat:

Zitat von DeddyH (Beitrag 1124017)

Was enthält wohl der RecordCount bei einer Aggregatabfrage wie COUNT? :zwinker:

OhOh. Slopy and Haste Error:

Code:

Query1.sql.add('SELECT * FROM sysobjects WHERE name = "'+tabelle+'"');

war gemeint :oops:

[Phoenix]

Zitat:

Zitat von fanavity (Beitrag 1124009)

Delphi-Quellcode:

Query1.close;
     Query1.sql.clear;
     test2 := Query1.sql.add('SELECT COUNT( * ) FROM sysobjects WHERE name = "'+tabelle+'"');
     Query1.Open;
     showmessage(IntToSTr(test2));

Yeah! SQL Injection for the win!

Code:

tabelle := tabelle + '; DROP TABLE ' + tabelle + ';'

Mal im ernst: Wer SQL Statements unparametrisiert mit strings zusammenbaut frisst auch kleine Kinder :shock:

[fanavity]

Er kennt GetTableNames nicht.. Gibt es das in Delphi 5 schon? Und ich benutze nur die Database,Datasource und Query Komponente sowie das DBGrid von Delphi 5..

[DeddyH]

Hast Du mal auf meinen Link geklickt? Da steht, wo es alles GetTableNames gibt, in Deiner Auflistung ist da auch etwas dabei.

[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.

[jobo]

Hast Du schon mal geschaut, wie es mit Groß/Kleinschreibung in Sysobjects steht?

[p80286]

vielleicht hilft Dir das hier weiter:
"On its own, calling "exec sp_tables" will simply list all the tables and views for the current database, as shown in the following example resultset:"
http://www.electrictoolbox.com/list-tables-sql-server/

Gruß
K-H

[Jumpy]

Vllt. solltest du mit den genannten hinweisen nochmal von vorne Anfangen:
Irgendeine Anzeigemöglichkeit (Grid o.ä.) mit einer Query verbinden und dann mal
Select * From sysobjects
anzeigen lassen, um zu sehen, ob du die benötigten Rechte hast.
Vllt. auch mal INFORMATION_SCHEMA.TABLES probieren.
Da mal "manuell" gucken, ob da Test1 (das ist doch der Tabellenname?) dabei ist?

Erst wenn das klappt, das Ganze mal in eine eigene Funktion (mit eigener Query usw.) packen, die auf die existent eines übergebenen Tabellennamens prüft.

[FredlFesl]

Nebenbei, GetTableNames wird laut Guhgel von der TSession-Komponente bereitgestellt, vielleicht auch in D5.