Faça uso do CAST convertendo os dois campos para um número inteiro. Assim
poderá comparar na própria setença SQL.
Ex.: cast(cpf1 as integer) = cast(cpf2 as integer);
Luciano Calenzani Simões
----- Mensagem original ----
De: crist_ita <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 26 de Agosto de 2008 9:58:17
Assunto: [delphi-br] Ajuda em consulta SQL
Bom dia a todos
Tenho duas consultas 1 delas e feita em uma base de dados cujo cnpj
não tem zeros na frente, sendo que na outra base tem os zeros pois
foi importado assim, nesta consulta eu comparo o cnpj da outra base
com a da base atual, não esta me retornando nada pois o cnpj vem
diferente em alguns casos:
CNPJ de uma base : 01075326000140
Sql gerado pela consulta na base 2 :
SELECT lb.data_hora, st.descricao ds_status, ag.nome Agente,
it.cod_integracao cpf_cliente, lb.chamado telefone_cliente,
gr.gravacao
FROM gravacoes gr INNER JOIN integracao it
ON (it.cod_evba = gr.cod_evba) INNER JOIN log_eventos_ basicos lb
ON (lb.codigo = it.cod_evba) INNER JOIN agentes ag
ON (ag.codigo = gr.cod_agente) INNER JOIN log_eventos_ pa lp
ON (lp.cod_evba = it.cod_evba) INNER JOIN status st
ON (lp.cod_status = st.codigo)
WHERE (it.cod_integracao LIKE '%01075326000140% ')
AND (st.codigo NOT IN (1,2))
AND (st.codigo IN (105))
Precisava retira espaços e zeros que pudesse existir na consulta para
que trouxesse o registro corretamente
Agradeço a ajuda!!
procedure TfrmVisualizaAgenda .Image1Click( Sender: TObject);
begin
panGravacao. Visible := True;
if DM.ADOQueryCDR. Active then
DM.ADOQueryCDR. Close;
//
DM.ADOQueryCDR. SQL.Clear;
DM.ADOQueryCDR. SQL.Add(' select lb.data_hora, st.descricao
ds_status, ag.nome Agente, it.cod_integracao cpf_cliente, lb.chamado
telefone_cliente, gr.gravacao' );
DM.ADOQueryCDR. SQL.Add(' from gravacoes gr inner join integracao
it');
DM.ADOQueryCDR. SQL.Add(' on (it.cod_evba = gr.cod_evba) inner join
log_eventos_ basicos lb');
DM.ADOQueryCDR. SQL.Add(' on (lb.codigo = it.cod_evba) inner join
agentes ag');
DM.ADOQueryCDR. SQL.Add(' on (ag.codigo = gr.cod_agente) inner join
log_eventos_ pa lp');
DM.ADOQueryCDR. SQL.Add(' on (lp.cod_evba = it.cod_evba) inner join
status st');
DM.ADOQueryCDR. SQL.Add(' on (lp.cod_status = st.codigo)') ;
DM.ADOQueryCDR. SQL.Add(' where (it.cod_integracao
like ''%'+DBEdit3. Text+''') ');
DM.ADOQueryCDR. SQL.Add(' and (st.codigo not in (1,2))');
DM.ADOQueryCDR. SQL.Add(' and (st.codigo in (105))');
//Memo1.Lines. AddStrings( DM.ADOQueryCDR. SQL);
DM.ADOQueryCDR. SQL.Add(' order by data_hora desc');
try
DM.ADOQueryCDR. Open;
except
on e : Exception do
ShowMessage( PChar('Erro ao consultar
gravações.'+#10+ #13+e.message) );
end;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
