Discussion :

[landry005]

salut
j'utilise delphi 7 pour developper une application avec une base de donnée sur access.Ds mon livre j'ai trouvé une méthode locate permettant de verifier la conformité des enregistrement d'une base avec cell saisi par un utilisateur.Mais a chaque fois que j'exécute je recois une erreur du genre objet non déclaré.Je ne sais pas sil y a un composant que jé oublié de déclarer quekque part ou koi.merci d'avance pour votre aide
Merci

[lassmust]

utilise plutot une requette SQL dans ton ado query
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
adoquery1.sql.clear;
adoquery1.sql.add('select * from tatable where tonchamps like '+quotedstr('%'+editbox.Text+'%'));
adoquery1.open;

[evarisnea]

salut
j'utilise delphi 7 pour developper une application avec une base de donnée sur access.Ds mon livre j'ai trouvé une méthode locate permettant de verifier la conformité des enregistrement d'une base avec cell saisi par un utilisateur.Mais a chaque fois que j'exécute je recois une erreur du genre objet non déclaré.Je ne sais pas sil y a un composant que jé oublié de déclarer quekque part ou koi.merci d'avance pour votre aide
Merci

fais voir le code que tu utilises
tu utilises la méthode Locate d'un composant d'accès aux données ou juste "comme ca" ?

[landry005]

voici le code ke j'ai saisi

procedure Tlogin.validerClick(Sender: TObject);
begin
if trim(motdepasse.Text)='' then
begin
showmessage('Veuillez saisir votre mot de passe');
motdepasse.Clear;
motdepasse.SetFocus;
end
else
with dataMod.DTuser do
begin
if locate('NomU';'MotDePasse', VarArrayOf([nomutil.Text ,motdepasse.Text ]),[locaseinsensitive]) then
begin
//nomutilisateur := nomutil.Text;
application.CreateForm(Tdemarrage,demarrage);
menugene.Show;
login.close;
demarrage.Timer1.Enabled:=False;
end
else
begin
showmessage('Mot de passe incorrecte !');
motdepasse.Clear;
motdepasse.SetFocus;
end
end

end;



merci

[Rayek]

L'erreur est la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
   if locate('NomU';'MotDePasse', VarArrayOf([nomutil.Text
   ,motdepasse.Text ]),[locaseinsensitive]) then

Tu n'ecris aps correctement dans le locate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
   if locate('NomU;MotDePasse', VarArrayOf([nomutil.Text
      ,motdepasse.Text ]),[locaseinsensitive]) then

[landry005]

jai essayer ton mais avec une requete et maintenant ca marche.

procedure Tlogin.validerClick(Sender: TObject);
begin
if trim(motdepasse.Text)='' then
begin
showmessage('Veuillez saisir votre mot de passe');
motdepasse.Clear;
motdepasse.SetFocus;
end
else
//with dataMod.DTuser do
//begin
//if locate('NomU';'MotDePasse', VarArrayOf([nomutil.Text ,motdepasse.Text ]),[locaseinsensitive]) then
//begin
//if motdepasse.text = 'landry' then
begin
adoquery1.sql.clear;
adoquery1.sql.add('select * from user ');
adoquery1.open;
if adoquery1.Locate('NomU;MotDePasse', VarArrayOf([nomutil.Text ,motdepasse.Text ]),[locaseinsensitive]) then
begin
//nomutilisateur := nomutil.Text;
application.CreateForm(Tdemarrage,demarrage);
menugene.Show;
login.close;
demarrage.Timer1.Enabled:=False;
end
else
begin
showmessage('Mot de passe incorrecte !');
motdepasse.Clear;
motdepasse.SetFocus;
end
end


merci pour a tous votre aide
je vais essayer d'évoluer dans mon programme si j'ai un problemme je reviendrais vous voir
merci encore