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 

ADO via sql

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


Registrado: Terça-Feira, 19 de Mai de 2009
Mensagens: 277

MensagemEnviada: Ter Jul 23, 2013 3:16 pm    Assunto: ADO via sql Responder com Citação

Boa tarde!
Coloquei um ADOQuery no form com uma Sql para chamar a tabela forn.
No form tenho um edit, que é a variavel que recebe os numeros para ser utilizado no filtro via sql.

O codigo SQL é esse :
SELECT forn.cod, forn.nome
FROM forn;

Quando colocar um valor no edit, gostaria que acrescenta-lo no sql, para mudar a consulta e assim filtrar somente o codigo que esta no edit.
Exemplo, colocando o valor 12 no edit, ficaria assim o Sql.

SELECT forn.cod, forn.nome
FROM forn
WHERE (((forn.cod)=12));

Agora como faço para ficar alterando meu ADO conforme a variavel desejada?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
maizena
Colaborador
Colaborador


Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 1497
Localização: Laguna - SC

MensagemEnviada: Ter Jul 23, 2013 3:22 pm    Assunto: Responder com Citação

Se eu entendi é isso:

Código:


SEU_ADO.close;
SEU_ADO.SQL.Clear;
SEU_ADO.SQL.Text:='select SEUS_CAMPOS from SUA_TABELA where CAMPO_QUE_DESEJA_PESQUISAR =:pvalor;
SEU_ADO.Parambyname('pvalor').AsString:= SEU_EDIT.text;
SEU_ADO.Open;


_________________
Canal Delphi+ INSCREVA-SE: http://www.youtube.com/channel/UCnVF5ly5PRwZONE-U7xZM6w?feature=watch
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Jonatan500
Colaborador
Colaborador


Registrado: Sábado, 8 de Janeiro de 2011
Mensagens: 1064
Localização: Palmas/TO

MensagemEnviada: Ter Jul 23, 2013 3:28 pm    Assunto: Responder com Citação

no ado query não é text maizena é add

Corrigindo
Código:
SEU_ADO.close;
SEU_ADO.SQL.Clear;
SEU_ADO.SQL.add('select SEUS_CAMPOS from SUA_TABELA where CAMPO_QUE_DESEJA_PESQUISAR =:pvalor');
SEU_ADO.Parambyname('pvalor').AsString:= SEU_EDIT.text;
SEU_ADO.Open;

_________________
"NESCIS QUIA EGO SUM PROGRAMMATOR"
#DelphiPower
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
maizena
Colaborador
Colaborador


Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 1497
Localização: Laguna - SC

MensagemEnviada: Ter Jul 23, 2013 7:24 pm    Assunto: Responder com Citação

Jonatan500 escreveu:
no ado query não é text maizena é add

Corrigindo
Código:
SEU_ADO.close;
SEU_ADO.SQL.Clear;
SEU_ADO.SQL.add('select SEUS_CAMPOS from SUA_TABELA where CAMPO_QUE_DESEJA_PESQUISAR =:pvalor');
SEU_ADO.Parambyname('pvalor').AsString:= SEU_EDIT.text;
SEU_ADO.Open;


Ops, vdd desculpe a falha, hehe vlw Jonatan500
_________________
Canal Delphi+ INSCREVA-SE: http://www.youtube.com/channel/UCnVF5ly5PRwZONE-U7xZM6w?feature=watch
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
imex
Moderador
Moderador


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

MensagemEnviada: Ter Jul 23, 2013 9:16 pm    Assunto: Responder com Citação

Jonatan500 escreveu:
no ado query não é text maizena é add

Corrigindo
Código:
SEU_ADO.close;
SEU_ADO.SQL.Clear;
SEU_ADO.SQL.add('select SEUS_CAMPOS from SUA_TABELA where CAMPO_QUE_DESEJA_PESQUISAR =:pvalor');
SEU_ADO.Parambyname('pvalor').AsString:= SEU_EDIT.text;
SEU_ADO.Open;


Não entendi... acho que o código que o maizena postou rodaria normalmente se não fosse a aspas simples que faltou no final antes do ponto e vírgula:

Código:
SEU_ADO.SQL.Text := 'select SEUS_CAMPOS from SUA_TABELA where CAMPO_QUE_DESEJA_PESQUISAR = :pvalor';


O único detalhe é que nesse caso o SQL.Clear seria desnecessário.

Abraços
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Jonatan500
Colaborador
Colaborador


Registrado: Sábado, 8 de Janeiro de 2011
Mensagens: 1064
Localização: Palmas/TO

MensagemEnviada: Qua Jul 24, 2013 8:29 am    Assunto: Responder com Citação

Kkkk, é mesmo, funciona também ... Embarassed
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
maizena
Colaborador
Colaborador


Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 1497
Localização: Laguna - SC

MensagemEnviada: Qua Jul 24, 2013 8:32 am    Assunto: Responder com Citação

Vlw imex eh que não trabalho com ADO, mais tranquilo galera o importante eh que possa ajudar nosso amigo daqdel

Abraço a tds.
Wink
_________________
Canal Delphi+ INSCREVA-SE: http://www.youtube.com/channel/UCnVF5ly5PRwZONE-U7xZM6w?feature=watch
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
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