Pb SQL vb access 2007 Fermé

Question

Bonjour,  



J'ai écrit ce code dans VBA où: 
  - "conducteur" est une table avec "Email" et "Mot de passe" comme deux des champs de cette table; 
  - "Identification" est un formulaire avec "email" et "mdp" des zones de texte 

J'aimerais que ce code me permette de vérifier que l'utilisateur est déjà inscrit. C'est un test. C'est pourquoi je ne passe pas par une requête. 

Cependant, mon code ne fonctionne pas, j'ai utilisé une Msgbox pr vérifier le fonctionnement mais il me retourne "SELECT [...] [mdp]))" et non le résultat de cette fonction. 

Private Sub ins_Click() 
    Dim base As DAO.Database 
    Set base = CurrentDb() 
    Dim sql_serial 
     sql_serial = "SELECT E-mail, Mot de passe FROM Conducteur WHERE (((Conducteur.[E-mail])=[Formulaires]![Identification]![email]) AND ((Conducteur.[Mot de passe])=[Formulaires]![Identification]![mdp]))" 
     MsgBox (sql_serial) 
End Sub 


Je vous remercie! 


Adrienne

Skeletyon · Answer

Bonjour, 
Ta variable sql_serial si tu fais que l'afficher, il est normal que ça ne fasse que te l'afficher.

Il faut que tu traite cette variable.

Ca fait longtemps que j'ai pas fait de VB donc je veux pas dire de connerie sur du code...

Si j'ai le temps je te retrouve ça sur mon ordi ce soir :=)

Skeletyon · Answer

j'ai retrouvé mon bout de code! *c'est que je l'ai cherché ce con -_-*

Je pense que le code jopoiss est correct et doit fonctionner ;)


Dim strsql As String = String.empty
strSQL = "SELECT count(NomAbonne) FROM Abonnes WHERE NomAbonne ='" + NomAbonne + "' "
Dim objcommand As New Oledb.OleDbCommand(strSQL, MyConnexion)

objcommand.ConnectionOpen ()
objcommand.ExecuteNonQuery()

Dim strResultat as Integer = objcommand.ExecuteScalar()

If (strResultat = 0) then 'Le nom n'est pas inséré, on eécute
...
...
End If
 

Si tu as besoin de commentaires je peux en fournir, mais à part le OleDb qui est fonction de ce que tu utilises comme base et driver ODBC toussah, y'a pas de difficultés particulières.

En espérant que ça t'aide et en me pardonnant du temps que cela a pris. oO

Bonne année! xD

rocklive.didi · Answer

Rebonjour, 

 J'ai essayé sous une autre forme, cependant je rencontre toujours un problème avec le "db.OpenRecordset(sql_serial, dbOpenDynaset)".

Voici mon code:

Private Sub valider_Click()


Dim rs As DAO.Recordset
Dim requete As String
Dim db As DAO.Database
Dim Qry As DAO.QueryDef


Set db = CurrentDb()

sql_serial = "SELECT Email, Motdepasse FROM Conducteur WHERE (((Conducteur.[Email])=[Formulaires]![Identification]![email]) AND ((Conducteur.[Motdepasse])=[Formulaires]![Identification]![mdp]))"

Set rs = db.OpenRecordset(sql_serial, dbOpenDynaset)

End Sub

 Tout d'abord savez vous comment cette fonction fonctionne? Et avez vous une idée pour régler cette erreur?

Merci à tous!!


Adrienne

jopoiss · Answer

Bonjour,

Peux-tu donner plus de précisions sur l'erreur?

Pb SQL vb access 2007

4 réponses

Discussions similaires