Jump to content
Donizera

Parâmetro em Querry DELPHI [como usar paramentros do tipo string?] [HELP]

Recommended Posts

Tenho tentado criar uma procedimento para busca dentro de um tabela de um banco;
E adotei o seguinte código para o procedimento;

procedure Busca(campo:string);
begin
    DM.qtester.Active :=false ;
    DM.qtester.ParamByName('campo').AsString := campo;// PARAMETRO CAMPO , RECEBE A INFORMAÇÃO DE QUAL COLUNA SERA SELECIONADA
    DM.qtester.ParamByName('valor').Value := frmTabelaFuncionario.Edit1.Text;// PARAMENTRO VALOR, RECEBE A INFORMAÇÃO DO VALOR DE COMPARAÇÃO 
    DM.qtester.Active := true ;
    frmTabelaFuncionario.gridExibeFuncionario.DataSource :=  DM.dsTester;// TABELA RECEBE A NOVA QUERY ADOTADA PARA EXIBIÇÃO

end;

QUERRY MENCIONADA NO METODO BUSCA
 

[code=sql]
select 
codFuncionario, 
nome, 
idade, 
cpf, 
endereco, 
numero,
cep, 
telefone,
codSetor 
from projetoestacionamento.funcionario 

where  
:campo = :valor and
excluido <> 'e' order by (codFuncionario)

 

O problema é que, quando executo o método tudo ocorre certo até o ponto da onde a tabela exibirá as informações da busca; 
Acontece que o teste feito no sql(where) acaba dando falso. (Pelo fato de que eu entendi o paramentro :campo esta vazio)

Testando o codigo percebi que, ao passar somente o valor de comparação (no caso o paramentro :valor), a tabela exibe corretamente a busca,

e pesquisando descobri q parametros podem ser tipados;

 

  • Tenho que estipular algum tipo pra o meu parametro campo ?
  • existe outro método mais eficiente que esse, para busca em tabela ?

Desde ja agracedo!

Share this post


Link to post
Share on other sites

Não é possível referenciar um campo da tabela utilizando um parâmetro, da forma que você está fazendo a consulta executada está sendo.

SELECT 
  codFuncionario, 
  nome, 
  idade, 
  cpf, 
  endereco, 
  numero,
  cep, 
  telefone,
  codSetor 
FROM
  projetoestacionamento.funcionario 
WHERE  
  /*:campo = :valor */
  'Campo selecionado' = 'Texto do Edit'
  AND excluido <> 'e'
ORDER BY
  (codFuncionario)

Está comparando dois valores do tipo string.

 

A solução que me passa pela cabeça seria ajustar a consulta do qtester dependendo do campo selecionado, algo como:

procedure Busca(campo:string);
const
  cSQL: string = 
    'SELECT ' +
    '  codFuncionario, nome, idade, cpf, endereco, numero,cep, telefone,codSetor ' +
    'FROM ' +
    '  projetoestacionamento.funcionario ' +
    'WHERE ' +
    '  %s = :valor AND excluido <> ''e'' ' +
    'ORDER BY ' +
    '  (codFuncionario)';
begin
  DM.qtester.Active :=false;
  //Dependendo do componente utilizado DM.qtester.SQL.Text pode ser DM.qtester.CommandText
  DM.qtester.SQL.Text := Format(cSQL, [campo]);
  {
    Equivalente a
    DM.qtester.SQL.Text := 'SELECT ' +
    '  codFuncionario, nome, idade, cpf, endereco, numero,cep, telefone,codSetor ' +
    'FROM ' +
    '  projetoestacionamento.funcionario ' +
    'WHERE ' +
    '  ' + campo + ' = :valor AND excluido <> ''e'' ' +
    'ORDER BY ' +
    '  (codFuncionario)';
  }
  DM.qtester.ParamByName('valor').Value := frmTabelaFuncionario.Edit1.Text;// PARAMENTRO VALOR, RECEBE A INFORMAÇÃO DO VALOR DE COMPARAÇÃO 
  DM.qtester.Active := true ;
  frmTabelaFuncionario.gridExibeFuncionario.DataSource :=  DM.dsTester;// TABELA RECEBE A NOVA QUERY ADOTADA PARA EXIBIÇÃO
