using a oracle function within a ADO procedure call statement
- From: "Daniel Wetzler" <Daniel.Wetzler@xxxxxxx>
- Date: 13 Sep 2006 03:10:55 -0700
Dear Delphi experts,
I have a problem concerning using a stored procedure with Delphi.
I try to use a stored procedure which hast two input parameters ( a
integer and a timestamp).
The timestamp parameter is my problem since I would like to use the
"to_timestamp"
Oracle-function to create the timestamp parameter to be inserted into
my procedure.
If I insert the to_timestamp statement as a adodatetime I have to
perform the conversion to the oracle timestamp in my application.
If I want to use the to_timestamp statement I have to use the ftstring
datatype but in that case I get an error because I use a string as
input for my procedure were it awaits a timestamp.
So the problem seems to be that the function call "to_timestamp" is not
interpreted if it is transferred through my ADO component.
Do you know how to use a procedure with Delphi (ADO) with a function as
input parameter ?
Best regards,
Daniel Wetzler
P.S. :
This is the Delphi code to use my Procedure.
FactsTempDS:=TADODataset.Create(nil);
Sproc1 := TAdoStoredProc.Create(nil);
Sproc1.Connection :=
TDBConnection(strlistConnectionstrings.objects[iConnectionIndex]).Connection;
Sproc1.ProcedureName := 'ECSPACKAGE.PROCFINDINITIALSWITCHSTATE';
Sproc1.Parameters.CreateParameter ('SwitchID',ftInteger,pdinput,0,0);
//Sproc1.Parameters.CreateParameter
('StartTime',ftdatetime,pdinput,50,0);
Sproc1.Parameters.CreateParameter ('StartTime',ftString,pdinput,50,0);
Sproc1.Parameters.Findparam('SwitchID').value:=SwitchID;
Sproc1.Parameters.FindParam('StartTime').Value:=
'to_timestamp(''2005/12/30 19:36:21'', ''YYYY/MM/DD HH:MI:SS'')';
Sproc1.CursorType := ctKeyset;
Sproc1.ExecuteOptions:=[];
Sproc1.Open;
Sproc1.Connection := nil;
FactsTempDS.Recordset:= sproc1.Recordset;
if FactsTempDS.RecordCount=0
then raise Exception.Create('No line switch variable found for switch
'+IntToStr(SwitchID)+' before starttime. Check BDE dump filter.')
.
- Prev by Date: Re: How to copy from non-null buffer to string and back?
- Next by Date: Create Delphi components in run time to use in design time..
- Previous by thread: savedialog
- Next by thread: Create Delphi components in run time to use in design time..
- Index(es):
Relevant Pages
|
