Board index » delphi » Workaround?

Workaround?


2004-10-25 11:10:41 PM
delphi3
I'm beginning to talk to myself...
Knowing that the problem occurred in the UPDATE statement, I have now
changed the code to:
IF Edit1.Text <>'' THEN
BEGIN
SQL.Add('RETURNING SCRIPT_SQL');
SQL.Add('INTO :BlobParam1');
Params[0].ParamType := ptInput;
Params[0].DataType := ftOraCLOB;
Params[0].Value := Edit1.Text;
END;
This is a PITA for my *real* app, where there are two CLOB fields in a
record:
IF (Var1 <>'') THEN
IF (Var2 <>'') THEN
ELSE
ELSE
IF (Var2 <>'') THEN
ELSE
Lucky me there aren't three...
For now I will stick with this code (time is an issue), but I still wonder
what is *supposed* to happen in the original example. Any ideas anyone?
(Perhaps for a less cumbersome solution).
Jan
---------------------------------------------------------------------------
Jan Doggen, QSA Landsmeer, The Netherlands
Please remove the spam blocker from my email address when replying directly
 
 

Re:Workaround?

I'm beginning to talk to myself...
Knowing that the problem occurred in the UPDATE statement, I have now
changed the code to:
IF Edit1.Text <>'' THEN
BEGIN
SQL.Add('RETURNING SCRIPT_SQL');
SQL.Add('INTO :BlobParam1');
Params[0].ParamType := ptInput;
Params[0].DataType := ftOraCLOB;
Params[0].Value := Edit1.Text;
END;
This is a PITA for my *real* app, where there are two CLOB fields in a
record:
IF (Var1 <>'') THEN
IF (Var2 <>'') THEN
ELSE
ELSE
IF (Var2 <>'') THEN
ELSE
Lucky me there aren't three...
For now I will stick with this code (time is an issue), but I still wonder
what is *supposed* to happen in the original example. Any ideas anyone?
(Perhaps for a less cumbersome solution).
Jan