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 

Estou errando na instrução SQL [RESOLVIDO]

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


Registrado: Sábado, 28 de Abril de 2012
Mensagens: 187

MensagemEnviada: Qua Ago 08, 2012 11:53 am    Assunto: Estou errando na instrução SQL [RESOLVIDO] Responder com Citação

Estou montando um relatorio por marca, e uso a seguinte linha

Código:
F_relatorio.query_prod_pers.SQL.add('Select * from produtos where (marca_prod = :'+ DBLookupComboBox1.text + ') order by cod_prod');



O relatorio aparece em branco, os produtos estão na marca certa, o que esta errado ?

PS: O minha assinatura ta aparecendo abaixo ??
 

 


Editado pela última vez por jonathanfirst em Qua Ago 08, 2012 2:22 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
imex
Moderador
Moderador


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

MensagemEnviada: Qua Ago 08, 2012 12:01 pm    Assunto: Responder com Citação

Bom dia

Experimente remover os dois pontos que está após o sinal de igual, pois não está sendo utilizado parâmetro na instrução SQL.

obs: a assinatura não está aparecendo para mim

Espero que ajude.

_________________
Assinatura: http://www.imoveisemexposicao.com.br/imoveis-venda-são_paulo-residencial
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
jonathanfirst
Aprendiz
Aprendiz


Registrado: Sábado, 28 de Abril de 2012
Mensagens: 187

MensagemEnviada: Qua Ago 08, 2012 12:05 pm    Assunto: Responder com Citação

se eu tirar os dois pontos acontece um erro que diz

" O valor -valor da combobox- não tem valor padrão"
_________________
O que que acho ? ... Cachorro ?
Visite http://www.lojacentraltech.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
imex
Moderador
Moderador


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

MensagemEnviada: Qua Ago 08, 2012 12:25 pm    Assunto: Responder com Citação

Se o campo marca_prod não é numérico será necessário utilizar a função QuotedStr para que o valor do DBLookupComboBox fique entre aspas:
Código:
F_relatorio.query_prod_pers.SQL.add('Select * from produtos where (marca_prod = ' +
                                    QuotedStr(DBLookupComboBox1.text) +
                                    ') order by cod_prod');


ou você pode utilizar parâmetro na instrução SQL (prefiro desta forma):
Código:
F_relatorio.query_prod_pers.SQL.add('Select * from produtos where (marca_prod = :marca_prod) order by cod_prod');
F_relatorio.query_prod_pers.ParamByName('marca_prod').AsString := DBLookupComboBox1.text


Espero que ajude.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
jonathanfirst
Aprendiz
Aprendiz


Registrado: Sábado, 28 de Abril de 2012
Mensagens: 187

MensagemEnviada: Qua Ago 08, 2012 2:15 pm    Assunto: Responder com Citação

deu certo, fiz daquele primeiro exemplo:

Código:
F_relatorio.query_prod_pers.SQL.add('Select * from produtos where (marca_prod = ' +
                                    QuotedStr(DBLookupComboBox1.text) +
                                    ') order by cod_prod');


obrigado
_________________
O que que acho ? ... Cachorro ?
Visite http://www.lojacentraltech.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
imex
Moderador
Moderador


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

MensagemEnviada: Qua Ago 08, 2012 2:55 pm    Assunto: Responder com Citação

Blz, agradeço o retorno.
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