Olá,
Faltou fechar ASPAS apos o valor do LPesquisar.text:
procedure TFrel_produto.BitBtn1Click(Sender: TObject);
begin
With DM.QPesquisar do
Begin
SQL.Clear;
SQL.add('Select A.produto as produto,A.quantidade as quatidade,
B.NOME as Fornecedor From ENTRADA_PRODUTO A, FORNECEDOR B Where B.NOME ="');
SQL.add(LPesquisar.text);
{Aqui-->}SQL.add('" and A.FORNECEDOR = B.COD_FORNECEDOR');
Open;
End;
DBGProduto.DataSource:=Dm.DSQPesquisar;
Ana Júlia Solano Rocha <[EMAIL PROTECTED]> wrote:
Qual o valor de LPesquisar.Text? E qual o erro?
Abraços,
Ana
----- Original Message -----
From: "T a t y S a n t a n a" <[EMAIL PROTECTED]>
To: "Grupo de Delphi" <delphi-br@yahoogrupos.com.br>
Cc: "Grupo Lista-Delphi" <[EMAIL PROTECTED]>
Sent: Tuesday, May 17, 2005 11:31 PM
Subject: [delphi-br] Erro em SQL
Por um acaso alguém acha algum erro nesse sql que não funciona de maneira
alguma. Eu já fiz milhares de modificações e não consigo fazer funcionar. É
uma consulta de produtos.
Abraço
Taty Santana
procedure TFrel_produto.BitBtn1Click(Sender: TObject);
begin
With DM.QPesquisar do
Begin
SQL.Clear;
SQL.add('Select A.produto as produto,A.quantidade as quatidade,
B.NOME as Fornecedor From ENTRADA_PRODUTO A, FORNECEDOR B Where B.NOME ="');
SQL.add(LPesquisar.text);
SQL.add('and A.FORNECEDOR = B.COD_FORNECEDOR');
Open;
End;
DBGProduto.DataSource:=Dm.DSQPesquisar;
[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
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 17/05/2005 / Versão: 4.4.00 -
Dat 4493
Proteja o seu e-mail Terra: http://mail.terra.com.br/
--
<<<<< 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 Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! Mail Mobile
Take Yahoo! Mail with you! Check email on your mobile phone.
[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
