Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
Delphi 7 Enterprise
|
Re: [SQL] Stored Procedures...
12. Jan 2008, 12:53
Zitat von Hansa:
Von den Dingern habe ich bestimmt 100 Stück.
und genau das ist das Problem
Hier geht es ja gerade darum, dass der Tabellenname auch dynamisch ist. Dann wird nämlich nur eine Prozedur benötigt.
Ich habe mir nochmal Gedanken dazu gemacht...
Als erstes wird geprüft, ob es die Zeile schon gibt.
SQL-Code:
CREATE PROCEDURE `p_check_insert_update`(IN tbl VARCHAR(255),
IN ids VARCHAR(255),
IN cols TEXT,
IN vals TEXT,
IN updt TEXT)
BEGIN
SET @s = CONCAT(
'CALL p_make_insert_update(',
'(SELECT COUNT(*) FROM ', tbl, ' WHERE id=', ids, '), ',
'"', tbl, '", ',
'"', ids, '", ',
'"', cols, '", ',
'"', vals, '", ',
'"', updt, '"',
');'
);
PREPARE stmt FROM @s;
EXECUTE stmt;
DEALLOCATE PREPARE stmt;
END
Dann wird eine zweite Prozedur aufgerufen, die für das eigentliche Ändern zuständig ist. (Ich habe es leider nicht hinbekommen, den Rückgabewert vom EXECUTE in eine Variable zu bekommen, deshalb der Trick mit der zweiten Prozedur).
SQL-Code:
CREATE PROCEDURE `p_make_insert_update`(IN cnt INTEGER,
IN tbl VARCHAR(255),
IN ids VARCHAR(255),
IN cols TEXT,
IN vals TEXT,
IN updt TEXT)
BEGIN
IF (cnt > 0) THEN
SET @s = CONCAT(
'UPDATE ', tbl, ' ',
'SET ', updt, ' ',
'WHERE id=', ids
);
ELSE
SET @s = CONCAT(
'INSERT INTO ', tbl, ' (', cols, ') ',
'VALUES (', vals, ')'
);
END IF;
PREPARE stmt FROM @s;
EXECUTE stmt;
DEALLOCATE PREPARE stmt;
END
Getestest mit MySQL 5.0.19.
Vielleicht gibt es ja noch eine bessere Variante, bin gespannt.
Edit: ok, marabu hat ja gerade eine bessere Möglichkeit aufgezeigt, war trotzdem ein interessantes Problem.
Gruss
Thorsten
|