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.

markieren

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

markieren

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;

Zitat von haentschman:

markieren

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:

markieren

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;

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.

Zitat von haentschman:

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

Zitat von joachimd:

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 ?)

Wenn die SQL-Komponenten Parameter, aber besser noch Makros können, dann könnte man dieses auch per Makros lösen.