vbnet + recordset vide

Version imprimable

18/04/2005, 16h33
cell

vbnet + recordset vide
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:

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
18/04/2005, 16h43
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+
18/04/2005, 16h46
cell

vbnet + recordset vide

je n'utilise pas de datareader dans mon application
donc je ne sais pas ce que sait
pouvez vous mexpliquer?
merci
18/04/2005, 16h49
Thomas Lebrun

Regardez ici:

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

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

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

:wink:

A+

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

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

18/04/2005, 17h19
bidou

testes CRS.Recordcount
18/04/2005, 17h21
Thomas Lebrun

Re: vbnet + recordset vide

Citation:

Envoyé par cell

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 :?: :wink:
19/04/2005, 10h00
cell

vbnet + recordset vide

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
19/04/2005, 10h04
bidou

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

vbnet + recordset vide

voici mon code

Code:

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

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

Code:

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

19/04/2005, 10h57
cell

vbnet + recordset vide

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?
19/04/2005, 11h06
bidou

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

vbnet + recordset vide

voici le code ke j'ai marqué
Code:

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

19/04/2005, 11h23
bidou

ca plante ou ?

vbnet + recordset vide

sur cette ligne

Code:

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

alors ke ca devrai s'arreter sur

Code:

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

19/04/2005, 13h17
cell

vbnet + recordset vide

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

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

Code:

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

19/04/2005, 13h27
cell

vbnet + recordset vide

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

vbnet + recordset vide

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

Code:

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