Voila mon code permet de récupérer tout les messages d'une base de donnée mysql !

Le problème c'est qu'il me retourne seulement un messages et non tout les messages qui ce trouve dans ma base ?

Code de cl_mysql
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
 
Imports MySql.Data.MySqlClient
Imports System.Data
 
Public Class cl_mysql
 
    Dim serv, user, pass, database As String
 
    Function lecture(ByVal requet As String)
        serv = "xx.xx.xx.xx"
        user = "xx"
        pass = "xx"
        database = "xx"
 
        Dim cmd As New MySqlCommand
        Dim returnValue As Object
        Dim connect As New MySqlConnection("Database=" + database + ";" _
                     & "Data Source=" + serv + ";" _
                     & "User Id=" + user + ";" _
                     & "Password=" + pass + "")
 
        connect.Open()
        cmd.CommandText = requet
        cmd.Connection = connect
 
        returnValue = cmd.ExecuteScalar
 
        connect.Close()
        Return returnValue
 
    End Function
 
End Class
Code dans mon form :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim db As New cl_mysql
        Dim datee = db.lecture("SELECT date FROM `ChatGestion`")
        Dim pseudo = db.lecture("SELECT pseudo FROM `ChatGestion`")
        Dim level = db.lecture("SELECT level FROM `ChatGestion`")
        Dim message = db.lecture("SELECT message FROM `ChatGestion`")
 
        Me.RichTextBox1.Rtf = "{\rtf1\ansi { \colortbl\red0\green0\blue0;\red153\green153\blue153;\red0\green153\blue0;}\cf1[" + datee + "] \cf0 \cf2 «\cf0" + pseudo + "\cf2» \cf0" + message + "}"
 
        '[21:23:59] «pseudo» oula vive mon francais 
    End Sub