afficher les résultat d'une requete sql dans une richbox

Version imprimable

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:

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

02/06/2009, 10h49
Philippe Vialatte

Salut,

c'est normal, tu lis juste le premier resultat ;)

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

Citation:

Envoyé par Philippe Vialatte

c'est normal, tu lis juste le premier resultat ;)

Je me disait bien aussi :D
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:

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 :D

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

plutot qq chose comme :

Code:

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
...

02/06/2009, 14h57
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 .