F�rum SQL - ADOQuery #296317

21/09/2005

Amigos,
Coloquei em uma aplica��o um ADOQuery onde em sua propriedade SQL coloquei esse c�digo:
select * from Tab_Edificacoes where cod_Campo like sEd+��
onde cod_Campo � o compo e sEd � uma variavel para o par�metro.
Eu gostaria de que o campo tamb�m fosse uma variavel!

Como fazer isso???

Caezar

Curtir t�pico

+ 0

Responder

Posts

21/09/2005

Michelli88

select * from Tab_Edificacoes where cod_Campo like sEd+��

Voce esqueceu do �:�

select * from Tab_Edificacoes where cod_Campo like :sEd+���

mas... nao entendo... como assim o campor ser uma variavel??

Responder

Gostei + 0

21/09/2005

Caezar

Porque eu coloquei em um coboBox os campos da tabela!
Ent�o na hora da busca quero escolher o compo em que eu vou fazer a busca!

Responder

Gostei + 0

21/09/2005

Michelli88

No combo vc tem tipo: Nome, Codigo, Tipo e vc quer na hora decidir se vai pesquisar por codigo ou por nome?

Se for isso, vc vai ter q ter um select pra cada um...

Responder

Gostei + 0

21/09/2005

Rogick

Vc pode fazer assim:

ADOQuery1.SQL.Add(�Select * from Tab_Edificacoes where � + combo.Items[combo.ItemIndex] + � like :sEd������);

Onde [i:df22aef36b]combo[/i:df22aef36b] � a combobox e [i:df22aef36b]ADOQuery1[/i:df22aef36b] � sua query(l�gico n�? :wink: ) onde est� os campos.

Espero ter ajudado.

Responder

Gostei + 0

21/09/2005

Caezar

Amigo,
Tentei esse jeito e n�o deu muito certo!
Ele n�o faz nenhuma busca!

Responder

Gostei + 0

21/09/2005

Rjun

Tente fazer assim:

ADOQuery1.SQL.Add(�Select * from Tab_Edificacoes where � + combo.Items[combo.ItemIndex] + � like :sEd);

E quando for passar o par�metro, fa�a assim:

ADOQuery1.Parameters.ParamByName(�sEd�).Value := QuotedStr(valor + ���);

Responder

Gostei + 0

21/09/2005

Rogick

Antes de Executar a query fa�a o seguinte:

ADOQuery1.SQL.SaveToFile(�C:\sql.txt�);

[i:9f67b68cbd]O [u:9f67b68cbd]C:\[/u:9f67b68cbd] pode ser substitu�do por qq pasta de sua preferencia.[/i:9f67b68cbd]

Abra o arquivo [u:9f67b68cbd]sql.txt[/u:9f67b68cbd] gerado e veja como est� saindo a query.

Ah, siga o exemplo de sql do Rjun. O meu estava errado. :lol:

Responder

Gostei + 0

22/09/2005

Caezar

Amigos,
Alguem pode ver o que acontece com esse c�digo?
Estou tentando passar o campo a ser pesquisado do ComboBox(cbCampoBusca) para a variavel sCampo

procedure TformAbrir.btBuscarClick(Sender: TObject);
var
sCampo:string;
begin
  dmConex.tb_Edific.SQL.Clear;
  dmConex.tb_Edific.SQL.Add(�Select * from Tab_Edificacoes where � + sCampo + � like :sEd�);
  CASE cbCampoBusca.ItemIndex OF
    0:sCampo:=�cod_Laudo�;
    1:sCampo:=�EmpresaSolicitante�;
    2:sCampo:=�EmpresaAvalianda�;
    3:sCampo:=�Cidade�  ;
    END;
    with dmConex.tb_Edific do
      begin
        close;
        Parameters.ParamByName(�sEd�).Value:=edPalavraBusca.Text;
        open;
      end;

end;

Responder

Gostei + 0

22/09/2005

Rjun

Qual o problema que est� acontecendo? Est� dando algum erro?

Responder

Gostei + 0

22/09/2005

Caezar

Ele diz:
Erro de sintaxe, operador faltando na express�o like?

Responder

Gostei + 0

22/09/2005

Rjun

Altere a linha em que voc� passa o par�metro:

Parameters.ParamByName(�sEd�).Value := QuotedStr(edPalavraBusca.Text);

Responder

Gostei + 0

22/09/2005

Caezar

Memo problema, ser� que n�o � a variavel sCampo???

Responder

Gostei + 0

22/09/2005

Rjun

Agora que eu fui reparar. Coloque o case onde voc� atribui um valor para sCampo antes da linha que voc� monta o SQL.

Responder

Gostei + 0

22/09/2005

Caezar

Agora n�o d� mais erro nenhum!
Porem ele n�o faz a busca e quando eu fa�o um debug e percebo que o comando sql n�o recebe nenhum valor!

Responder

Gostei + 0

22/09/2005

Rjun

procedure TformAbrir.btBuscarClick(Sender: TObject); 
var 
  sCampo:string; 
begin 
  // Acho que voc� poderia por esse items no combobox e 
  // substituir esse case 
  // 
  //case cbCampoBusca.ItemIndex OF 
  // 0: sCampo := �cod_Laudo�; 
  // 1: sCampo := �EmpresaSolicitante�; 
  // 2: sCampo := �EmpresaAvalianda�; 
  // 3: sCampo := �Cidade�  ; 
  //end;
  
  sCampo := cbCampoBusca.Items[cbCampoBusca.ItemIndex];

  dmConex.tb_Edific.SQL.Clear; 
  dmConex.tb_Edific.SQL.Add(�Select * from Tab_Edificacoes where � + sCampo + � like :sEd�); 

  // Eu n�o gosto de usar WITH. Veja que aqui voc� est� usando 3 
  // linhas a mais.
   dmConex.tb_Edific.close; 
   dmConex.tb_Edific.Parameters.ParamByName(�sEd�).Value := edPalavraBusca.Text; 
   dmConex.tb_Edific.open; 
end;

Quem n�o recebe valor? O par�metro sED?

Responder

Gostei + 0

Mais t�picos