Discussion :

[sab_etudianteBTS]

Salut!
Voila en affichant mes données dans mon flexgrid je voudrait faire un test pour voir si le recordset est vide ou non, comme ca s'il l'est, je met le flexgrid a visible=false.
Voici mon 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
15
16
17
18
19
 
Private Sub Form_Load()
 
Dim cnx As New ADODB.Connection 'Pour la connexion a la BDD
Dim rst As New ADODB.Recordset 'Pour la requete
 
cnx.ConnectionString = "DSN=" & monDSN & ";UID=" & monUID & ";PWD=" & monPWD & ";"
 
cnx.Open
 
rst.Open "SELECT DateComposant, Signature FROM COMPOSANT WHERE Editeur='McAfee'", cnx
 
If Not rst.EOF Then
    Set MSHFlexGrid1.DataSource = rst
End If
 
rst.Close
 
End Sub

Et la ca me met un msg d'arreur:

Erreur d'exécution '30023'
Imopssible d'accéder aux données. Les paramètres de la sources de données doivent être
incorrects ou sa fonctionnalité est peut-être limitée.

Et je ne comprend pas pq! C peut etre mon "if" qui ne va pas pcq si je l'enléve tout fonctionne nickel.
Si qq1 pouvait m'expliquer ce serait super gentil merci!

[noob_vba]

Salut tu peut utiliser les debug.print c'est tres utilise pour savoir si ta requete ou ta connection marche bien.

de plus pour boucler tu peut utiliser les DO UNTIL rst.eof(end of file) puis tu boucle avec un LOOP c'est plus simple a mon avis si non je peut pas plus t'aider désolé

[avigeilpro]

DO UNTIL ... LOOP ???????? Ca servirait a rien, il n'y a aucune boucle dans ce code !!! C'est juste un test!!

Bref, fait tourner ton programme en pas à pas afin de nous dire sur quelle ligne de commande est générée l'erreur.

[sab_etudianteBTS]

Salut, merci de m'avoir répondu.
Voila l'erreur est sur cette ligne, ca la surligne:

Code :

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

1
2
 
Set MSHFlexGrid1.DataSource = rst

Je comprend vraiment pas pcq si j'enléve le if tout fonctionne normalement!
Merci

[avigeilpro]

Met les partie les plus importante de ton code, car la ligne que tu viens de me donner ne fait pas partie du code précédent

[sab_etudianteBTS]

Cmt ca elle ne fait pas partie du code précédent?? Si si... Je crois ke je n'ai pas bien compris ce ke tu veux...

Code :

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

1
2
3
4
5
6
 
If not rst.EOF then
    MSHFlexGrid1.DataSource=rst
Else
    MSHFlexGrid.Visible=False
Enf If

En fait ca plante a partir de mon if. Dés kil passe ce if, c comme si le recordset était "vide", ou bien kon ne peut plus le réutiliser...