如何将类型DATE的参数传递给函数

Question

我在oracle数据库中有一个函数。我需要从delphi中调用它。我使用下面的代码：

procedure TForm1.Run; 
var 
q:TADOQuery; 
begin 
q:=TADOQuery.Create(nil); 
q.Connection:=ADOConnection1; 
q.ParamCheck:=false; 

q.SQL.Add('BEGIN'); 
q.SQL.Add(' :RES:=Search(:P_DATE);'); 
q.SQL.Add('END;'); 

q.Parameters.AddParameter.Name:='P_DATE'; 
q.Parameters.ParamByName('P_DATE').Direction:=pdInput; 
q.Parameters.ParamByName('P_DATE').DataType:=ftDate; 
q.Parameters.ParamByName('P_DATE').Value:=Now; 
q.Parameters.AddParameter.Name:='RES'; 
q.Parameters.ParamByName('RES').DataType:=ftFloat; 
q.Parameters.ParamByName('RES').Direction:=pdOutput; 
q.Parameters.ParamByName('RES').Value:=1; 

q.ExecSQL; 
//... 

我得到ora-06550错误，说invalid number or type of parameters。如果我将P_DATE参数更改为sysdate，即:RES:=Search(sysdate);，则它工作正常。

那么我怎样才能通过类型DATE的“in”参数从delphi的oracle函数？

---

Found ORA-06550 when Oracle stored function is called.。但是这涉及到Kylix Pascal IDE。我预计会遇到与delphi相同的行为吗？没有尝试使用oracle过程而不是函数。也许这个问题是可以解决的一些怎么回事...

Answer 1

Oracle没有一个日期类型绑定变量 - 需要绑定变量显式转换为日期：

:res := search(to_date(:p_date, 'dd/mm/yyyy')); 

，那么你应该能够将您的变量作为与您指定的日期格式匹配的字符串传递。

Answer 2

尝试将此参数发送为字符串：

......... 
q.SQL.Add('BEGIN'); 
q.SQL.Add(' :RES:=Search(TO_DATE(:P_DATE,''YYYYMMDD''));'); 
q.SQL.Add('END;'); 

q.Parameters.AddParameter.Name:='P_DATE'; 
q.Parameters.ParamByName('P_DATE').Direction:=pdInput; 
q.Parameters.ParamByName('P_DATE').DataType:=ftString; 
q.Parameters.ParamByName('P_DATE').Value:=FormatDateTime('yyyymmdd',Now); 
.......... 

Answer 3

你就错了（我想你已经删除作为重复该问同样的问题（不同功能的前一个问题，但就在几天前）。

你打电话功能错了首先。

......... 
q.SQL.Add('BEGIN'); 
q.SQL.Add(' SELECT Search(TO_DATE(:P_DATE,''YYYYMMDD'')) FROM System.Dual;'); 
q.SQL.Add('END;'); 

q.Parameters.AddParameter.Name:='P_DATE'; 
q.Parameters.ParamByName('P_DATE').Direction:=pdInput; 
q.Parameters.ParamByName('P_DATE').DataType:=ftDate; 
q.Parameters.ParamByName('P_DATE').Value:=Now; 
q.Open; 

if not q.IsEmpty then  // or not q.Eof 
    Res := q.Fields[0].AsFloat;