Bonjour à tous

Voila, j'ai un fichier excel qui discute avec une base MySql (c'est pour des exports spécifiques sur des données de Mantis).

Il y a déjà quelques requêtes qui fonctionnent bien.

Mais pour certaines :
- en ayant suivi le même schéma de code que celles qui fonctionnent
- en ayant fait la requête directement sous mysql (et que cela fonctionne)

--> le nombre d'enregistrements est nul (le recorcount retourne -1).

je croyais au début que c'était parce que j'utilisai le même recordset. Alors j'en ai créé un pour chaque requêtes (que je ferme ensuite avec la connexion). Mais cela n'a rien changé :'(

Auriez vous d'autres pistes?

PS :

Voici le code d'une des requêtes qui ne marche pas : J'ai directement recopier le contenu de la variable "laRequete" à partir du sqlQuery de mysql (qui me retourne bien des résultats). J'ai aussi posé un espion sur "idProjet" qui est correct.

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
Private Sub chargerComboUsers()
    Dim requeteUser As New ADODB.Recordset
 
    laRequete = ""
    laRequete = laRequete & "SELECT mantis_project_table.id, mantis_project_table.name, mantis_user_table.realname"
    laRequete = laRequete & " FROM mantis_project_table, mantis_project_user_list_table, mantis_user_table"
    laRequete = laRequete & " where mantis_project_table.ID = mantis_project_user_list_table.project_id"
    laRequete = laRequete & " and mantis_project_user_list_table.user_id = mantis_user_table.id"
    laRequete = laRequete & " and mantis_project_table.id = " & idProjet & ";"
    cmbChoixSec.Clear
 
    ProceduresDiv.initConnectionMysql
    Set objetConnexion = New ADODB.Connection
    objetConnexion.Open chaineConnection
 
    requeteUser.Open laRequete, objetConnexion
        MsgBox (requeteUser.RecordCount)
        requeteUser.MoveFirst
 
        If requeteUser.RecordCount > 0 Then
            While Not (requeteUser.EOF)
                cmbChoixSec.AddItem requeteUser("realname")
                requeteUser.MoveNext
            Wend
        End If
        requeteUser.Close
        objetConnexion.Close
End Sub
Voila voila

Merci beaucoup d'avance

@++