[firebase-br] Help, :((( ... procedure unknown dbexpress
Antonio Carlos
a.lima.silva em terra.com.br
Seg Nov 27 18:23:37 -03 2006
Por favor criei a stored procedure em um banco, consigo executar ela via Sql
do EMS interbase Firebird Manange e do IBO Console, mas quando tento do
DBexpress do delphi da o erro : SQL Server Error procedure unknown :
NEW_MOVIMENTACA0
o código esta abaixo.
try
Screen.Cursor := crSQLWait;
TD4.TransactionID := 1;
TD4.IsolationLevel := xilREADCOMMITTED;
SQLConnection1.StartTransaction(TD4);
Sql1.Close;
Sql1.SQL.Clear;
Sql1.SQL.Add('EXECUTE PROCEDURE NEW_MOVIMENTACA0
(:P00,:P01,:P02,:P03,:P04,:P05,:P06,:P07,:P08,:P09,:P10,:P11,:P12,:P13,:P14,:P15)');
Sql1.ParamByName('P00').AsString := '1234567';
Sql1.ParamByName('P01').AsString := '1';
Sql1.ParamByName('P02').AsString := 'SV';
Sql1.ParamByName('P03').AsString := 'P456';
Sql1.ParamByName('P04').AsString := 'NORMAL';
Sql1.ParamByName('P05').AsString := 'PRODUTO DE TESTE';
Sql1.ParamByName('P06').AsString := 'UN';
Sql1.ParamByName('P07').AsString := 'NAO';
Sql1.ParamByName('P08').AsString := '';
Sql1.ParamByName('P09').AsCurrency := 123.65;
Sql1.ParamByName('P10').AsString := '';
Sql1.ParamByName('P11').AsDate := date;
Sql1.ParamByName('P12').AsDate := date;
Sql1.ParamByName('P13').AsDate := date;
Sql1.ParamByName('P14').AsString := 'LANCADO';
Sql1.ParamByName('P15').AsDate := date;
Sql1.ExecSQL;
SQLConnection1.Commit(TD4);
Sql1.Close;
Screen.Cursor := crDefault;
except
on e: Exception do
begin
SQLConnection1.Rollback(TD4);
Screen.Cursor := crDefault;
MessageDlg('NovaMovimentacao : '+E.Message,mtError,[mbOK],0);
end;
end;
Mais detalhes sobre a lista de discussão lista