Discussion :

[weabow]

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 :

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

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

[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,

[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.

[User]

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

Code :

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

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

Et ça me renvoie -1

Par contre quand je fais :

Code :

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

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

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

Bizarre

[weabow]

En ADO sur MySql, ça ne fonctionne pas.

[User]

Sans doute, je n'ai malheureusement pas la possibilité de tester...

[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 :

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

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

A tester...

Cdlt,

[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 :

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

MonRs.CursorLocation = adUseServer

et cela ne fonctionne plus !

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

Très curieux !!!!!