Recordset vide avec ADO

Version imprimable

Bonjour,

Je me connecte à MySql via ODBC sur mon serveur dédié LAMP. La partie attachement des tables au frontal ACCESS fonctionne très bien. La connexion fonctionne.

Maintenant j'ai besoin de lancer des opérations SQL coté serveur. Je veux donc écrire une fonction à laquelle je passe un SQL et je récupère un recordset ADO.

Mais ça ne marche pas ! Voila le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim Cnn1 As ADODB.Connection, MonRs As ADODB.Recordset, s As String Set Cnn1 = New ADODB.Connection s = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & "SERVER=xxx.xxx.xxx.xxx ;" & "DATABASE=mabase;" & "uid=user;" & "pwd=password;" & "Option=3;" Cnn1.ConnectionString = s Cnn1.Open MsgBox (Cnn1.Errors.Count) 'donne 0 Set MonRs = New ADODB.Recordset MonRs.Open "SELECT * FROM t_staff", Cnn1, adOpenDynamic, adLockPessimistic MonRs.MoveLast MsgBox (MonRs.RecordCount) 'donne toujours -1, et le SQL exécuté dans PHPMyAdmin renvoie 3 enregistrements
Quand je lance le SQL coté serveur je récupère 3 enregistrements. Ici il me renvoie toujours -1. Par ailleurs je n'ai pas d'erreur sur la connexion à la base.

Qu'est-ce que je fais mal ???

Christian

19/05/2020, 18h50
User

Bonjour,

Avez-vous la possibilité d'utiliser acOpenStatic pour la propriété CursorType.

Il me semble qu'il faut un curseur "static" pour utiliser recordCount.

Cdlt,
19/05/2020, 19h05
weabow

Bonsoir,

Bonne idée, mais même résultat. J'ai essayé avec toutes les configurations et cela ne fonctionne pas.

Merci pour votre aide.
19/05/2020, 19h39
User

C'est étonnant, j'ai essayé en local :

Code:

MonRs.Open "SELECT * FROM t_staff", Cnn1, adOpenDynamic, adLockPessimistic

Et ça me renvoie -1

Par contre quand je fais :

Code:

MonRs.Open "SELECT * FROM t_staff", Cnn1, , adOpenStatic, adLockOptimistic

J'obtiens bien le bon nombre d'enregistrements...

Bizarre :?
19/05/2020, 19h53
weabow

En ADO sur MySql, ça ne fonctionne pas.
19/05/2020, 19h54
User

Sans doute, je n'ai malheureusement pas la possibilité de tester...
19/05/2020, 20h25
User
Tu as peut-être vu sur le net, il propose de définir avant l'ouverture la propriété CursorLocation du recordset à adUseClient :
Code:

1 2 3 Set MonRs = New ADODB.Recordset MonRs.CursorLocation = adUseClient MonRs.Open "SELECT * FROM t_staff", Cnn1, , adOpenStatic, adLockOptimistic
A tester...

Cdlt,
20/05/2020, 04h33
weabow

En fait le problème vient de :

MonRs.CursorLocation = adUseClient (qui fonctionne alors très bien)

Si je veux faire exécuter la requête par le serveur je mets :

Code:

MonRs.CursorLocation = adUseServer

et cela ne fonctionne plus !

Conclusion : ODBC MySql semble ne pas pouvoir exécuter du SQL coté serveur.

Très curieux !!!!!