Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2543 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  à l'aide Access/SQL/VBA

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

à l'aide Access/SQL/VBA

n°1060115
le_bob75
Posté le 25-04-2005 à 18:00:20  profilanswer
 

bonsoir, j'ai un gros problème de requête sql en Access/VBA :
voila, depuis deux jours, j'ai tout essayé. le truc que je veux est simple : entrez 1 login, 1 mot de passe (appartenant tout les deux à la table Utilisateur), et afficher 1 message en cas d'erreur d'authentification, ainsi que dans le cas contraire. voici mon code
 
Private Sub Commande6_Click()
Dim dbs As DAO.Database
Dim rstSQL As String
Dim r As DAO.Recordset
'création du recorSet
Set dbs = CurrentDb
'requête
rstSQL = "SELECT loginU FROM Utilisateur" _
& "WHERE (loginU='" & Me.champ_utilisateur & "' AND  passwordU='" & Me.champ_mdp & "');"
Set r = dbs.CreateQueryDef("", rstSQL)
Set r = dbs.OpenRecordset(rstSQL, dbOpenForwardOnly, dbReadOnly)
If IsNull(r) Then
MsgBox "Le login ou le mot de passe est incorrect", vbCritical, "Erreur"
Else
MsgBox "authentification réussie", vbCritical, "Ok"
End If
r.Close
End Sub
 
Tout est ok à la compilation, mais à l'execution, j'ai l'erreur suivante qui revient constament : 'erreur d'execution '3131': Erreur de syntaxe dans la clause FROM'
après activation du débogage, il me surligne la ligne suivante :
 
Set r = dbs.CreateQueryDef("", rstSQL)
 
donc apparement le problème vient d'ici. j'ai tout essayer, les .Text, les setFocus...Etc, j'ai toujours la même chose.  
Petite précision, j'utilise Access 97 (plus pour longtemps), donc DAO.
 
Merci

mood
Publicité
Posté le 25-04-2005 à 18:00:20  profilanswer
 

n°1060178
le_bob75
Posté le 25-04-2005 à 18:36:56  profilanswer
 

j'ai résolu le problème : pour ceux que cela interesse, voici mon code :
 
Private Sub Commande6_Click()
Me.Requery
Dim sql As String
Dim rs As DAO.Recordset
sql = " SELECT * FROM Utilisateur WHERE loginU = '" & Me.champ_utilisateur & "' and passwordU = '" & Me.champ_mdp & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
MsgBox "Identification Ok", vbInformation, "ID_OK"
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
End If
End Sub


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  à l'aide Access/SQL/VBA

 

Sujets relatifs
Atteindre un champ particulier avec VBAaide pour ob_start , setcookie et ob_end_flush();
Aide pour Programme de génération aléatoire de texte (Noob)besoin urgent d'une base de donnée Access
Aide sur une erreurerreur d'execution VBA/access
Requête SQL pour access[SQL]Concaténer 2 chaînes numériques avec espace reservé
Plus de sujets relatifs à : à l'aide Access/SQL/VBA


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR