Acces 2003 & Vb.Net : adodb, requête et cie...

Question

Je fais quelques tests pour voir comment les connexions et les requ&#234;tes aux bases de donn&#233;es Acces via VB fonctionnent. J'ai un probl&#232;me que je n'arrive pas &#224; r&#233;soudre : je n'ai rien trouv&#233; dans l'aide du Studio (MSDN) qui est au passage un sacr&#233; foutoire, alors je me tourne vers une &#226;me charitable.
J'ai ajout&#233; &#224; mon projet une r&#233;f&#233;rence .NET &#224; adodb.

Voici mon code :
Function Verif_util(
ByVal lgn 
As 
String, 
ByVal mdp 
As 
String) 
As 
Boolean
   Dim cnx As New ADODB.Connection
   Dim cmd As New ADODB.Command
   Dim rsm As New ADODB.Recordset
   Dim req 
As 
String 

   cnx.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Projets\VB.Net\Access_VB\base.mdb"
   cnx.Open()

   If cnx.State < 1 
Then
         MsgBox("Impossible de se connecter &#224; la base de donn&#233;es", MsgBoxStyle.Critical, "Probl&#232;me critique")

         Exit 
Function
   Else         req "SELECT * FROM Utilisateur WHERE logutil '" & Trim(lgn) & "';"
         rsm.Open(req, cnx, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

         If rsm.RecordCount = 1 
Then 'si la cl&#233; est trouv&#233;e
               If rsm.Fields("passutil") 
Is mdp 
Then 'alors l&#224; je suis vraiment pas s&#251;r... vue que je suis jamais pass&#233; l&#224;
                     Return 
True
               Else
                     MsgBox("Mot de passe incorrect pour ce login", MsgBoxStyle.Exclamation)
                     cnx.Close()

                     Return 
False
               End 
If
         Else
               MsgBox("Login inconnu", MsgBoxStyle.Exclamation)
               cnx.Close()
               
Return 
False
          End 
If
   End 
If
End 
Function

La connexion est bonne mais la requ&#234;te ne marche pas. M&#234;me un "Select * from Utilisateur" ne donne rien (recordcount = -1). Je n'arrive pas &#224; resoudre ce probl&#232;me. Bien s&#251;r, la table en question contient au moins un enregistrement, et je ne me trompe pas &#224; la saisie de la cl&#233;. Eclairez-moi svp.

cs_spirfite · Answer

req = "SELECT * FROM Utilisateur WHERE logutil = '" & Trim(lgn) & "';"
 rsm.Open(req, cnx, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)



=> faut d'abord ouvrir la table avant de faire une requete...

Cybertronic · Answer

Permettez-moi de faire les questions et les r&#233;ponses puisque... CA MAAARCCCHHEEEEE !!!! 

Bien bien, calmons-nous. Merci de ta participation spirfite mais ce que tu dis ne semble pas n&#233;cessaire.
En fait, j'ai juste chang&#233; un param&#232;tre lors l'execution de ma requ&#234;te :


rsm.Open(req, cnx, ADODB.CursorTypeEnum.adOpenKeyset .... et pas rsm.Open(req, cnx, ADODB.CursorTypeEnum.adOpenDynamic ....

Et puis j'ajouterai pour ceux qui pourraient avoir &#224; lire ce message en cas de pb que pour acc&#233;der aux champs, je suis pass&#233; par :

If rsm.Fields("passutil").Value = mdp 
Then
   Return 
True
Else ....

Bref &#231;a marche directement avec le nom du champ de la table.
Parfait parfait, je suis content, j'avais fais &#231;a il y a 2 bonnes ann&#233;es en VB6 mais je ne me souvenais plus comment j'avais fais ().
Merci, le simple fais de demander de l'aide ici me fait trouver la solution. Trop fort ce site !

cs_dragon · Answer

moi j'aime bien mon petit composant que j'avais poster qui g&#233;rait toutes les possibilit&#233; de la base de donner, voir ma source (http://www.vbfrance.com/code.aspx?ID=25495)

elle marche num&#233;ro 1, sauf faudrais que je la mettre a jour, elle c,est am&#233;lior&#233; beaucoup depuis le temps en g&#233;rant les thread et comapgnie


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Cybertronic · Answer

Cool je vais regarder &#231;a de pr&#232;s. Merci dragon.

Acces 2003 & Vb.Net : adodb, requête et cie...

4 réponses

Discussions similaires