Buenas tardesnoches amigos, resulta que estoy atoradillo en una consulta en la cual no le veo en donde pueda estar la falla o el porque el error, les anexo este codigo:
Código:
procedure TDEPRECIACIONES.Button3Click(Sender: TObject);
begin
if combobox4.Text<>'' then
begin
with dm1.Q_activos do
begin
active:=false;
sql.Clear;
sql.add('select * from Activos_fijos');
sql.add('where id_activof='+combobox4.Text);
active:=true;
if recordcount=0 then
messagedlg('No se encontro el Activo Fijo, intente de nuevo',mtinformation,[mbok],0);
begin
label16.Caption:=fieldbyname('costo').asstring;
label18.Caption:=fieldbyname('fecha').asstring;
end;
end;
end;
end;
El anterior codigo es en un boton en el cual eligo una opcion de un combobox y al da clic en el boton me dice que Error que me falta un operador pero no se que operador se refiera, bueno espero que me ayuden y de antemano gracias.
P.D. Uso Delphi 2007