Discussion :

[zooffy]

Bonjour

Je ne comprends pas pourquoi mon reader est toujours closed alors que je fais comme c'est indiqué dans mon bouquin de VB.NET.

Voici mon code, pouvez me dire où j'ai oublié un truc parce que çà fait trois heures que j'y suis et je comprends plus rien.

MErci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim sqlverif As String = "select Marque, Modele from Speed_VoitureJoueur where IDJoueur =" & userid
Dim cmdVerif As New SqlCommand(sqlverif, scConnexion)
Dim chaineverif As String
Dim drVerif As SqlDataReader = cmdVerif.ExecuteReader
 
If RetourneUneValeur(sqlverif) = "" Then
     chaineverif = "Vous ne possédez aucune voiture.<br>"
Else
     chaineverif = "Vous possédez déjà les voitures suivantes : <br>"
     While drVerif.Read()
           chaineverif &= drVerif.GetValue(0) & ", " & drVerif.GetValue(1)
     End While
End If

[rattlehead]

il faut faire peut etre un connection.open et une fois que tu as terminé un connection.close. ca devrait le faire;

[zooffy]

Merci pour ton aide.

En fait, j'ai pas besoin de faire çà parce que le scConnexion qui est en argumenet est une fonction qui test l'ouverture de la connexion avant tout appel à la base et qui gère le fait que la conexion soit ouverte ou fermée.

Et en fait je viens de faire un ultime essai carje me suis dit que mon code fonctionanit bien avant et plus maintenant et la seule différence entre les deux c'est la mise à jour du FRAMEWORK.

En ghangeant de place mes élément j'ai réussi à le faire fonctionner, j'ai aps compris pourquoi, mais çà marche.

En fait, j'ai tout placé dans le ELSE et çà marche, vraiment l'informatique c'est magique. voilà code qui marche.

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
 
Dim sqlverif As String = "select Marque, Modele from Speed_VoitureJoueur where IDJoueur =" & userid
            Dim chaineverif As String
 
            If RetourneUneValeur(sqlverif) = "" Then
                chaineverif = "Vous ne possédez aucune voiture.<br>"
            Else
                Dim cmdVerif As New SqlCommand(sqlverif, scConnexion)
                Dim drVerif As SqlDataReader = cmdVerif.ExecuteReader
 
                chaineverif = "Vous possédez déjà les voitures suivantes : <br>"
                Do While drVerif.Read()
                    chaineverif &= drVerif.GetValue(0) & ", " & drVerif.GetValue(1)
                Loop
                drVerif.Close()
            End If