comment afficher tout les messages qui ce trouve dans une table sql
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:
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:
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 |
