Bonjour,

J'aimerais savoir comment faire pour se connecter a une BDD HyperFIle

Voici je ce que j'ai commencé à faire mais ça ne fonctionne pas :
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
Sub test()
'http://www.prosygma.com/aide/Configurer-une-connexion-ODBC-HyperFile-137.htm
'http://msdn.microsoft.com/fr-fr/library/bb469883.aspx
'Provider=MSDASQL;Password=tota;Persist Security Info=True;User ID=SCH;Data Source=CLIPPER 5.1;Extended Properties="DSN=CLIPPER 5.1;ANA=C:\Program Files\CLIPPER 51\CLIPPER5.wd7\CLIPPER5.WDD;REP=C:\Program Files\CLIPPER 51\;Server Name=;Server Port=;Database=;UID=SCH;PWDXX=rRCrZQ;Encryption=";Initial Catalog=C:\Program Files\CLIPPER 51\CLIPPER5.wd7\CLIPPER5.WDD;Initial Catalog=C:\Program Files\CLIPPER 51\CLIPPER5.wd7\CLIPPER5.WDD
 
    Dim MonTableau() As String
    Dim MonMessageErreur As String
    Dim MaConnexion As ADODB.Connection
    Dim MonRecordSet As ADODB.Recordset
    Dim MaRequete As String
    Dim i As Double
    Dim j As Integer
    Dim MonField As ADODB.Field
    Dim MonChemin As String
    Dim NomCourt As String
    Dim Reponse As Integer
    Dim MonFiltre As String
    MonFiltre = ""
 
    On Error GoTo ErreurOuvrirConnection
 
 
    MaRequete = "SELECT * FROM ARTICLEM"
 
    Set MaConnexion = New ADODB.Connection
 
    'Définition du pilote de connexion (fournisseur)
    'MaConnexion.Provider = "Microsoft.Jet.Oledb.4.0"
    'MaConnexion.Provider = "PCSOFT.HFSQL" 'driver non trouvé
    MaConnexion.Provider = "MSDASQL"
    '=> quel fournisseur utiliser ?
 
     Set MonRecordSet = New ADODB.Recordset
 
     'MonChemin = "C:\Program Files\CLIPPER 51\CLIPPER5.wd7\CLIPPER5.WDD"
     MonChemin = "CLIPPER 5.1"
 
     'Définition de la chaîne de connexion : chemin complet du .mdb
     MaConnexion.ConnectionString = MonChemin
 
     'Ouverture de la base de données
     MaConnexion.Open "Data Source=" & MonChemin
 
     'MonRecordSet.Open MaRequete, MaConnexion, adOpenStatic, adLockOptimistic
     MonRecordSet.Open MaRequete, MaConnexion
 
'     traitement
 
     MaConnexion.Close
 
 
    Set MonRecordSet = Nothing
    Set MaConnexion = Nothing
 
 
    On Error GoTo 0
 
    Exit Sub
 
ErreurOuvrirConnection:
    MonMessageErreur = "BDD : " & MonChemin & vbCr & Err.Description
    Reponse = MsgBox(MonMessageErreur, vbCritical)
 
End Sub
On m'a dit qu'il fallait utiliser OLEDB (et non pas ODBC qui n'est plus supporté pour ce type de BDD) mais n'y connaissant pas grand chose en BDD, je ne sais ce qu'il faut faire...

Comment fait-on pour visualiser les drivers intallés sur mon PC pour ADO ?
=> le logiciel qui accède à la BDD est installé sur mon PC donc je dois avoir les driver d'installés


Merci d'avance,