Pratique 805.3

Les objets access

Le bouton Connexion base ADODB permet la connexion à la base de données courante qui est utilisée dans le projet : ce sera similaire si on veut accéder aux données ACCESS à partir d'Excel, il suffira de fournir le chemin au fichier .accdb

Ce bouton est juste un test afin de s'assurer que tout se passe bien.

Si vous avez des problèmes au moment de l'exécution, il faut vérifier le Référencement ADO[1]

Tests

Tester et observer le code des autres boutons

ExempleParcourir la table tb_art

1
On Error GoTo GestionDesErreurs
2
3
    Dim strSQL As String
4
    Dim cnn As New ADODB.Connection
5
    Dim rs As New ADODB.Recordset
6
    Dim Nb As Integer
7
8
    Set cnn = CurrentProject.Connection
9
10
    strSQL = "select * from tb_art" 'texte SQL de la requête
11
    rs.Open strSQL, cnn, adOpenStatic, adLockReadOnly 'exécution de la requête
12
    'lecture du premier enregistement et affichage de la valeur de l'attribut n°1
13
14
    Nb = 0 ' Intitialisation du compteur ) 0
15
    rs.MoveFirst
16
    While Not rs.EOF ' Tant que l'on a pas atteint la fin du jeu d'enregistrement
17
        Nb = Nb + 1 ' on ajoute 1 au compteur
18
        rs.MoveNext ' on passe à l'enregistrement uivant
19
    Wend ' on revient à la ligne while : on boucle
20
    txtInt_nbart = Nb
21
    cnn.Close
22
    Set cnn = Nothing
23
24
Exit Sub
25
26
GestionDesErreurs:
27
    MsgBox "Erreur N° " & Err.Number & " - " & Err.Description

ExempleA vous ....

Calculer le a quantité totale d'article en stock avec une requête intégrée et une procédure ACCESS