AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Tabellenname als Variable im Script, SQL
Thema durchsuchen
Ansicht
Themen-Optionen

Tabellenname als Variable im Script, SQL

Ein Thema von haentschman · begonnen am 19. Mär 2014 · letzter Beitrag vom 20. Mär 2014
Antwort Antwort
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.387 Beiträge
 
Delphi 12 Athens
 
#1

Tabellenname als Variable im Script, SQL

  Alt 19. Mär 2014, 16:29
Datenbank: NEXUS • Version: 3 • Zugriff über: SQL
Hallo...

Hintergrund:
http://www.delphipraxis.net/179605-a...n-per-sql.html

Das Script:
...geht alle Tabellen durch, guckt ob AutoInc Feld vorhanden, wenn ja, Feldnamen holen und den AutoInc korrigieren. Das ist der Gedanke.
Code:
DECLARE @aTableName VARCHAR(100);
DECLARE @aAutoIncField VARCHAR(100);
DECLARE @aFieldName VARCHAR(100);

DECLARE TableCursor CURSOR FOR
    SELECT table_name FROM #tables WHERE AutoInc_Engine <> '';
OPEN TableCursor;
FETCH NEXT FROM TableCursor INTO @aTableName;
WHILE @@FETCH_STATUS = 0 DO
    DECLARE FieldCursor CURSOR FOR
        SELECT field_name FROM #fields where table_name = @aTableName and field_type_nexus = 'nxtAutoInc';
    OPEN FieldCursor;
    FETCH NEXT FROM FieldCursor INTO @aAutoIncField;
    IF @@FETCH_STATUS = 0 THEN
        ALTER TABLE @aTableName ALTER COLUMN @aAutoIncField CAST AS Integer IGNORE; <--
        ALTER TABLE @aTableName ALTER COLUMN @aAutoIncField CAST AS AutoInc IGNORE; <--
    END IF;
    CLOSE FieldCursor;
    FETCH NEXT FROM TableCursor INTO aTableName;
END WHILE;
CLOSE TableCursor;
Fehler im Alter Table Statement:
Die Variablen @TableName und @AutoIncField werden vom Parser direkt als Namen verwendet. Wie kann ich die Variablen als Tabellenname bzw. Feldname verwenden?

Danke für Info´s


Lösung gefunden:
... selbst zusammenbauen und als SQL String übergeben
Code:
IF @@FETCH_STATUS = 0 THEN
    EXECUTE IMMEDIATE 'ALTER TABLE ' + @aTableName + ' ALTER COLUMN ' + @aAutoIncField + ' CAST AS Integer IGNORE';
    EXECUTE IMMEDIATE 'ALTER TABLE ' + @aTableName + ' ALTER COLUMN ' + @aAutoIncField + ' CAST AS AutoInc IGNORE';
END IF;

Geändert von haentschman (19. Mär 2014 um 17:06 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von joachimd
joachimd

Registriert seit: 17. Feb 2005
Ort: Weitingen
678 Beiträge
 
Delphi 12 Athens
 
#2

AW: Tabellenname als Variable im Script, SQL

  Alt 20. Mär 2014, 09:02
Code:
IF @@FETCH_STATUS = 0 THEN
    EXECUTE IMMEDIATE 'ALTER TABLE ' + @aTableName + ' ALTER COLUMN ' + @aAutoIncField + ' CAST AS Integer IGNORE';
    EXECUTE IMMEDIATE 'ALTER TABLE ' + @aTableName + ' ALTER COLUMN ' + @aAutoIncField + ' CAST AS AutoInc IGNORE';
END IF;
Zur Sicherheit solltest Du die Bezeichner noch quoten (falls sie Leerzeichen oder sonstige Sonderzeichen enthalten) und evtl trimmen:
Code:
IF @@FETCH_STATUS = 0 THEN
    EXECUTE IMMEDIATE 'ALTER TABLE [' + trim(@aTableName) + '] ALTER COLUMN [' + trim(@aAutoIncField) + '] CAST AS Integer IGNORE';
    EXECUTE IMMEDIATE 'ALTER TABLE [' + trim(@aTableName) + '] ALTER COLUMN [' + trim(@aAutoIncField) + '] CAST AS AutoInc IGNORE';
END IF;
Joachim Dürr
Joachim Dürr Softwareengineering
http://www.jd-engineering.de
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.387 Beiträge
 
Delphi 12 Athens
 
#3

AW: Tabellenname als Variable im Script, SQL

  Alt 20. Mär 2014, 09:09
Danke für den Hinweis.

Da ich aber weiß auf welche Datenbank ich das loslasse und das Script keine allgemeingültige Verwendung findet, denke ich das das nicht notwendig ist.
  Mit Zitat antworten Zitat
Benutzerbild von joachimd
joachimd

Registriert seit: 17. Feb 2005
Ort: Weitingen
678 Beiträge
 
Delphi 12 Athens
 
#4

AW: Tabellenname als Variable im Script, SQL

  Alt 20. Mär 2014, 12:12
Da ich aber weiß auf welche Datenbank ich das loslasse und das Script keine allgemeingültige Verwendung findet, denke ich das das nicht notwendig ist.
Ich weiß, dass ich auf dem Weg ins Büro keinen Unfall baue und daher lege ich den Sicherheitsgurt nicht an!? Hoffentlich wissen das auch die anderen
Joachim Dürr
Joachim Dürr Softwareengineering
http://www.jd-engineering.de
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#5

AW: Tabellenname als Variable im Script, SQL

  Alt 20. Mär 2014, 12:31
Ich weiß, dass ich auf dem Weg ins Büro keinen Unfall baue und daher lege ich den Sicherheitsgurt nicht an!? Hoffentlich wissen das auch die anderen
Eher so: Ich fahre als Einziger auf meinem Privatflugfeld und lege daher den Sicherheitsgurt nicht an. Andere gibt es hier nicht, es ist seine Datenbank, die Tabellennamen haben keine Leerzeichen... Also: Man benötigt am FKK-Strand weder Hosenträger noch Gürtel (obwohl, wie komm ich dann zum Auto ?)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#6

AW: Tabellenname als Variable im Script, SQL

  Alt 20. Mär 2014, 16:19
Wenn die SQL-Komponenten Parameter, aber besser noch Makros können, dann könnte man dieses auch per Makros lösen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Antwort Antwort


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 00:09 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