Connexion ado a une base de données access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 591 fois - Téléchargée 49 fois

Contenu du snippet

Ce petite code fait une connexion ado a une basse de données, de cette façons avec la commande rsado vous pouvez faire des filtre , des tri, des condition dans votre basse de donnée , avec ou sans des requête SQL intégrée a rsado.

Source / Exemple :


' Dans le module 

Public cnnADO As New ADODB.Connection
Public cmdADO As New ADODB.Command
Public rsADO As New ADODB.Recordset

Public Function OuvreDB(Champsdb As String, Tabledb As String)
   
   ' Ouverture de la Base de données des Membres
   
   
   ' Etablissement de la connexion
     cnnADO.Provider = "Microsoft.JET.OLEDB.4.0"
     cnnADO.ConnectionString = App.Path + "\DB\Main.mdb"
     cnnADO.Open
     
   ' Fin de l'établissement de la connexion
   
   ' Configuration de la commande
     cmdADO.ActiveConnection = cnnADO                                ' Etablis la connection
     cmdADO.CommandText = "SELECT " + Champsdb + " From " + Tabledb          ' Identifications des champs de la DB
   
   ' Fin de la configuration de la commande
   
   ' Configuration et ouverture du RecordSet
     rsADO.CursorLocation = adUseClient         ' Utilisation d'un mode client
     rsADO.CursorType = adOpenDynamic               ' Ouvre en mode dynamique
     rsADO.LockType = adLockOptimistic             ' Verrouille la base de donnée en mode exclusive
     rsADO.Open cmdADO                              ' Ouvre le RecordSet
   ' Fin de la Configuration et de l'ouverture du RecordSet
   
 ' Fin de l'ouverture de la Base de données des Membres
End Function

Public Function GetValue(fld As Field) As String       ' fld pour Field (Champs)
 
 ' La reprrésentation du contenu des champs dans les zones de texte est réalisée par
 ' la fonction GetValue.  Les champs des bases de données Access qui sont encore vides
 ' sont identifiés par la Valeur Null, qui ne peut pas être affichée dans une zone de
 ' texte.  Si ce type de valeur est présent (Fonction IsNull), GetValue renvoie une
 ' chaîne de caractères vide, sinon cette fonction renvoie le contenu du champ par une
 ' donnée de type String
  
 If IsNull(fld) Then          ' Si le champs est vide donc Null
    GetValue = ""             ' GetValue retourne une chaîne vide
 Else                         ' Dans le cas contraire
    GetValue = fld            ' GetValue retourne la chaîne de caractères du champs
 End If                       ' Fin de la condition

End Function

Public Function SetValue(str As String) As Variant     ' str pour string (Chaîne)
 
 ' La fonction SetValue est le pendant de la fonction GetValue.  Si une zone
 ' de texte ne contient rien d'autre ques des espaces (fonction Trim$), la
 ' valeut Null est renvoyée, sinon la fonction renvoie la chaîne de caractères
 ' après l'élimination des espaces non significatifs.
 
 If Trim$(str) = "" Then      ' Si après la suppresion des espaces non significatifs est égale a une chaîne vide
    SetValue = Null           ' SetValue retourne la valeur Null pour la DB
 Else                         ' Dans le cas contraire
    SetValue = Trim$(str)     ' SetValue retourne la chaine de caractère en suppriment tout de même les espaces non significatifs
 End If                       ' Fin de la condition
 
End Function

Conclusion :


Champsdb est un string de type "Nom, Prenom, ..." renvoyant les champs se trouvant dans la base de donnée tandis que tabledb est le nom de la table.

La procédure GetValue reprends les données pour les affichers dans un textbox, flexgrid ou autre

Setvalue est le pendant de GetValue, cette procédure inscrit les données dans la db.

la méthode rsado.update m'est a jours les enregistement

Essayer analyser le code, je reste a votre entière disposition pour vous aider a toute les commande de ce module.

Code source venant de http://www.visual-product.be

A voir également

Ajouter un commentaire

Commentaires

Shendoo
Messages postés
55
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
1 juin 2007

un zip c'est pas compliqué !!!!
je me répète c vrai mais bon tans pis je regarde même pas
cs_New_World
Messages postés
53
Date d'inscription
mardi 15 août 2006
Statut
Membre
Dernière intervention
15 juillet 2010

salut jsui interesser a votre code et jle trouve parfait mais moi jtravail en c# application web est ce qu il ya pa un moyen de le faire avec;en fait dans c# il ya pa de module alor comment ferai je et merciiiiiii
edistan
Messages postés
1
Date d'inscription
jeudi 20 octobre 2005
Statut
Membre
Dernière intervention
28 novembre 2005

comment eviter d'ecraser des données lors d'une mise a jour ou d'un ajout de donnée en utikisant l'objet adodb?
cs_nirega
Messages postés
58
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
14 janvier 2008

question niaiseuse tu va dire.............mais comment je vais chercher mes champs de la table pour les mettre dans mon form ???

oui je suis un ti nouveau ;-)
cs_PaTaTe
Messages postés
2081
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
16 mars 2020
2
comment faire pour créer la base de données ...
comment supporter les bases de données pourvue d'un mot de passe

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.