CONNEXION ADO A UNE BASE DE DONNÉES ACCESS

' 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