Имею процедуру
1.
2.
3.
4.
5.
6.
7.
create procedure test ( IN W_DATE timestamp )
LANGUAGE SQL
MODIFIES SQL DATA
BEGIN
end;
В Delphi есть контрол для ввода даты-времени с параметром DateTime, Естественно( для Delphi) , он выглядит например так
1.
:B_DATE = 01 . 07 . 2005 0 : 00 : 01
Необходимо обратиться к процедуре
Если так и обращаюсь, то получаю
1.
[IBM][CLI Driver][DB2/NT] SQL0180N Неверный синтаксис строчного представления даты и времени. SQLSTATE= 22007
Пытаюсь на лету переформатироваться в приемлимый вид с помощью функции типа
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
CREATE function f_DTinTS ( sdt varchar( 32 ) )
returns TIMESTAMP
begin atomic
DECLARE TS TIMESTAMP;
DECLARE w_dt varchar( 32 );
DECLARE p1 integer;
DECLARE p2 integer;
SET p1 = locate('.',sdt); if p1> 0 then set p2 = locate('.',substr(sdt,p1+ 1 ,length(sdt)-p1)); end if;
if (p1> 0 ) and (p2> 0 ) and (p2< 4 ) then
set w_dt =trim(substr(sdt,p1+p2+ 1 , 4 )||'-'||substr(sdt,p1+ 1 ,p2- 1 )||'-'||substr(sdt, 1 ,p1- 1 )||substr(sdt,p1+p2+ 5 ,length(sdt)-(p1+p2+ 5 - 1 )));
if length(w_dt)< 12 then
set w_dt=w_dt||' 00:00:00';
end if;
end if;
SET TS=TimeStamp(w_dt);
return TS;
end
и обращаясь следующим образом
1.
Call test(f_DTinTS(:B_DATE) )
но налетаю на запрет
1.
[IBM][CLI Driver][DB2/NT] SQL0418N Оператор содержит неверное использование маркера параметра. SQLSTATE= 42610
{SQLExecDirect}
Можно ли, как то синтаксически решить этот вопрос ничего кардинально не меняя в Delphi?
