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
Exemple : Parcourir 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
Exemple : A vous ....
Calculer le a quantité totale d'article en stock avec une requête intégrée et une procédure ACCESS