Bonjour,
J'aimerais un complément d'informations sur Comment se connecter à une base de données se trouvant sur un serveur :
- dans un réseau local,
- dans un réseau à distance.
Voici ma procédure de connexion à une base de données sur une machine locale pour vous donner un peu une idée de comment je procède :
Merci et au plaisir
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 'Module public pour initialiser la connexion à la base de données "BaseDonnee.mdb" 'Définition d'un objet connexion Public cnn As ADODB.Connection 'Définition d'un objet Recordset Public rsEnregistrements As ADODB.Recordset Public Sub main() Set cnn = New ADODB.Connection cnn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\BaseDonnee;Persist Security Info=False; Jet OLEDB:Database Password=" cnn.Open 'Mon formulaire de démarrage :"frmDemarrage" frmDemarrage.Show End Sub 'Au chargement du formulaire de démarrage Private Sub Form_Load() On Error GoTo Erreur Set rsEnregistrements = New ADODB.Recordset rsEnregistrements.Open "select * from NOM_TABLE", cnn, adOpenStatic, adLockOptimistic, adCmdText If rsEnregistrements.RecordCount > 0 Then rsEnregistrements.MoveFirst GridAffichageEnregistrements.DataSource = rsEnregistrements End If Exit Sub Erreur: MsgBox Err.Number & " " & Err.Description, vbOKOnly + vbExclamation, "Erreur" Me.MousePointer = vbDefault Exit Sub End Sub
McLéonce
Partager