Discussion :

[cell]

bonjour
je cré une application avec acces/vbnet et le composant adodb
quand je fais une requête de sélection il peut arrivé qu'il n'y ai pas de réponse
exemple

Code :

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

1
2
 
select nomp from plat, menu where menu.numm=plat.numm and nomm= '" & nom.text & "'"

donc quand je teste la requête l'application plante car il n'y a pas de réponse à afficher
je voulais savoir si il était possible de savoir si la requête fournit des réponses
merci

[Thomas Lebrun]

utilise un datareader et boucle sur sa propriété Read() (qui renvoit false lorsqu'il n'y a pas/plus d'enregistrements à lire)


A+

[cell]

je n'utilise pas de datareader dans mon application
donc je ne sais pas ce que sait
pouvez vous mexpliquer?
merci

[Thomas Lebrun]

Regardez ici:

http://dotnet.developpez.com/cours/ADO.NET/

http://dotnet.developpez.com/tutoriels/ado1/

http://dotnet.developpez.com/tutoriels/ado2/




A+

[cell]

le problème est ke j'utilise le composant adodb et non ado.net
donc pour ma requête je fais comme suit

Code :

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

1
2
3
4
5
6
 
        DateSelection = "%/" & MoisV & "/%"
        ReqMttVM = "select sum(prix) as Montant from vente, menu where Vente.NumM=Menu.NumM and dateV like '" & DateSelection & "'"
        Crs = cnx.Execute(ReqMttVM)
        Crs.MoveFirst()
        MontantV.Text = Crs.Fields("Montant").Value

cette requête fonctionne très bien quand il y a un résultat
c'est pourquoi je demande comment savoir si il n'y a pas de résultat

[bidou]

testes CRS.Recordcount

[Thomas Lebrun]

le problème est ke j'utilise le composant adodb et non ado.net

Si tu fais du VB.NET, pourquoi ne pas utiliser ADO.NET, qui est bcp censé être mieux que ADO :

[cell]

j'ai testé avec crs.recordcount et si le résultat est null ca affiche et si il y a un résultat ca affiche 1
j'utilise le coimposant adodb car je n'ai pas assez de temps pour me former à l'ado.net sur les conseils de mon prof de programmation

[bidou]

Je n'ai pas compris. Montre nous le code avec le test recordcount

[cell]

voici mon code

Code :

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

1
2
3
4
5
6
7
 
If Not Crs.RecordCount = 0 Then
            MsgBox("Il n'y a pas eu de ventes!")
        Else
            Crs.MoveFirst()
            MontantV.Text = Crs.Fields("Montant").Value
        End If

[bidou]

d'accord c'est à cause du curseur. Fais ton test sur

Code :

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

1
2
3
4
5
6
If Crs.EOF Then
     MsgBox("Il n'y a pas eu de ventes!") 
Else 
      Crs.MoveFirst() 
      MontantV.Text = Crs.Fields("Montant").Value 
End If

[cell]

ca bloke au niveau de l'affichage qd il n'y a pas de valeur
mais je devrai plutot mettre if crs.eof= qqch then?

[bidou]

si crs.EOF est vrai c'est que ton recordset est vide

[cell]

voici le code ke j'ai marqué

Code :

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

1
2
3
4
5
6
7
 
If Crs.EOF = True Then
            MsgBox("Il n'y a pas eu de ventes!")
        Else
            Crs.MoveFirst()
            MontantV.Text = Crs.Fields("Montant").Value
        End If

et ca ne marche pas quand je choisi une valeur ou il y aura pas de réponse à ma requete ca plante

[bidou]

ca plante ou ?

[cell]

sur cette ligne

Code :

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

1
2
 
            MontantV.Text = CrsListeMois.Fields("Montant").Value

alors ke ca devrai s'arreter sur

Code :

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

1
2
 
            MsgBox("Il n'y a pas eu de ventes!")

[cell]

est-il possible de faire un controle is null
car sous acces qd il y a pas de réponse ca affiche une case vide

[bidou]

J'avoue que je ne vois pas. Moi si je fais

Code :

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

1
2
3
4
5
6
7
8
9
10
        Dim cnx As New ADODB.Connection
        cnx.Open("Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\User\jmarc\testvb\BIBLIO.MDB")
        Dim rst As ADODB.Recordset
        rst = cnx.Execute("select * from authors where [year born]=2000")
        If rst.EOF Then
            MsgBox("rien")
        Else
            rst.MoveFirst()
            MsgBox(rst.Fields("author").Value)
        End If

Ca marche nickel

[cell]

le problème est que si je choisi le mois d'avril le montant est de 120
si je choisi le moi de mai le montant est "" acr sous acces il renvoie une case vide
dc dans mon crs il y a une valeur nulle

[cell]

c bon on a trouvé la réponse
il fallait vérifier le type de la réponse
voici le code

Code :

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

1
2
3
4
5
6
7
8
 
 If CrsListeMois.Fields("montant").Value.GetType.ToString = "System.DBNull" Then
            MsgBox("Pas de vente ce mois !")
        Else
            CrsListeMois.MoveFirst()
            MontantV.Text = CrsListeMois.Fields("Montant").Value
            CrsListeMois.Close()
        End If

merci pour l'aide