From:
<car...@te...> - 2004-03-11 11:53:17
|
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 |