ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

[RESOLVIDO]erro de syntax

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
pauloD7
Aprendiz
Aprendiz


Registrado: Domingo, 17 de Abril de 2011
Mensagens: 165

MensagemEnviada: Sex Abr 17, 2020 10:55 am    Assunto: [RESOLVIDO]erro de syntax Responder com Citação

Bom dia! to tentando executar esse eql mas esta dando erro erro de syntax
Código:
   qryListapro := TFDQuery.Create(Nil);
   qryListapro.Connection := conn;
   qryListapro.SQL.Clear;
   qryListapro.SQL.Text := 'select TAB_CATEGORIA.COD_CATEGORIA,'+
                           'TAB_CATEGORIA.SABOR,'+
                           'TAB_PRODUTO.COD_CATE,'+
                           'TAB_PRODUTO.COD_PRODUTO,'+
                           'TAB_PRODUTO.DESCRICAO,'+
                           'TAB_PRODUTO.NOME'+
                           'FROM TAB_PRODUTO'+
                           'left join  TAB_CATEGORIA ON TAB_CATEGORIA.COD_CATEGORIA = TAB_PRODUTO.COD_CATE'+
                           'order by TAB_CATEGORIA.COD_CATEGORIA asc';
   qryListapro.Open();
   qryListapro.First;


Editado pela última vez por pauloD7 em Sex Abr 17, 2020 9:55 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
JoaoSHi
Experiente
Experiente


Registrado: Segunda-Feira, 25 de Agosto de 2008
Mensagens: 484

MensagemEnviada: Sex Abr 17, 2020 11:13 am    Assunto: Responder com Citação

Colega verifica se tem um espaço entre o ' e o FROM (pode ser este o problema).

Código:

 ' FROM TAB_PRODUTO'+
 ' left join  TAB_CATEGORIA ON TAB_CATEGORIA.COD_CATEGORIA = TAB_PRODUTO.COD_CATE'+
 ' order by TAB_CATEGORIA.COD_CATEGORIA asc'; 
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
pauloD7
Aprendiz
Aprendiz


Registrado: Domingo, 17 de Abril de 2011
Mensagens: 165

MensagemEnviada: Sex Abr 17, 2020 11:36 am    Assunto: Responder com Citação

JoaoSHi escreveu:
Colega verifica se tem um espaço entre o ' e o FROM (pode ser este o problema).

Código:

 ' FROM TAB_PRODUTO'+
 ' left join  TAB_CATEGORIA ON TAB_CATEGORIA.COD_CATEGORIA = TAB_PRODUTO.COD_CATE'+
 ' order by TAB_CATEGORIA.COD_CATEGORIA asc'; 

nao tem continua o mesmo erro
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Sex Abr 17, 2020 11:59 am    Assunto: Responder com Citação

Bom dia,

Experimente utilizar o método Add para adicionar o comando SQL:

Código:
   qryListapro.SQL.Add('select TAB_CATEGORIA.COD_CATEGORIA,');
   qryListapro.SQL.Add('TAB_CATEGORIA.SABOR,');
   qryListapro.SQL.Add('TAB_PRODUTO.COD_CATE,');
   qryListapro.SQL.Add('TAB_PRODUTO.COD_PRODUTO,');
   qryListapro.SQL.Add('TAB_PRODUTO.DESCRICAO,');
   qryListapro.SQL.Add('TAB_PRODUTO.NOME');
   qryListapro.SQL.Add('FROM TAB_PRODUTO');
   qryListapro.SQL.Add('left join TAB_CATEGORIA ON TAB_CATEGORIA.COD_CATEGORIA = TAB_PRODUTO.COD_CATE');
   qryListapro.SQL.Add('order by TAB_CATEGORIA.COD_CATEGORIA asc');


Espero que ajude

_________________
Assinatura: https://www.imoveisemexposicao.com.br/imobiliarias-em-guarulhos
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
pauloD7
Aprendiz
Aprendiz


Registrado: Domingo, 17 de Abril de 2011
Mensagens: 165

MensagemEnviada: Sex Abr 17, 2020 12:18 pm    Assunto: Responder com Citação

imex escreveu:
Bom dia,

Experimente utilizar o método Add para adicionar o comando SQL:

Código:
   qryListapro.SQL.Add('select TAB_CATEGORIA.COD_CATEGORIA,');
   qryListapro.SQL.Add('TAB_CATEGORIA.SABOR,');
   qryListapro.SQL.Add('TAB_PRODUTO.COD_CATE,');
   qryListapro.SQL.Add('TAB_PRODUTO.COD_PRODUTO,');
   qryListapro.SQL.Add('TAB_PRODUTO.DESCRICAO,');
   qryListapro.SQL.Add('TAB_PRODUTO.NOME');
   qryListapro.SQL.Add('FROM TAB_PRODUTO');
   qryListapro.SQL.Add('left join TAB_CATEGORIA ON TAB_CATEGORIA.COD_CATEGORIA = TAB_PRODUTO.COD_CATE');
   qryListapro.SQL.Add('order by TAB_CATEGORIA.COD_CATEGORIA asc');


Espero que ajude

_________________
Assinatura: https://www.imoveisemexposicao.com.br/imobiliarias-em-guarulhos


Esta dando o mesmo erro de syntax
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
   qryListapro : TFDQuery;
   ItemAdd : TListBoxItem;
   //ItemAdd : TListViewItem;
begin
   qryListapro := TFDQuery.Create(Nil);
   qryListapro.Connection := conn;
   qryListapro.SQL.Clear;
   qryListapro.SQL.Add('SELECT TAB_CATEGORIA.COD_CATEGORIA,');
   qryListapro.SQL.Add('TAB_CATEGORIA.SABOR,');
   qryListapro.SQL.Add('TAB_PRODUTO.COD_CATE,');
   qryListapro.SQL.Add('TAB_PRODUTO.COD_PRODUTO,');
   qryListapro.SQL.Add('TAB_PRODUTO.DESCRICAO,');
   qryListapro.SQL.Add('TAB_PRODUTO.VALOR');
   qryListapro.SQL.Add('TAB_PRODUTO.NOME');
   qryListapro.SQL.Add('FROM TAB_PRODUTO');
   qryListapro.SQL.Add('left join TAB_CATEGORIA ON TAB_CATEGORIA.COD_CATEGORIA = TAB_PRODUTO.COD_CATE');
   qryListapro.SQL.Add('order by TAB_CATEGORIA.COD_CATEGORIA asc');
   qryListapro.Open();
   qryListapro.First;
    while NOT qryListapro.eof do
    begin
      lb.AddItem(qry_produto.FieldByName('COD_PRODUTO').AsString,
      qryListapro.FieldByName('VALOR').AsFloat,
      qryListapro.FieldByName('DESCRICAO').AsString,
      qryListapro.FieldByName('Nome').AsString);

      ListBCategoria.Items.Text := qryListapro.FieldByName('NOME').AsString;
      qryListapro.Next;
     end;
     qryListapro.Close;
     qryListapro.Free;
     ListBCategoria.ItemWidth := 80;
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Sex Abr 17, 2020 2:07 pm    Assunto: Responder com Citação

Pelo que vi você adicionou o campo Valor e faltou uma vírgula após esse campo.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
pauloD7
Aprendiz
Aprendiz


Registrado: Domingo, 17 de Abril de 2011
Mensagens: 165

MensagemEnviada: Sex Abr 17, 2020 9:54 pm    Assunto: Responder com Citação

imex escreveu:
Pelo que vi você adicionou o campo Valor e faltou uma vírgula após esse campo.

imex era isso mesmo me cegou obg valeu.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB