Discussion :

[Pentos60]

Bonjour à tous,

J'effectue des requêtes SQL sur la base de données d'un ERP pour récupérer diverses informations sur des articles.

Les requêtes sont de cette forme par exemple:

Code :

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

1
2
3
strSQL = "SELECT Id FROM Options WHERE Option = '" & opt & "'"   
Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot) 
opt_id = Rs("Id")

Ma question est la suivante:

Est il possible de faire un test sur le Rs afin d'éviter une erreur si celui-ci revient vide.
En effet si je recherche quelque chose qui n'existe pas dans la base de donnée ma requête SQL ne reverra rien et le Rs sera vide.

J'espère avoir été assez clair.

En vous remerciant par avance.
Cdlt

Kévin

[jfontaine]

Bonjour,

Une solution a tester (j'utilise plutôt ADO que DAO)

Code :

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

1
2
3
4
5
 
Do while not Rs.EOF
    opt_id = Rs("Id")
    Rs.Movenext
loop

[Pentos60]

Bonjour,

Merci pour ta réponse je vais tester ça ce matin.
Mais pourrais tu m'expliquer un peu....

Car j'utilise la structure

Code :

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

1
2
3
Rs.EOF
....
RS.Movenext

pour boucler sur tout les enregistrements d'une table.

Merci
Kévin

[Michel_M]

Bonjour

test (ADO)

Code :

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

1
2
3
4
5
 If Rs.EOF Then 
        'par exemple
        MsgBox "Plage vide..."
        Exit Sub
    End If

[Pentos60]

Désolé pour le retard avec lequel je répond.

J'ai testé :

Code :

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

1
2
3
If Rs.EOF then
......
End if

Et cela fonctionne parfaitement.

Merci beaucoup pour votre aide.

Kévin

[Godzestla]

Salut, tu peux aussi tester si rs.recordcount = 0