begin process at 2012 02 14 00:11:43
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

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

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

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

vendredi 3 juin 2005 à 18:04:01 | Acces 2003 & Vb.Net : adodb, requête et cie...

Cybertronic
Je fais quelques tests pour voir comment les connexions et les requêtes aux bases de données Acces via VB fonctionnent. J'ai un problème que je n'arrive pas à résoudre : je n'ai rien trouvé dans l'aide du Studio (MSDN) qui est au passage un sacré foutoire, alors je me tourne vers une âme charitable.
J'ai ajouté à mon projet une référence .NET à 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 à la base de données", MsgBoxStyle.Critical, "Problè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é est trouvée
               If rsm.Fields("passutil") Is mdp Then 'alors là je suis vraiment pas sûr... vue que je suis jamais passé là
                     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ête ne marche pas. Même un "Select * from Utilisateur" ne donne rien (recordcount = -1). Je n'arrive pas à resoudre ce problème. Bien sûr, la table en question contient au moins un enregistrement, et je ne me trompe pas à la saisie de la clé. Eclairez-moi svp.
vendredi 3 juin 2005 à 18:11:00 | Re : Acces 2003 & Vb.Net : adodb, requête et cie...

spirfite
 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...
vendredi 3 juin 2005 à 18:26:20 | Re : Acces 2003 & Vb.Net : adodb, requête et cie...

Cybertronic

Permettez-moi de faire les questions et les réponses puisque... CA MAAARCCCHHEEEEE !!!!

Bien bien, calmons-nous. Merci de ta participation spirfite mais ce que tu dis ne semble pas nécessaire.
En fait, j'ai juste changé un paramètre lors l'execution de ma requê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 à lire ce message en cas de pb que pour accéder aux champs, je suis passé par :

If rsm.Fields("passutil").Value = mdp Then
   Return True
Else ....

Bref ça marche directement avec le nom du champ de la table.
Parfait parfait, je suis content, j'avais fais ça il y a 2 bonnes anné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 !

vendredi 3 juin 2005 à 18:37:09 | Re : Acces 2003 & Vb.Net : adodb, requête et cie...

dragon
moi j'aime bien mon petit composant que j'avais poster qui gérait toutes les possibilité de la base de donner, voir ma source (http://www.vbfrance.com/code.aspx?ID=25495)

elle marche numéro 1, sauf faudrais que je la mettre a jour, elle c,est amélioré beaucoup depuis le temps en gérant les thread et comapgnie

-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------

vendredi 3 juin 2005 à 18:46:16 | Re : Acces 2003 & Vb.Net : adodb, requête et cie...

Cybertronic
Cool je vais regarder ça de près. Merci dragon.


Cette discussion est classée dans : net, vb, adodb, cnx, rsm

Répondre à ce message

Sujets en rapport avec ce message

traduisez moi ce code de vb net en un code de vb6 [ par bidossessy ] Public Cnx As New Odbc.OdbcConnection     Public Function Connection_Odbc(ByVal sSdd As String, ByVal sUid As String, ByVal sPwd As String) As Boolean erreur de lecture d'un recordset en VB.net [ par yacc ] Bonjour,J'ai porté (de force car mon service info refuse d'installer le SOAP Tool Kit sur notre nouveau serveur, et me force donc à utiliser .net pour Pot de peinture en VB.NET [ par matteli ] Bonjour, Est-ce que quelqu'un connait la fonction pot de peinture en VB.NET ? [vb net]Changer la résolution de l'écran en vb net [ par boumbo73 ] Bonjour, C'est bien je trouve plein de source pour changer la résolution mais ne vb 6 ! Comment faire en vb net ?????? Ca fait des jours que je cher [VB .NET Comment redimentionner mon application en fonction de la résolution d'écran ????] [ par Master ] comment faire en VB.NET pour que mon application et tous ses composants se redimentionne automatiquement au démarrage en fontion de la résolution d'éc [VB.NET] Ecrire et Lire sur le port paralle en bas niveau ET Apel de fonction ecrite en C a partir de VB.NET [ par Ulmo ] Est ce que quelqu'un sait comment ecrire et lire sur le port parallele en VB.NET ? J'ai deja regardé dans les messages du forum, j'ai trouvé des truc comment charger une page avec vb.net? [ par sousou_one ] salut,je voudrais savoir comment charger une page .aspx à partir d'un simple clic sur un bouton avec vb.netMerci d'avance Tableauc de Boutons vb.net [ par thefada ] Salut, je veux creer un tableau de boutons:         Dim res() As Button         res(0) = Me.Button1 Or le code ci-dessus plante a l'execution avec l Rafraichissement Doevents en VB.NET [ par matteli ] Quelle est la commande en VB.NET qui remplace le "DoEvents" de VB5 pour permettre de laisser un élément se rafraichir avant de continuer l'exécution ? remplir un tableau sur excel depuis VB.net [ par Rjoe ] est ce que quelqu'un saurait commen mettre le contenu d'une datatable sur un fichier excel depuis vb.netsur une cellule précise par exempleen cliquant


Nos sponsors


Sondage...

Comparez les prix


Sony Ericsson XPERIA X10 (1 Go)
Entre 649€ et 649€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Beautiful woman in a bikini meditating on the beach
Photo Sparkling lagoon in the south pacific, Moorea, French Polynesia 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,421 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)