Fórum TSQLStoredproc... #52911

Meu problema é bem estranho

Details:

[color=darkred:2cc3642f52]# Systems
Delphi 7
Firebird 1.5
Windows XP[/color:2cc3642f52]

[color=red:2cc3642f52] Program

object SQLConnectionPS: TSQLConnection
ConnectionName = ´Firebird´
DriverName = ´Interbase´
GetDriverFunc = ´getSQLDriverINTERBASE´
LibraryName = ´dbexpint.dll´
LoginPrompt = False
Params.Strings = (
´DriverName=Interbase´
´BlobSize=-1´
´CommitRetain=False´
´Database=c:\psbiolite\PSBIOLITE.Fdb´
´ErrorResourceFile=´
´LocaleCode=0000´
´Password=masterkey´
´RoleName=RoleName´
´ServerCharSet=win1252´
´SQLDialect=3´
´Interbase TransIsolation=ReadCommited´
´User_Name=sysdba´
´WaitOnLocks=True´)
VendorLib = ´c:\psbiolite\fbclient.dll´
Connected = True
Left = 8
Top = 336
end
[/color:2cc3642f52]
[color=brown:2cc3642f52]# SToredProc in Delphi
object SQLStoredProcAlterar: TSQLStoredProc
MaxBlobSize = -1
Params = <
item
DataType = ftInteger
Name = ´ID´
ParamType = ptInput
end
item
DataType = ftString
Name = ´NOME´
ParamType = ptInput
end
SQLConnection = SQLConnectionPS
StoredProcName = ´PROC_ALTER_PS´
Left = 8
Top = 496
end
[/color:2cc3642f52]
[color=green:2cc3642f52] SToredProc in Firebird
SET TERM ^ ;

CREATE PROCEDURE PROC_ALTER_PS (
ID INTEGER,
NOME VARCHAR(60)
AS
begin
UPDATE ´ps´ SET NOME = :NOME
where ´id´ = :id;
WHEN ANY do
exception erro_atualizacao;
END
^
SET TERM ; ^
GRANT SELECT,UPDATE ON ´ps´ TO PROCEDURE PROC_ALTER_PS;
GRANT EXECUTE ON PROCEDURE PROC_ALTER_PS TO SYSDBA;
[/color:2cc3642f52]


[color=blue:2cc3642f52]# Delphi Code
procedure TF_PS.ActionConfirmarExecute(Sender: TObject);
begin
With SQLStoredProcAlterar do
ParamByName(´NOME´).AsString := LabeledEditPS.Text;
Try
SQLStoredProcAlterar.ExecProc;
Except
on E:Exception do
Begin
MessageDlg(E.Message,mtError, [mbok],0 );
Abort;
end;
end;
End;//end do with
end;
[/color:2cc3642f52]

[b:2cc3642f52] PROBLEM

Eu tenho 3 TSQLStoredProc

1 - Para incluir
2 - Para alterar
3 - Para excluir

O 1 e o 3 trabalham bem

2 - Alterar, nunca altera nada.....

Se eu usar a SP, dentro do IBExpert ele funciona bem... sem problemas... altera perfeitamente, ou seja o problema está entre a aplicação e o banco

Mas o código parece estar correto[/b:2cc3642f52]