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 

Erro de dados imcompativel na expressao criterio <RESOLVIDO>

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


Registrado: Sábado, 30 de Janeiro de 2010
Mensagens: 323

MensagemEnviada: Ter Ago 30, 2011 1:40 pm    Assunto: Erro de dados imcompativel na expressao criterio <RESOLVIDO> Responder com Citação

Tenho um formulario de cadastro de pedido onde ao dar dois cliques em uma stringgrid ele abre outro formulario com os produtos cadastrados (esquema de pai e filhos, um pedido varios produtos) porem estou dando um inner join no evento onshow do formulario produtos e ele da o seguinte erro:
'Tipos de dados imcompativel na expressao de criterio'. Porem se excluo o inner join no onshow ele funciona normalmente mas preciso dele pois no cadastro de pedido informo o representante e no onshow listo somente os produtos do representante, o codigo é o seguinte:
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select tp.produto, tf.fornecedor, tp.valor from tabelaproduto as tp inner join tabelarepresentante as tf on tp.fornecedor = tf.codigo');
ADOQuery1.SQL.Add('where tf.codigo = ' + QuotedStr(Form_OC.DBEdit2.Text));
ADOQuery1.SQL.Add('order by produto');
ADOQuery1.Open;
Edit1.SetFocus;


Editado pela última vez por dcbfreitas21 em Ter Ago 30, 2011 3:32 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Ago 30, 2011 3:13 pm    Assunto: Responder com Citação

O seu erro acredito eu que esteja aqui:

ADOQuery1.SQL.Add('where tf.codigo = ' + QuotedStr(Form_OC.DBEdit2.Text));

deixe assim:
ADOQuery1.SQL.Add('where tf.codigo = ' + Form_OC.DBEdit2.Text;
Código é um inteiro e nao uma string...

bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
dcbfreitas21
Membro Junior
Membro Junior


Registrado: Sábado, 30 de Janeiro de 2010
Mensagens: 323

MensagemEnviada: Ter Ago 30, 2011 3:23 pm    Assunto: Responder com Citação

johnny-walker escreveu:
O seu erro acredito eu que esteja aqui:

ADOQuery1.SQL.Add('where tf.codigo = ' + QuotedStr(Form_OC.DBEdit2.Text));

deixe assim:
ADOQuery1.SQL.Add('where tf.codigo = ' + Form_OC.DBEdit2.Text;
Código é um inteiro e nao uma string...

bye

kra era isso mesmo, este codigo estava funcionando porem alterei meu banco de dados e esqueci deste detalhe. Muito obrigado pela ajuda
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