Hola a todos
Estoy intentando crear un consulta que maneja parámetros, para el efecto empleo el siguiente codigo:
Código:
QDisponibilidades:= Tquery.Create(self);
with QDisponibilidades do
begin
DatabaseName:= 'DBMilenium';
close;
sql.Clear;
sql.Add(' SELECT Disponibilidad.CodigoDisponibilidad, Disponibilidad.FechaExpedicion, Disponibilidad.Objeto, Disponibilidad.Valor, AnteproyectoGastos.CodigoPresupuestal '+
' FROM (Recurso INNER JOIN (AnteproyectoGastos INNER JOIN GastosRecursos ON AnteproyectoGastos.CodigoPresupuestal = GastosRecursos.CodigoPresupuestal) ON Recurso.CodigoRecurso = GastosRecursos.CodigoRecurso) INNER JOIN '+
' (Disponibilidad INNER JOIN DisponibilidadRubro ON Disponibilidad.CodigoDisponibilidad = DisponibilidadRubro.CodigoDisponibilidad) ON (AnteproyectoGastos.CodigoPresupuestal = DisponibilidadRubro.CodigoPresupuestal) AND '+
' (Recurso.CodigoRecurso = DisponibilidadRubro.CodigoRecurso) '+
' WHERE AnteproyectoGastos.CodigoPresupuestal=:CodigoPresupuestal'
' order by Disponibilidad.CodigoDisponibilidad');
try
ParamaByName('CodigoPresupuestal').Value:= ECodigoPresupuestal.Text;
Open;
if RecordCount < 1 then
MessageDlg('No existen dispobilidades con este rubro',MTInformation,[MbOk],0);
Except
end;
end;
Bien el caso en concreto es el siguiente:
Cuando ejecuto el código, me envia una error, por que no existe el párametro, entonces como puedo crear el parametro antes de ejecutar la consulta?
Gracías de Antemano
GertorresM
Colombia