| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
daqdel Aprendiz

Registrado: Terça-Feira, 19 de Mai de 2009 Mensagens: 277
|
Enviada: Ter Jul 23, 2013 3:16 pm Assunto: ADO via sql |
|
|
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 |
|
 |
maizena Colaborador


Registrado: Terça-Feira, 20 de Março de 2012 Mensagens: 1497 Localização: Laguna - SC
|
Enviada: Ter Jul 23, 2013 3:22 pm Assunto: |
|
|
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 |
|
 |
Jonatan500 Colaborador

Registrado: Sábado, 8 de Janeiro de 2011 Mensagens: 1064 Localização: Palmas/TO
|
Enviada: Ter Jul 23, 2013 3:28 pm Assunto: |
|
|
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 |
|
 |
maizena Colaborador


Registrado: Terça-Feira, 20 de Março de 2012 Mensagens: 1497 Localização: Laguna - SC
|
Enviada: Ter Jul 23, 2013 7:24 pm Assunto: |
|
|
| 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 |
|
 |
imex Moderador

Registrado: Sexta-Feira, 7 de Janeiro de 2011 Mensagens: 11666
|
Enviada: Ter Jul 23, 2013 9:16 pm Assunto: |
|
|
| 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 |
|
 |
Jonatan500 Colaborador

Registrado: Sábado, 8 de Janeiro de 2011 Mensagens: 1064 Localização: Palmas/TO
|
Enviada: Qua Jul 24, 2013 8:29 am Assunto: |
|
|
Kkkk, é mesmo, funciona também ...  |
|
| Voltar ao Topo |
|
 |
maizena Colaborador


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