Tengo que hacer una consulta y mostrar una entrada en la tabla, tengo esto:
Código Delphi
[-]
with Query do
begin
with SQL do
begin
DataModule.tdemanda.close;
Clear;
Datamodule.tdemanda.open;
Add('Select * from tdemanda');
Add('where codigo= :codigo');
ParamByName('codigo').Astring:= StrToInt(codigo.Text);
Open;
end;
end;
With Query1 do
begin
if (DataModule.tdemanda['ttipo_demanda'].FieldValue=1) then
with SQL do
begin
......
Bien, me peta en ejecución, en la linea del
if, con el error 'Invalid variant operation', ademas de no saber pque he hecho mal, necesito sacar un mensaje si el codigo introducido en el Edit 'codigo', no existe en la tabla.
¿Alguien me puede ayudar?