end;

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By clecio10
      Olá pessoal sou novo no fórum e gostaria da ajuda de vocês na resolução de um exercício de estrutura de dados, não estou sabendo como implementar os métodos com base nas perguntas do exercício. Por favor, quem puder ajudar eu agradeço de coração!
       
      Enunciado:   1. Implemente o método compareTo(Object o) da classe Item ; 2. Implemente a lista duplamente encadeada para a atender a interface ILista ; 3. Implemente a lista simplesmente encadeada circular para a atender a interface ILista ; 4. Implemente a lista duplamente encadeada circular para a atender a interface ILista ;   interface ILista { /** * Adiciona um elemento na lista * * @param dado Elemento a ser adicionado * @throws ListaException Erro caso não tenha mais espaço disponível. */ void adicionar(Item dado) throws ListaException; /** * Remove um item da lista * * @param chave informar a chave de busca do item * @throws ListaException Erro caso não tenha o item informado. */ void remover(Comparable chave) throws ListaException; /** * Caso a chave seja encontrada, retorna verdadeiro * * @param chave * @return */ boolean contem(Comparable chave) throws ListaException; /** * Retorna a quantidade de elementos * * @return a quantidade de elementos */ int getQtd(); /** * Adiciona a outra lista no final da lista. * * @param outralista a outra lista a ser somada. */ void AdicionarNoFinal(ILista outralista) throws ListaException; /** * Adiciona a outra lista no final da lista. * * @param outralista a outra lista a ser somada. */ void AdicionarNoFinal(Item[] outralista) throws ListaException; /** * Adiciona a outra lista após o item chave existente na lista. * * @param outralista a outra lista a ser somada. * @param chaveDoItemDoMeio elemento chave que antecederá a outra lista */ void AdicionarNoMeio(Comparable chaveDoItemDoMeio, ILista outralista) throws ListaException; /** * Retorna outra lista com os elementos existentes da lista. * * @param posicaoInicial posição inicial da lista a ser copiada. * @param posicaoFinal posição final da lista que deve ser copiada. */ Item[] getSubLista(int posicaoInicial, int posicaoFinal) throws ListaException; /** * Retorna a quantidade de elementos que são iguais ao informado no parâmetro. * * @param item elemento de comparação. */ int getQtdElementos(Item item) throws ListaException; /** * Remove os itens duplicados * * @throws ListaException */ void removerDuplicados() throws ListaException; } public class Item implements Comparable { private Comparable chave; private Object informacaoCompleta; public Item() { } public Item(Comparable chave) { this(); this.chave = chave; this.informacaoCompleta = chave; } public Item(Comparable chave, Object dado) { this(chave); this.informacaoCompleta = dado; } public Object getInformacaoCompleta() { return informacaoCompleta; } public void setInformacaoCompleta(Object informacaoCompleta) { this.informacaoCompleta = informacaoCompleta; } public Comparable getChave() { return chave; } public void setChave(Comparable chave) { this.chave = chave; } // Implementar o método compareTo public int compareTo(Object o) { return 0; } } public class ListaException extends Exception { public ListaException(String msg) { super(msg); } }
    • By MrKintschev
      minha duvida é sobre o Kotlin, se o mercado esta bom, kotlin com spring, se compensa estudar e principalmente sobre o kotlin javascript, apps react kotlin se isso compensa se é promissor... pq eu gostei da idea, mas nao sei se vingaria
    • By Rarukki0918
      Estou fazendo um programa no pascalzim que utiliza vetores e ele nao esta fazendo a soma dos valores pedidos na questao ,ele esta exibindo o primeiro valor digitado,a questao esta logo abaixo:
       
       
      Faça um programa que leia um vetor de 10 elementos numéricos, calcule e mostre
      a quantidade de números negativos e a soma dos números positivos desse vetor.
       
      Program dez_numeros_negativos_positivos;
      uses crt;
      VAR
      VETOR: array[1..10] of integer;
      CONT,N,P,CAIXA,SOMA:INTEGER;
      Begin
        FOR cont:=1 to 10 do
        begin
          textcolor(white);
          write('Digite o numero:');
          READLN(VETOR[CONT]);
        END;
        FOR CONT:=1 TO 10 DO
        BEGIN
          IF VETOR[CONT]<0then
          BEGIN
            N:=N+1;
          END;
        END;
        FOR CONT:=1 TO 10 DO
        BEGIN
          IF VETOR[CONT]>0 then
          BEGIN
            P:=VETOR[CONT]+VETOR[CONT];
            CAIXA:=CAIXA+P;
            SOMA:=SOMA+CAIXA;
          END;
          FOR CONT:=10 TO 10 DO
              BEGIN
               WRITELN('Quantidade de numeros negativos:');
               WRITELN(N);
                WRITELN('Soma de todos os numeros positivos:');
                   WRITELN(SOMA);
                   END; 
        END;
        READKEY;
        
      END.
    • By Claudia França
      Prezados preciso de uma ajudar para entender o que mudar e fazer a integracao com base no link https://developercielo.github.io/manual/cielo-ecommerce#visacheckout   ( padrão cielo)
      Eu gostaria de entender se so preciso mudar o nome da variáveis  para fazer com que a cielo receba a informação da transação certa. Como faço para que as requisições sejam enviadas no padrão da Cielo. ? 
       
      No php imagem, está o que eu tenho no ambiente.
      no link como a cielo quer.
       
       


    • By victormota1695
      Estou desenvolvendo um programa para trabalho de faculdade onde
      preciso usar estrutura de repetição para perguntar ao usuario um nome/itens armazena-los e quando o usuario nao quiser mais digitar os nomes ao sair do loop mostra todos os nomes que ele digitou.
       
      nao estou conseguindo preciso de ajuda. dese ja agradeço.
       
      meu codigo ate o momento e:
       
      #include <stdio.h>
      #include<stdlib.h>

      int main (){
      char lista,lista2;
      int menu1,menu2;

      printf("***BEM-VINDO AO LISTSUPER***\n\n");
      // ****Aqui o 1º menu de seleção****//
      printf("Escolha uma opção\n");
      printf("1-inserir novos itens\n2-inserir quantidade\n3-calcular valor\n4-mostrar itens\n\n");
      scanf("%i",&menu1);

      // ***Aqui e o loop para digitar os itens desejados****//
      if (menu1==1){
        while(1) {
             printf("insira os itens\n");
             scanf("%s",&lista);
             printf("deseja inserir novos itens? [1-sim/2-nao]\n");
             scanf("%i",&menu2);

       if (menu2==2){ break;}
      }
      }
      // ***Caso ele não selecione a opção para inserir novos itens aparecera esta mensagem***//
      else {
          printf("Não ha itens inseridos\nEscolha a opção ( inserir novos itens )");
      }
      //***Apos acabar de digitar os itens mostrar a lista dos itens digitados***//

      return 0;

      }
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.