Discussion :

[azräel]

Bonjour,

Dans mon programme j'ai une fonction qui permet d'afficher quel poste utilise quel application, ceci nous permet de faaire des statistiques sur les licence utilisé.

J'aimerai faire afficher le resultat de ma requete dans une richbox mais j'ai l'impression que j'arrive a lire seulment la première valeur de ma requete.
Si quelqu'un peut m'aider svp

Voici le code de ma fonction

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
    Public Function lancement_calcul() As String
        Requete = "SELECT APP,PC, STARTTIME, CURRTIME FROM UTILAPPARCH WHERE APP = '" & Form3.ComboBox1.Text & "'" & " AND starttime BETWEEN '" & Form3.TextBox1.Text & "' and '" & Form3.TextBox2.Text & "' AND currtime BETWEEN '" & Form3.TextBox1.Text & "' and '" & Form3.TextBox2.Text & "'"
        Dim test As String = Nothing
 
        Try
            reader = connection.GetAReader(Requete)
            test = reader("APP") & reader("PC") & vbCrLf
            Form3.textReq.Text = test
        Catch Ex As Exception
            MessageBox.Show(Ex.Message, "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        connection.CloseConnection()
        Return test
 
    End Function

Merci d'avance

[Philippe Vialatte]

Salut,

c'est normal, tu lis juste le premier resultat

http://dotnet.developpez.com/articles/ado1/vbnet/#L6

[azräel]

c'est normal, tu lis juste le premier resultat

Je me disait bien aussi
Donc en regardant un peu pour faire une lecture de chaque champ je dois répété plusieurs fois la fonction de lecture, sauf erreur e ma part

J'ai donc changer mon code et j'ai celui ci :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Function lancement_calcul() As String
        requetex = "SELECT COUNT (APP) as NB FROM UTILAPPARCH WHERE APP = '" & Form3.ComboBox1.Text & "'" & " AND starttime BETWEEN '" & Form3.TextBox1.Text & "' and '" & Form3.TextBox2.Text & "' AND currtime BETWEEN '" & Form3.TextBox1.Text & "' and '" & Form3.TextBox2.Text & "'"
        Requete = "SELECT APP,PC, STARTTIME, CURRTIME FROM UTILAPPARCH WHERE APP = '" & Form3.ComboBox1.Text & "'" & " AND starttime BETWEEN '" & Form3.TextBox1.Text & "' and '" & Form3.TextBox2.Text & "' AND currtime BETWEEN '" & Form3.TextBox1.Text & "' and '" & Form3.TextBox2.Text & "'"
        Dim test() As String = Nothing
        Dim nb_ligne As String = Nothing
        Dim x As Integer
        Dim y As Integer
 
        Try
            'reader = connection.GetAReader(Requete)
            reader = connection.GetAReader(requetex)
            nb_ligne = reader("NB")
            'test = reader("APP") & reader("PC") & reader("ID") & vbCrLf
            'Form3.textReq.Text = test
        Catch Ex As Exception
            MessageBox.Show(Ex.Message, "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        connection.CloseConnection()
        x = CInt(nb_ligne)
redim test(x)
        Try
            reader = connection.GetAReader(Requete)
            For y = 0 To x
                test(y) = reader("PC") '& reader("APP")
                Form3.textReq.Text = test(y) & vbCrLf
 
            Next y
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        connection.CloseConnection()
        Return x
 
    End Function

Mais j'ai un problème: Ca me lit toujours la mm ligne et cela m'affiche qu'une seule ligne a la fin de ma procédure

Et je comprend pas trop le problème
Au secours

[Philippe Vialatte]

euh...tu as lu le lien que je t'ai envoye ???

plutot qq chose comme :

Code :

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

1
2
3
4
5
6
7
8
 
reader = connection.GetAReader(requetex)
...
While reader.Read()
   test(y) = reader("PC") '& reader("APP")
   Form3.textReq.Text = test(y) & vbCrLf
End While
...

[azräel]

Si je l'ai lu mais mal apparament.

Mais j'avoue en relisant j'aurais du trouvé.

En tout cas merci de ton aide .