Re: StoredProcedure in DELPHI 7

[Alptelkin AKAT]

This Sample is Working
But very absurd.
Thanks MySql Team :))


procedure Test_OK;
var
r:_Recordset;
begin
ADOConnection1.Open;
ADOConnection1.Execute('SET @P2=0;');
ADOConnection1.Execute('CALL proc_Test(2,@P2);');
r:=ADOConnection1.Execute('SELECT @P2;');
ShowMessage(IntToStr(R.Fields[0].VALUE));
end;