UPDATE 或 INSERT INTO 没有在程序中运行？

Question

Table Attendance:

EMPL_KODE |EMPL_NAME  |DATE_IN    |TIME_IN |TIME_OUT|TOTAL_MIN |TOTAL_HOUR
--------------------------------------------------------------------------
    001   | Michel    |25.04.2016 |06:50   |15:40   |NULL      |NULL
    002   | Clara     |25.04.2016 |06:15   |15:43   |NULL      |NULL
    003   | Rafael    |25.04.2016 |06:25   |15:45   |NULL      |NULL
    001   | Michel    |26.04.2016 |06:23   |15:42   |NULL      |NULL
    002   | Clara     |26.04.2016 |06:10   |15:41   |NULL      |NULL
    003   | Rafael    |26.04.2016 |06:30   |15:42   |NULL      |NULL
    001   | Michel    |27.04.2016 |06:33   |15:42   |NULL      |NULL
    002   | Clara     |27.04.2016 |06:54   |15:44   |NULL      |NULL
    003   | Rafael    |27.04.2016 |07:00   |15:45   |NULL      |NULL

我已成功创建过程以使用以下语法自动为列 TOTAL_MIN 和 TOTAL_HOUR 插入值：

SET TERM ^ ;
ALTER PROCEDURE UPDATEEMPLOYEES
AS
DECLARE VARIABLE EMPL_KODE CHAR(5);
DECLARE VARIABLE EMPL_NAME VARCHAR (25);
DECLARE VARIABLE TIME_IN TIMESTAMP;
DECLARE VARIABLE TIME_OUT TIMESTAMP;
DECLARE VARIABLE TOTAL_MINUTES INTEGER;
DECLARE VARIABLE TOTAL_HOURS FLOAT;

BEGIN 
FOR SELECT e.EMPL_KODE, e.EMPL_NAME,
       CAST(a.DATE_IN + a.TIME_IN AS TIMESTAMP),
       CAST(a.DATE_IN + a.TIME_OUT AS TIMESTAMP),
       DATEDIFF(MINUTE,a.TIME_IN,a.TIME_OUT),
       DATEDIFF(HOUR,a.TIME_IN,a.TIME_OUT)
       FROM EMPLOYEE e
       JOIN ATTENDANCE a
       ON e.EMPL_KODE=a.EMPL_KODE

INTO :EMPL_KODE,:EMPL_NAME,:TIME_IN,:TIME_OUT,TOTAL_MINUTES,TOTAL_HOURS
DO
       UPDATE ATTENDANCE a
       set a.TOTAL_MINUTES=:TOTAL_MINUTES,
       a.TOTAL_HOURS=:TOTAL_HOURS
       WHERE a.EMPL_KODE=:EMPL_KODE;

end^
SET TERM ; ^

但是，问题是如何直接用 UPDATE 或 INSERT INTO 编写语法？我已经尝试过但仍然无法正常工作。

我写的代码和Firebird指令一样。

   UPDATE OR INSERT INTO
   {tablename | viewname} [(<columns>)]
   VALUES (<values>)
   [MATCHING (<columns>)]
   [RETURNING <values> [INTO <variables>]]

<columns>      ::=  colname  [, colname  ...]
<values>       ::=  value    [, value    ...]
<variables>    ::=  :varname [, :varname ...]

这是我的代码：

我不写 Returning 因为我不明白它是什么。

SET TERM ^ ;
ALTER PROCEDURE BLABLA(
    TOTAL_M INTEGER,
    TOTAL_H FLOAT)
AS
BEGIN 
    UPDATE or INSERT INTO ATTENDANCE (TOTAL_MINUTES,TOTAL_HOURS)
    VALUES (:TOTAL_M,:TOTAL_H)
    MATCHING (EMPL_KODE);
end^
SET TERM ; ^

提交语句后，它显示错误消息：

UPDATE OR INSERT field list does not match MATCHING clause

我该怎么办？

Answer 1

我认为问题在于您有 MATCHING (EMPL_KODE) 但您没有在值列表中列出 EMPL_KODE 列 - 您如何期望引擎找出要更新的行？尝试类似的东西：

SET TERM ^ ;
ALTER PROCEDURE BLABLA(
    E_KODE CHAR(5),
    TOTAL_M INTEGER,
    TOTAL_H FLOAT)
AS
BEGIN 
    UPDATE or INSERT INTO ATTENDANCE (TOTAL_MINUTES,TOTAL_HOURS, EMPL_KODE)
    VALUES (:TOTAL_M,:TOTAL_H, :E_KODE)
    MATCHING (EMPL_KODE);
end^
SET TERM ; ^

Answer 2

终于，我从这个http://www.firebirdfaq.org/faq336

中得到了答案

SET TERM ^ ;
ALTER PROCEDURE UPDATEEMPLOYEEES
AS
begin
UPDATE ATTANDENCE
SET TOTAL_MINUTES=DATEDIFF(MINUTE,TIME_IN,TIME_OUT),
    TOTAL_HOURS=DATEDIFF(MINUTE,TIME_IN,TIME_OUT)/60.0;
END^
SET TERM ; ^

UPDATE 或 INSERT INTO 没有在程序中运行？

UPDATE or INSERT INTO is not working in procedure?

sql

firebird

flamerobin