Bonjour

Je ne comprend pas pourquoi le programme plante au niveau de l'ouverture d'une requete (en rouge dans le code).

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
Friend Function ListeUtilisateur() As String
    Dim s_Liste As String
    Dim ADD_User As ADODB.Recordset
    Set ADD_User = New ADODB.Recordset
    s_Liste = ""

    ADD_User.Open "SELECT * FROM USER", ConnCACAO, adOpenStatic, adLockReadOnly
    If ADD_User.EOF = False Then
        Do While Not ADD_User.EOF
            If s_Liste = "" Then
                s_Liste = ADD_User("TLOGIN")
            Else
                s_Liste = Liste & car_Tabulation & ADD_User("TLOGIN")
            End If
            ADD_User.MoveNext
        Loop
    End If
    ADD_User.Close
    Set ADD_User = Nothing
    ListeUtilisateur = s_Liste
 
End Function
le programme plante sur la ligne en rouge et voici le message d'erreur :
erreur d'exécution .'-2147217887(80040e21)'
Ce pilote OBDC ne prend pas en charge les proprietés demandées
pourtant j'ai réalisé plusieurs requêtes sur différents fichiers de cette base et cela fonctionne bien exemple

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Global ADD_Dossier As ADODB.Recordset
Set ADD_Dossier = New ADODB.Recordset
ADD_Dossier.Open "SELECT * FROM Dossier ", ConnCACAO, adOpenStatic, adLockReadOnly