[VB & SQL] Recordset reste vide apres SELECT

Salut a tous.

J'ai un probleme avec un code concernant une base MySQL.
Ma connection est nickel, je peux sans problemes envoyer des requetes, ect ect ... le probleme ne se situe pas la (je remplis mes tables sans soucis)

Un bout de code pour expliquer ce que je veux faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Set rs = New ADODB.Recordset Set connex = New ADODB.Connection   rs_sql = "SELECT * FROM ma_table" connex.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serv_db & DATABASE=" & datbase & ";USER=" & user_db & ";PASSWORD=" & pwd_user_db & ";OPTION=" & option_db & ""   rs.ActiveConnection = connex rs.Open rs_sql, connex DoEvents 'peut etre inutile mais sait on jamais ... un coup de lag ?   Msgbox rs.RecordCount   If rs.RecordCount > 0 Then rs.MoveFirst Do Until Not rs.EOF MsgBox rs("ID") rs.MoveNext Loop End If   rs.Close

---

Le soucis étant que rs_sub reste désespérément vide (alors que la table ne l'est pas bien entendu).
Mon Msgbox rs.recordcount me répond inlassablement -1

Que faire ?

Merci bien,

ZeGuizmo

Pour faire simple : certains drivers de bdd, suivant les paramêtres de connexions déclarés ne renvoient pas le recordcount (surtout si le curseur est coté serveur, ce qui est ton cas, puisque c'est la valeur par défaut, lorsqu'elle n'est pas définie)

alors essaie :

Code:

---

1 2	rs.MoveFirst If Not rs.BOF And Not rs.EOF Then ...

---

ou un

Code:

---

rs.CursorLocation = adUseClient

---

avant d'ouvrir ton recordset

Salut,

Merci de la réponse rapide.

J'ai bien peur de ne pas comprendre ce que tu veux me faire faire.
Si le recordcount ne fonctionne pas, il suffirait de le virer, ce n'est qu'une sécurité dans mon code.
Or ca ne fonctionne pas.

Ainsi ce code ne me retourne rien du tout en msgbox :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Set rs = New ADODB.Recordset Set connex = New ADODB.Connection   rs_sql = "SELECT * FROM ma_table" connex.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serv_db & DATABASE=" & datbase & ";USER=" & user_db & ";PASSWORD=" & pwd_user_db & ";OPTION=" & option_db & ""   rs.ActiveConnection = connex rs.Open rs_sql, connex DoEvents 'peut etre inutile mais sait on jamais ... un coup de lag ?   rs.MoveFirst Do Until Not rs.EOF MsgBox rs("ID") rs.MoveNext Loop   rs.Close

---

Pour les deux exemples que tu donnes, je ne comprend pas ce que tu veux faire.

rs.MoveFirst va me renvoyer a la premiere "ligne" du rs

mais si on le fait suivre par :
If Not rs.BOF And Not rs.EOF Then

le If Then ne va jamais passer puisqu'on lui dit de se mettre a la premiere ligne puis si il n'y est pas de faire quelque chose. Mais forcément il y est a la premiere ligne puisqu'on vient de lui dire d'y aller ???

Quant au rs.CursorLocation = adUseClient je ne comprend pas, mais je vais me documenter.

Merci a toi d'avoir pris la peine de répondre, et peut etre de prendre la peine de me ré-expliquer :)

EDIT : J'ai bien entendu essayé les modifications que tu proposes sans trop chercher a comprendre, cela ne fonctionne pas.

as-tu vraiment essayé :

Code:

---

1 2 3

rs.ActiveConnection = connex rs.CursorLocation = adUseClient rs.Open rs_sql, connex

---

Regarde aussi les autres paramètres de la méthode Open d'un Recordset ADO
genre

Code:

---

rs.Open rs_sql, connex,,,,adCmdText

---

! Attention au nombre de ,
je ne suis pas un spécialiste de MySql (plutot Access ou SQL Server), alors je fais des analogies

Ca maaarrche :)

Ton rs.CursorLocation = adUseClient fonctionne bien :)

Lorsque j'avais essayé, j'ai betement copié collé ce que tu m'as donné alors que le recordset utilisé pour le select s'appelait rs_sb et que dans ma source il y a bien un recordset qui s'appelait rs ... donc ca ne pouvait pas marcher :D

Maintenant reste a comprendre, je vais me documenter la dessus.

Merci de ta disponibilité et de tes réponses.

A+

Guizmo

Pense a noter ton sujet résolu alors...

adUseClient est une instruction qui met ton curseur (lot de données) du coté client.