Buscar por:

Usando query com mais de 255 caracteres

Código

{ Pessoal essa dica pode ser horrível para muitos só que para mim foi de grande utilidade pois sou iniciante em delphi.

   Toda vez que eu colocava um select grande em um query dava o seguinte erro String literals may have at most 255 elements.

   Descobri que basta você dividir o código em vários query.sql.add('select')

}//exemplo

       with Modulo.QryPesqCompleta do

         begin

             Close;

             sql.clear;

             sql.Add('select e.empresa_id as cnpjempresa,e.razao_social as rzempresa, c.cadastro_id as cnpjfornec,c.razao_social as rzfornec,p.pedido_compra,p.pedido_entrada,p.nota_fiscal,cm.path_image_pc,nf.path_image');

             sql.add('from empresas e,cadastros c,pedido p,capa_movimento cm,notas_fiscais nf');

             sql.Add('where e.empresa_id=cm.empresa_id and c.cadastro_id=cm.cadastro_id and p.pedido_compra=cm.pedido_id');

             sql.add('and p.pedido_entrada=nf.pedido_id and p.nota_fiscal=nf.nota_fiscal and nf.tipo_movimento=:nftp  and cm.tipo_movimento=:cmtp');

             ParamByName('nftp').AsString := 'EC';

             ParamByName('cmtp').AsString := 'PC';

             EdtDadosPesq.SetFocus;

         end;