Discussion :

[cyrilherve]

salut a tous,
je travail sur une application avec vb6 dont l'acces doit etre gerer
par authentification avec un compte et un mot de passe.
en fait le programme recupere le mot de passe et le compte et
verifier dans une table COMPTES creer dans ma bd avc access 2003.

l'appli demarre avec le sub main ,qui est en fait un module de connection
que j'ai cree voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
'declarationn de la feuille de module de connection
 
 public cnx as adodb.connection
 public rst as adodb.recordset
 tt as string
 
'sub main du module de connection
 
 set cnx =new adodb.connection
 connectionstring="dsn=inscription"
 set rst= new adodb.recordset
 frmconnection.show

voici une partie du code de le feuille frmconnection ,celle qui semble ne pas marcher.
en fait c le code du bouton "valider" de l'interface de connection
l'utilisateur clique dessus aprs avoir saisie son compte et son mt de passe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
tt="select * from COMPTES where compteutilisateur= ' " & trim(txtcompte)& " ' and motdepasse= ' " & trim(txtmotdepasse)& " ' "  
 
' cette requete tient sur une ligne dans mon code biensur .
 
cnx.open
set rst= cnx.execute(tt)
if not rst.eof then
  MDIgestioninscription.show
else
msgbox (" vous n'avez pas entrer les bons parametres ")
cnx.close

voila mais a chaque fois j'ai un message d'erreur du genre :
erreur d'execution'-2147217904(80040e10)':
[Microsoft][Pilote ODBC Microsoft Access] trop de parametres. 1
attendu.

et qand je clique sur debogage ,,ça m'envoit sur la la feuille frmconnexion
ou l'instruction " set rst= cnx.execute(tt) " est colorie en jaune

voila est que qlqun peut m'aider ?
merci

[ProgElecT]

Bien que

et qand je clique sur deboga ,,ça m'envoit sur la la feuille frmconnexion
ou l'instruction " set rst= cnx.execute(tt) " est colorie en jaune

l'erreur est dans la redaction de ta requette.

je te propose d'essayer ça

Code :

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

1
2
3
tt = "Select * from COMPTES where compteutilisateur = ' " & Trim(txtcompte) _
    & " ' and motdepasse = ' " & Trim(txtmotdepasse) _
    & " ' " ' bien sur sur la mm ligne .

bien sûr, sur la même ligne, pas obligé, là preuve

[cyrilherve]

pb resolu , il sagit effectivemnt de ma requete ,
il fallait mettre un espace avant le signe " = " a chaque fois
merci