Pb de vérification de login d'access à vb

Question

(D&#233;butante)
Voici ma programmation pour la v&#233;rification du login et du num&#233;ro de compte :

Option Explicit


Dim Login As String


Dim Compte As New ADODB.Recordset


Dim ResultCompte As New ADODB.Recordset


Dim Sql As New ADODB.Command


Dim BD As New ADODB.Connection


Public Function V&#233;rification(ByVal NCompte As Integer, ByVal Login As String) As Boolean


Call OuvrirConnexion


Sql.ActiveConnection = BD


Sql.CommandText = " Select * From Comptes Where NumCompte='&NCompte&' and MotPasse='& Login &'"


Set ResultCompte = Sql.Execute


V&#233;rification = Not Compte.EOF


Call FermerConnexion


End Function


Private Sub Cmd_Verif_Click()


Dim NCompte As Integer


NCompte = Val(Txt_NCompte.Text)


Login= Val(Txt_ Login.Text)


If Not IsNumeric(NCompte) Then


MsgBox " Veuillez rentrer un NUMERO de compte "


Else


If V&#233;rification(NCompte, Login) Then


???


Else


MsgBox " Votre Num&#233;ro de Compte ou votre Mot de Passe est invalide "


End If


End If

End Sub
Et cela me donne toujours : 
"Run-time error '-2147217913 (80040e07)':
Type de donn&#233;es incompatible dans l'expression du crit&#232;re"
Qu'est ce qui ne vas pas ?
Pour les ??? je suis sur que ce que j'ai mis est faux mais ce sont des "cmd_" que deviennent active.
Merci beaucoup por votre aide !!!!

PCPT · Answer

salut,
j'ai &#224; peine survol&#233;, mais ceci me choque :

Sql.CommandText = " Select * From Comptes Where NumCompte='&NCompte&' and MotPasse='& Login &'"

devrait sans doute plut&#244;t &#234;tre
Sql.CommandText " Select * From Comptes Where NumCompte "' & NCompte & '" and MotPasse = '" & Login  & "'"

++
PCPT   [AFCK]

PCPT · Answer

et sans l'espace avant SELECT

cs_Jack · Answer

Salut
Je ne sais pas sur quelle ligne il te g&#233;n&#232;re cette erreur, mais voil&#224; ce qui me saute aux yeux :

Sql.CommandText = " Select * From Comptes Where NumCompte='&NCompte&' and MotPasse='& Login &'"

Tu m&#233;langes mal la syntaxe SQL et VB :
Apr&#232;s NumCompte, tu ouvres bien le ' pour d&#233;signer un texte (bizarre d'ailleurs pour un Num), mais tu ne refermes pas la syntaxe VB avant de mettre le & NCompte, donc la requ&#232;te SQL devient, sans les " de VB :

Select * From Comptes Where NumCompte='&NCompte&' and MotPasse='& Login &'

Il te faut donc fermer la syntaxe VB avant de fournir le contenu de la variable :

Sql.CommandText " Select * From Comptes Where NumCompte '" & NCompte & "' and MotPasse = '" & Login & "'"

Remarque, donc : Si le champ NumCompte est d&#233;clar&#233; comme un chiffre dans ta table, il ne faut pas mettre de ' apr&#232;s le =. Par contre, si NCompte est un chiffre, il est plus convenable de le transformer en chaine avant de l'inclure &#224; la chaine de la requ&#232;te SQL (avec CStr), ce qui donne :
Sql.CommandText " Select * From Comptes Where NumCompte " & CStr(NCompte) & " and MotPasse = '" & Login & "'"

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

PCPT · Answer

"Txt_ Login.Text" ? tu arrives &#224; mettre des espaces dans tes noms de contr&#244;les????!!
f&#233;licitations ;)
et tu en reprends le VAL pour une string?
je n'ai pas regard&#233; le reste... (pour cause)
bon courage

PCPT · Answer

.... gros probl&#232;me de refresh apparemment (site).
cel&#224; dit, je me suis &#233;galement tromp&#233; dans mes premi&#232;re c&#244;tes. cf Jack
@+

stitch24 · Answer

C'est bon j'ai r&#233;ussi &#224; arranger mes pb.
Merci pour votre aide

Pb de vérification de login d'access à vb

6 réponses

Discussions similaires