Como Usar Adoquery?

[Guest - alexandre -]

to fazendo um sisteminha q tem buscas com componente ADOQuery.. e não to conseguindo fazer essa busca...

sei como usar o Query no bde, achei q com ado seria =, mas não to conseguindo... tentei colocar no código da busca o "parambyname" mas no ado não funciona...

alguém tem um código de exemplo de como usar o comp. adoquery???

to usando delphi 7, bd em access, conexão ado

obrigado..

[Kikonanet]

Olá,

Olha um exemplo:

 with ADOQuery1 do
  begin
   Close;
   SQL.Clear;
   SQL.Add('SELECT * FROM tabela WHERE campo = (:camp)');
   Parameters.ParamByName('Camp').Value:=Edit1.Text;
   Open;
  end;

Abs.

Kiko

[luceliocampoi]

Se não me engano existe uma opção "Filtered" que você muda para "True" mas não lembro se você precisa inserir o filtro direto em "Filter".

[bastard2003]

luceliocampoi: tem sim q passar o valor pro filter... se não tu so vai ta definindo uma propriedade sem valor... eu quando uso filter (não é MT normal utilizar) eu primeiro passo o filtered := false; ai passo o filtro depois passo o filtered := true;

sempre funcionou.. mas prefiro fazer por codigo na qry mesmo... na minha opnião é mais confiavel!

[luceliocampoi]

Valeu, é isso mesmo. Sei que fiz mas não lembrava bem como . Quanto ao código, concordo plenamente.

[Guest Visitante]

Olá, caras, eu to com um probleminha, tava procurando no google um exemplo pra adoquery pra mim usar numa tela de Login aqui.. achei esse exemplo, coloquei adaptei, mas encontro o seguinte erro "Nenhum valor foi fornecido para um ou mais parâmetros necessários". Alguém sabe o que pode ta causando o erro?

código:

qryLogin.Close;
  qryLogin.SQL.Clear;
  qryLogin.SQL.Add('SELECT * FROM TB_FUNCIONARIOS WHERE LOGIN = (:login) AND SENHA = (:senha)');
  qryLogin.Parameters.ParamByName('login').Value:=edtLogin.Text;
  qryLogin.Parameters.ParamByName('senha').Value:=edtSenha.text;
  qryLogin.Open;
   if qryLogin.eof then
   begin
    showmessage('Usuário não encontrado');
    edtLogin.Text:='';
    edtSenha.Text:='';
    edtLogin.SetFocus;
   end
   else
   begin
      frmMenu.ShowModal;
      close;
   end
end;

[Jhonas]

mas encontro o seguinte erro "Nenhum valor foi fornecido para um ou mais parâmetros necessários". Alguém sabe o que pode ta causando o erro?

edtLogin.Text:='';

edtSenha.Text:='';

Voce tem que colocar valores nos edits antes de executar a SQL

exempo:

edtLogin.Text:='USERNAME';  // voce deve digitar o login e senha antes
  edtSenha.Text:='XYZ';

  qryLogin.Close;
  qryLogin.SQL.Clear;
  qryLogin.SQL.Add('SELECT * FROM TB_FUNCIONARIOS WHERE LOGIN = (:login) AND SENHA = (:senha)');
  qryLogin.Parameters.ParamByName('login').Value:=edtLogin.Text;
  qryLogin.Parameters.ParamByName('senha').Value:=edtSenha.text;
  qryLogin.Open;

   if qryLogin.Recordcount = 0  then
   begin
    showmessage('Usuário não encontrado');
    edtLogin.Text:='';
    edtSenha.Text:='';
    edtLogin.SetFocus;
   end
   else
   begin
      frmMenu.ShowModal;
      //close;
   end;

abraço

[Guest Visitante]

Mas isso ta num evento onClick... eu coloco os valores nos campos e clico no botão e da esse erro...

eu tentei colocar os valores dos edits no click, mas continua dando o mesmo erro =/

será que pode ser alguma coisa relacionada a configuração que eu fiz no bd?

[Jhonas]

O erro está aqui:

procedure TForm1.Button1Click(Sender: TObject);
begin
  qryLogin.Close;
  qryLogin.SQL.Clear;
  qryLogin.SQL.Append('SELECT * FROM TB_FUNCIONARIOS WHERE LOGIN = (:login) AND SENHA = (:senha)');
  qryLogin.Params.ParamByName('login').Value:=edtLogin.Text;
  qryLogin.Params.ParamByName('senha').Value:=edtSenha.text;
  qryLogin.Open;

   if qryLogin.Recordcount = 0  then
   begin
    showmessage('Usuário não encontrado');
    edtLogin.Text:='';
    edtSenha.Text:='';
    edtLogin.SetFocus;
   end
   else
   begin
      frmMenu.ShowModal;
      //close;
   end;

end;

OBS: Voce digita nos edits o login e senha, depois voce clica no botão para executar a SQL

abraço

[Guest Visitante]

putz cara... fiz exatamente o que você fez e não vai... mesmíssimo erro >.<

quer alguma informação sobre o bd ou qualquer outra coisa?

[Jhonas]

Fiz um teste com este codigo e está funcionando... verifique se voce modifou estas linhas

qryLogin.SQL.Append('SELECT * FROM TB_FUNCIONARIOS WHERE LOGIN = (:login) AND SENHA = (:senha)');

qryLogin.Params.ParamByName('login').Value:=edtLogin.Text;

qryLogin.Params.ParamByName('senha').Value:=edtSenha.text;

abraço

[Guest Visitante]

Ah, não tinha visto o params xD

mas eu testei aqui e diz que não existe o.o

Com Pa só existe ParamCheck e Parameters

[Jhonas]

Desculpe ... foi mal .... voce esta usando ADOQuery

ADOQuery1.Parameters.ParamByName(

realmente no ado não tem Params .... refiz o teste usando o ADOQuery e está funcionando.

este erro: "Nenhum valor foi fornecido para um ou mais parâmetros necessários".

indica que voce não está passando os valores para os paramentros, tente usar o degub do delphi para achar o problema

abraço

[Markinhu]

Hmm.. então eu suspeitava disso =P

fiz o debug aqui, e encontrei que tipo.. ele não ta adiconando as coisas nas variáveis... quando passa a linha do Sql.Add eu coloco o mouse sobre o Sql e aparece: qryLogin.Sql = ()... e a mesma coisa na linha dos parâmetros O.o

porque será que não ta alocando os dados nas variáveis? tem alguma dica?

[Guest J.P.]

O código parece estar correto, eu utilizo um pouquinho diferente, mas o resultado é o mesmo, no meu código ficaria assim

qryLogin.Active:=False;
  qryLogin.SQL.Clear;
  qryLogin.SQL.Add('SELECT * FROM TB_FUNCIONARIOS where (login= :a) and (senha= :b)');
  qryLogin.Parameters.ParamByName('a').Value:=edtLogin.Text;
  qryLogin.Parameters.ParamByName('b').Value:=edtSenha.text;
  qryLogin.Active:=True;

   if qryLogin.Recordcount = 0  then
   begin
    showmessage('Usuário não encontrado');
    edtLogin.Text:='';
    edtSenha.Text:='';
    edtLogin.SetFocus;
   end
   else
   begin
      frmMenu.ShowModal;
      //close;
   end;