RE: [delphi-br] Onde estou errando ?

DOI-Mario Reis Mon, 13 Feb 2006 05:05:23 -0800

Eu nunca faço assim porque fica mais dificil ver qq erro na selecção
prefiro antes assim:
SqlStm0   := '':
SqlStmRua := '';
SqlStmOrd := '';
// Parte fixa / sempre igual
SqlStm0   :=    ' select CODIGO, CIDADE, BAIRRO, RUA '+
               +  ' from CEP '  +
               +  ' 'where (CIDADE = :pCid)' ;
// Parte(s) variaveis:
   
   if Edit2.Text <> '' then 
     SqlStmRua :=' and (RUA Like %' + QuotedStr(Edit2.Text)+ '%)' ;


     
  if vOrdem = True then    
    SqlStmOrd := 'Order by ' + vCampo ;

SqlStm0 = SqlStm0 + SqlStmRua + SqlStmOrd       ;


E só endtão 

Sql.Add(SqlStm);

Qry??.parambyname('pCid').AsString := Edit1.Text;

Se rua não tem dados dá uma string='' e não afecta em nada o Query.
Deste modo Você pode ver a String composta com todas as condições e
isolar melhor o Erro



-----Original Message-----
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
On Behalf Of Antonio Perruci
Sent: sábado, 11 de Fevereiro de 2006 12:58
To: Delphi-BR
Subject: [delphi-br] Onde estou errando ?

Bom dia amigos
   
  Fiz esta instrução:
   
     with IBQr1 do begin
      close;
      sql.clear;
      sql.add('select CODIGO, CIDADE, BAIRRO, RUA');
      sql.add('from CEP');
      sql.add('where (CIDADE = :pCid)');
      if Edit2.Text <> '' then 
                  sql.add('and (RUA Like "%' + Edit2.Text + '%")');
      if Edit4.Text <> '' then 
                  sql.add('and (BAIRRO Like "%' + Edit4.Text + '%")');
      if vOrdem = True then    
                  Sql.Add('Order by ' + vCampo);
      parambyname('pCid').AsString := Edit1.Text;
      Open;
   end;
   
  Está dando este erro:
   
  Dynamic SQL Error
  SQL error code -206
  Column unknown %A%
   
  Sendo que o "A" foi o dado digitado no campo Edit
   
  Estou usando D7 e FB
   
   
   

                
---------------------------------
 Yahoo! Acesso Grátis 
Internet rápida e grátis. Instale o discador agora!

[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

RE: [delphi-br] Onde estou errando ?

Responder a