Hello:
Try:
ac := FbCommand.Create('EXECUTE PROCEDURE TEST(@ID_IN)', adm.Connection);
ac.CommandType := CommandType.StoredProcedure;
ac.Parameters.Add('@ID_IN', FbDBType.Integer,).Value := TObject(Int32(10));
ac.Parameters.Add('@ID_OUT', FbDBType.Integer).Direction :=
ParameterDirection.Output;
ac.ExecuteNonQuery;
Or:
ac := FbCommand.Create('TEST', adm.Connection);
ac.CommandType := CommandType.StoredProcedure;
ac.Parameters.Add('@ID_IN', FbDBType.Integer,).Value := TObject(Int32(10));
ac.Parameters.Add('@ID_OUT', FbDBType.Integer).Direction :=
ParameterDirection.Output;
ac.ExecuteNonQuery;
--
Best regards
Carlos Guzmán Álvarez
Vigo-Spain
|