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 |
Partager