Re: [delphi-br] Select muito longo ERRO

WILLER Mon, 04 Sep 2006 08:53:05 -0700

Valeu pela dica. Consegui resolver o problema. E agora meu select ficou 
organizado.


[]s
Willer Alves
  ----- Original Message ----- 
  From: Andre Mesquita 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, September 04, 2006 12:03 PM
  Subject: Re: [delphi-br] Select muito longo ERRO


  Além de funcionar deixa seu código mais claro e facilita uma depuração.
  Ponha um breakpoint na linha "qryExecucao.Open" e qdo parar, tecle Ctrl+F7 e 
  coloque a intrução "qryExecucao.Sql.getText". Perceba como a query ficou 
  fácil de entender e depurar.

  var
     sSql : String;
  begin
     sSql := ' select ' + #13;
     sSql := sSql + '    MENSAL.VENCTO, ' + #13;
     sSql := sSql + '    tabcli.cod, ' + #13;
     sSql := sSql + '    tabcli.nome, ' + #13;
     sSql := sSql + '    tabmen.prec, ' + #13;
     sSql := sSql + '    mensal.tipo ' + #13;
     sSql := sSql + ' from ' + #13;
     sSql := sSql + '    tabcli,tabmen,mensal ' + #13;
     sSql := sSql + ' where ' + #13;
     sSql := sSql + '    (tabcli.tabela = tabmen.tab) and ' + #13;
     sSql := sSql + '    (tabcli.cod = mensal.cod) and ' + #13;
     sSql := sSql + '    ( (mensal.vencto >= '1/1/2006') and ' + #13;
     sSql := sSql + '      (mensal.vencto <= '10/10/2006') and ' + #13;
     sSql := sSql + '      ( extract(month from mensal.vencto) <> 
  extract(month from CURRENT_DATE ) ) ) ' + #13;
     sSql := sSql + ' ORDER BY  ' + #13;
     sSql := sSql + '    MENSAL.VENCTO ' + #13;
     qryExecucao.Close;
     qryExecucao.SQL.Text := sSql;
     qryExecucao.Open;
  end;

  [ ]'s

  ----- Original Message ----- 
  From: "WILLER" <[EMAIL PROTECTED]>
  To: <delphi-br@yahoogrupos.com.br>
  Sent: Monday, September 04, 2006 11:25 AM
  Subject: [delphi-br] Select muito longo ERRO


  Olá a todos. Estou com um problema. Eu uso o Firebird e Delphi 7, preciso 
  usar uma string SQL (select), mas quando vou compilar o Delphi reclama que a 
  string deve ter no máximo 255 caracteres. Alguém sabe como contornar isso?
  Qualquer sugestão será de grande ajuda.

  String: select MENSAL.VENCTO,tabcli.cod,tabcli.nome,tabmen.prec,mensal.tipo 
  from tabcli,tabmen,mensal where 
  (tabcli.tabela=tabmen.tab)and(tabcli.cod=mensal.cod)and( 
  (mensal.vencto>='1/1/2006') and (mensal.vencto<='10/10/2006')and( 
  extract(month from mensal.vencto)<>extract(month from CURRENT_DATE ) ) ) 
  ORDER BY  MENSAL.VENCTO




  Willer Alves da Costa.

  [As partes desta mensagem que não continham texto foram removidas]



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



  Links do Yahoo! Grupos








   

  __________ Informação do NOD32 1.1683 (20060728) __________

  Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
  http://www.nod32.com.br


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Re: [delphi-br] Select muito longo ERRO

Responder a