Discussion :

[Johnyb]

Bonjour à tous,

J'ai un Excel connecté à une base de données SQL, via un ODBC MariaDB. Aucun souci sur la liaison, tout fonctionne bien.
Toutefois, la requête SELECT * FROM table me renvoie un résultat plus qu'étrange, puisqu'elle double forcément le premier enregistrement et n'affiche pas le dernier.

Exemple:
J'ai une table 'companies', avec 3 enregistrements (idCompany = 1, 2 et 3). Lorsque sur mon visualiseur de BDD j'utilise la requête : SELECT * FROM companies;, je me retrouve avec le résultat suivant :

1	1	2	test 1	123456789	SAS	test
2	1	2	test 2	123456789	SAS	test
3	1	2	test 3	123456789	SAS	test

Ce qui correspond parfaitement aux enregistrements de la table.

Quand je fais cette même requête via VBA, je trouve le résultat suivant :

1	1	2	test 1	123456789	SAS	test
1	1	2	test 1	123456789	SAS	test
2	1	2	test 2	123456789	SAS	test

Sachant que ma requête est :

Code :

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

1
2
3
4
5
6
7
8
9
sqlQuery = "SELECT * FROM companies"
rsDB.Open sqlQuery, conDB, adOpenDynamic
 
Do While Not rsDB.EOF
    For Each result In rsDB.GetRows
        Debug.Print result
    Next
Loop
rsDB.Close

Si je considère la requête SELECT idCompany FROM companies;, dans ce cas je récupère bien la liste 1, 2 et 3. Le bug apparaît donc uniquement à l'utilisation du SELECT *.

Quelqu'un aurait-il une brillante (ou non) idée pour me dépanner ? J'ai tourné ça dans tous les sens, mais je ne vois vraiment pas comment gérer le problème...

Merci beaucoup !
Belle journée ou soirée,


--- Edit
J'en profite pour préciser que l'ajout de DISTINCT, ou ALL ou autre dans la requête n'y change malheureusement rien...

Et si je demande ORDER BY idCompany DESC, je retrouve le même problème mais inversé, avec 2 fois la ligne id=3, et une fois la ligne id=2. L'enregistrement id=1 n'apparait donc pas...

[Pierre Dumas]

Bonjour

Habituellement, j'utilise plutôt la syntaxe suivante :

Code :

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

1
2
3
4
5
6
7
8
9
If Not oRecordset.EOF Then
  Rst.MoveFirst 
  While Not rst.Eof
     ' Code
     rst.MoveNext
  Wend
else
  Msgbox "Le jeu d'enregistrements est vide"
End if

Je n'ai jamais eu de problème avec.

En espérant que cela aide.

Bonne soirée

Pierre Dumas

[Johnyb]

Bonsoir Pierre,

Merci pour ton retour et le temps que tu as pris pour répondre à mon problème !

Malheureusement, même en ré-écrivant mes lignes de cette manière, rien n'y fait, les résultats restent incorrects.
Ce qui est étrange c'est que via une connexion Access, aucun souci. Je n'ai rencontré ce problème qu'aujourd'hui avec l'utilisation d'une base MariaDB...

Le problème reste donc non résolu aujourd'hui. Evidemment, une solution serait de récupérer via 'SELECT idCompany FROM companies' la liste de tous les idCompany, puis boucler dessus pour récupérer les informations, mais c'est moins optimal en terme de temps, et j'avoue que la curiosité me pousse à comprendre le problème de ma requête actuelle...