Taty,
Tente passar os valores que estão sendo pesquisados por Parametros.
Talvez você não esteja preenchendo algum parametro e a query esteja fazendo
algo assim: "COD_PRODUTO = AND" (porque o conteudo da sua variavel
cod_produto.text é vazio.
Faça um teste individual antes de incluir as condições de pesquisa. Mais ou
Menos assim:
if Trim(cod_produto.text) <> '' then
SQL.Add(' COD_PRODUTO = ' + cod_produto.text);
Abraços,
Mauricio C. Vaglieri
----- Original Message -----
From: T a t y S a n t a n a
To: Grupo de Delphi
Sent: Tuesday, May 10, 2005 9:47 AM
Subject: [delphi-br] AJUDA - SQL
Olá pessoal bom dia, será que alguém poderia me ajudar. To terminando meu
projeto de fim de curso e to fazendo as consultas. Utilizei um Query pra
fazê-las, só que não dá certo.
Preciso pesquisar um produto pelo código dele, pelo nome e pelo fornecedor
daquele produto. Construí a seguinte rotina.
With DM.QPesquisar do
Begin
SQL.Clear;
SQL.Text := 'Select A.Cod_produto, A.Descricao, A.valor, C.NOME From
PRODUTOS A, FORNECEDOR C Where C.NOME = "'+LPesquisar.Text+'" or A.Descricao=
"'+descricao.Text+'" or A.Cod_Produto ='+cod_produto.Text+ ' and
A.COD_FORNECEDOR = C.COD_FORNECEDOR';
Open;
End;
Não mudei de linha no código SQL aqui é porque não cabe. Aí quando se vai pra
execução quando eu clico no botão onde programei esse SQL ele dá o seguinte
erro.
DYNAMIC SQL ERROR
SQL ERRO COD = - 104
TOKEN UNKNOWN - LINE 1, CHAR 148
END.
Nem sei mais o q testar. Já mudei diversas vezes e nada. Se alguém tiver uma
idéia.
Obrigada..
Taty Santana
[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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
------------------------------------------------------------------------------
Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.11.7 - Release Date: 09/05/2005
[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] ou [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
