Cita:
Empezado por Casimiro Notevi
Eso no puede ser.
¿Qué código estás usando?
|
el que puso duilioisola en el foro:
Código Delphi
[-]
with TSQLQuery.Create(nil) do
begin
try
Close;
SQL.Clear;
SQL.Text := 'select AGENTE, FORMA_COBRO from ASEGURADOS where CODIGO = :ICODIGO';
ParamByName('ICODIGO').AsInteger := StrToInt(DBEAsegurado.Text);
Open;
if IsEmpty = False then
begin
fpago := FieldByName('FORMA_COBRO').AsInteger;
ag_aux := FieldByName('AGENTE').AsInteger;
end;
finally
Free;
end;
end;
Y el error lo da en la linea del ParamByName('ICODIGO').....