Discussion :

[jmareal]

Bonjour,

Voici un code qui marche très bien sur une base mde ou mdb et qui me renvoie un message d'erreur sur une base accdb ou accde.
Merci de voir si vous avez une solution ?

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
Public Function ShowUserRoster() As String
Dim chemin As String
chemin = DLookup("[chemin]", "_PASSE", "") ‘cherche une valeur stockée dans une table de la base
' le chemin est complet et il fonctionne avec mdb ou mde
 
    zzutil = 0 'variable globale 
    On Error GoTo Exit_func
    Dim cn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=" & chemin
    Set Rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
    Rs.MoveNext  ' décale de 1
    While Not Rs.EOF
        Rs.MoveNext
    zzutil = zzutil + 1 ‘compte les utiolsateurs
    Wend
Exit_func:
    On Error Resume Next
    Set Rs = Nothing
    Set cn = Nothing
End Function

[LedZeppII]

Bonjour,

Essaie avec le fournisseur Microsoft.ACE.OLEDB.12.0:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    cn.Provider = "Microsoft.ACE.OLEDB.12.0"

Le fournisseur Microsoft.Jet.OLEDB.4.0 ne connaît pas les nouveaux formats introduits avec Access 2007.

A+

[jmareal]

Magique, ça marche parfaitement, j'ai bataillé pendant 4 heures pour résoudre ce problème sans succès et là un dimanche matin (je ne pouvais pas attendre) fait en 5 mn. Un grand merci et bravo pour ta réactivité ...