1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| 'une fois la librairie ADO ajouté'
Dim MaBase As ADODB.Connection
Dim MaTable As ADODB.RecordSet
Dim MaRequete As String
Dim NomDeLaTable As String
'Connexion à la Base'
Set MaBase = New ADOBD.Connection 'Création de la connexion'
MaBase.CursorLocation= adUseClient: MaBase.Mode = adModeReadWrite 'paramètres de connexion les plus courants'
MaBase.Provider = "Microsoft.Jet.OLEDB.4.0" 'définition du fournisseur de la connexion'
MaBase.ConnectionString = 'Le Chemin de la base entre " " '
'le plus facile étant de mettre ta base au même endroit que ton application puis tu utilises App.Path'
MaBase.Open 'la base est ouverte'
'Déconnexion de la base'
MaBase.Close
Set MaBase = Nothing
'Pour ouvrir une table existante et ajouter des données si la base est ouverte '
Set MaTable = New ADODB.RecordSet 'ou New RecordSet'
NomDeLaTable = 'Le nom de la table que tu veux ouvrir ; attention, correctement orthographié !'
MaTable.Open NomDeLaTable, MaBase, adOpenStatic, adLockPessimistic
MaTable.AddNew 'permet d'ajouter'
MaTable![MonAttribut] = 'Ta donnée ; elle peut provenir d'un textbox par exemple ; MonAttribut est un attribut de la table '
'Tu peux faire autant de MAJ que tu veux, sur ta ligne'
MaTable.Update
MaTable.Close
Set MaTable = Nothing
'Pour ouvrir une table à partir d'une requête SQL'
MaTable = New RecordSet
MaRequete = "SELECT ... FROM ... INNER JOIN ... WHERE ..."
MaTable.Open MaRequete, MaBase , adOpenKeySet, adlockBatchOptimistic
'on parcourt la table'
If MaTable.RecordCount <> 0 Then
MaTable.MoveFisrt
Else
MsgBox "Il n'y a aucune donnée !"
End If
While Not (MaTable.EOF)
If MaTable.RecordCount <> 0 Then
MaTable.MoveNext
End If
Wend |
