try
DModuleGrid.ZQuery1.Close;
DModuleGrid.ZQuery1.SQL.Clear;
DModuleGrid.ZQuery1.SQL.Add('SELECT * FROM tdcupant');
DModuleGrid.ZQuery1.SQL.Add('WHERE numcupom = :co2 AND ccf = :cc3 AND dtcompra = :dtc4 AND impcaixa = :ip5');
DModuleGrid.ZQuery1.ParamByName('co2').AsString := copy(lTemp,53,6);
DModuleGrid.ZQuery1.ParamByName('cc3').AsString := copy(lTemp,47,6);
DModuleGrid.ZQuery1.ParamByName('ip5').AsString := copy(lTemp,4,20);
DModuleGrid.ZQuery1.ParamByName('dtc4').AsDate := StrToDate(dtcompratxt);
DModuleGrid.ZQuery1.Open;
except
on e: Exception do
begin
ercp := e.Message;
StatusBar1.Panels[0].Text := 'Erro ao encontrar registros! ' + ercp;
end;
Acredito que esta certo. Porém ele fica indicando o erro do próprio sql
.
Bom, o erro que dá é:
Para ser preciso, ele apenas precisa capturar uma exceção para caso nenhum dos registros que comparei nos parâmetros sejam encontrados no banco de dados.
Sql Sintaxe
, que é quando não encontra nenhum registro, depois que percorre todo o banco e o arquivo txt.on e: Exception
significa todo tipo de exceção e portanto nunca irá cair no seuelse
. Se o que você quer é lançar uma exceção se não encontrar registros, aí é outra coisa