Discussion :

[lokazouzou]

Bonsoir a tous, voilà je voudrais vérifier le mot de passe tapé par utilisateur, j'ai fait ceci mais j'ai un message d'erreur, le type du paramètre :mp n'est pas correcte. Quelqu'un pourrait m'aider ??

Code :

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

1
2
3
4
5
6
7
sqlstr:='SELECT name';
sqlstr:=sqlstr+' FROM   sys.sql_logins ';
sqlstr:=sqlstr+' WHERE pwdcompare(:mp, password_hash)=1';
qverifmp.sql.clear
qverifmp.sql.add(sqlstr);
qverifmp.Parameters[0].Value:=Password.text;
qverifmp.OPEN;

[SergioMaster]

Bonjour,

Il faudrait déjà indiquer de quels composants il s'agit ?
ensuite faite plus lisible comme code

Code :

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

1
2
3
4
5
6
7
8
9
10
qverifmp.sql.clear
qverifmp.sql.add('SELECT name FROM sys.sql_logins');
qverifmp.sql.add('WHERE pwdcompare(:mp, password_hash)=1');
 // le passage de paramètre dépendra beaucoup du composant utilisé, il faut peut-être selon le cas définir le type de paramètre
// si ADO
qverifmp.Parameters.parambyname('mp').datatype:=ftstring; 
qverifmp.Parameters.parambyname('mp').Value:=Password.txt;


qverifmp.OPEN;

il faut aussi avoir une autorisation d'accès CONTROL SERVER

[lokazouzou]

Bonjour, oui , j'utilise un Tadoquery. Merci

[lokazouzou]

Rebonjour, le composant c'est Tadoquery, le paramètre ":mp" est de type string, et c'est là que le message d'erreur se signal, merci beaucoup pour votre aide

[MaxiDonkey]

Le paramètre est de type string donc il faut peut-être utiliser un QuotedStr ?

Code :

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

qverifmp.Parameters[0].Value:=QuotedStr(Password.text);

[Paul TOTH]

Le paramètre est de type string donc il faut peut-être utiliser un QuotedStr ?

Code :

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

qverifmp.Parameters[0].Value:=QuotedStr(Password.text);

non, c'est l'objet des paramètres que de ne pas encoder les valeurs

QuotedStr ça serait pour écrire

Code :

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

1
2
 
  qverifmp.sql.Text := 'SELECT name FROM sys.sql_logins WHERE pwdcompare('  + QuotedStr(Password.text) + ', password_hash)=1');