condition sur une requete Sql

Question

Slt, 
voila le code sur lequel je rencontre un pb :
Function recup()

strcomputer = Form1.adip.Text

Set objWMIService = GetObject("winmgmts:\" & strcomputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48)
For Each objItem In colItems
    Form1.Text2 = objItem.Name
    Form1.Text3 = objItem.IdentifyingNumber
    Form1.Text4 = objItem.Vendor
Next
End Function

cette fct me permet de recuperer a partir de l' ad Ip qq infos systèmes, j' aimerais inserer une condition si le pc n' est pas trouvé en qq sorte. PAr exemple si la requete ne renvoit pas de reponse afficher un msbox("recupération de données impossible ) 
merci d' avance pour votre aide

cs_Jack · Answer

Salut fredo42 
Il n'existe pas de colItems.Count ? (je n'ai pas vérifié)
If colItems.Count Then MsgBox "Vide"

Vala
Jack

HFanny · Answer

Bonjour,

La fonction pour compter le nombre d'enregistrements d'un recordset est : .RecordCount, ça devrait marcher je pense.

Fanny

Condition sur une requete Sql

2 réponses

Discussions similaires