Discussion :

[zooffy]

Salut

Je sèche sur un truc qiu doit être bateau mais je trouve pas la réponse dans mon gros pavé ou sur le NET.

Pour info de contexte je programme un jeu de course de voiture en ligne.

Voic mon code :

Code :

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

1
2
3
4
5
6
 
        drCircuitElem = cmdCircuitElem.ExecuteReader()
        Do While drCircuitElem.Read()
            longEle = drCircuitElem.GetValue(1)
            t = 0
            Select Case drCircuitElem.GetValue(0)

Et ensuite je fais plein de truc dans le Select Case.
Mon souci est que je voudrais lire l'enregistrement suivant pour récupére la donnée qui s'y trouve pour faire un test. Mon "GetValue(0)" me retourne une séquence de trois lettres (qui est le type d'élément du circuit) mais lorsque ce type est "lig" et que le suivant va être "vir" je dois faire des traitements particuliers (entre autre faire freiner la voiture).

Et donc je trouve pas le moyen de lire l'enregistrement suivant de mon DataReader sans faire avancer le curseur.

Merci pour votre aide.

[Thomas Lebrun]

Et donc je trouve pas le moyen de lire l'enregistrement suivant de mon DataReader sans faire avancer le curseur.

Pas possible/logique: dans ton DataReader, si tu lis l'enregistrement suivant, tu avances forcément ton curseur....

[zooffy]

J'ai réféchi et j'ai trouvé une solution alternative que je vous soumets.

Je suis tout de même septique sur le fait qu cela soit bien performant. Et surtout, compte tenu de la puissance de .NET, pourquoi est ce que je dois passer par des anciennes techniques pour faire un truc aussi simple que de lire l'enregistrement suivant.

J'avoue ne pas connaire à fond le VB.NET et je pense que c'est cette méconnaissance qui fait que je n'arrive pas à faire ce que je souhaite.

Alors, pouvez m'aider ?

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 daCircuitElem As New SqlDataAdapter()
        Dim dsdCircuitElem As New DataSet()
        Dim dvCircuitElem As New DataView()
        daCircuitElem.SelectCommand = cmdCircuitElem
        daCircuitElem.Fill(dsdCircuitElem, "Voiture")
        dvCircuitElem.Table = dsdCircuitElem.Tables("Voiture")
 
        For i = 0 To dvVoitureJoueur.Count - 1
            If i = dvCircuitElem.Count - 1 Then
                TypeEle = dvCircuitElem.Item(i).Row.Item(0).ToString
                TypeEleS = dvCircuitElem.Item(0).Row.Item(0).ToString
            Else
                TypeEle = dvCircuitElem.Item(i).Row.Item(0).ToString
                TypeEleS = dvCircuitElem.Item(i + 1).Row.Item(0).ToString
            End If
        Next

Merci pour votre aide.