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
--
<<<<< 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
