Discussion :

[Mirel]

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

[tomlev]

ExecuteScalar lit la première colonne de la première ligne de résultat. Pour lire plusieurs lignes ou plusieurs colonnes, il faut utiliser ExecuteReader et lire le DataReader obtenu dans une boucle.
D'autre part, tu n'as pas spécifié le type de retour de ta fonction... sous quelle forme veux-tu obtenir les résultats ? un liste de chaines ? une seule chaine avec tous les messages concaténés ?

[Mirel]

je voudrez pouvoir afficher mais message avec les valeurs différente car je veut mettre des couleurs !

Exemple :

[21:23:59] «pseudo» oula vive mon français

[21:23:59] en gris
«pseudo» en vert
oula vive mon français en noir

Es que tu aurez un exemple car je connais pas trop car je débute est cela ne mais pas évident !

[tomlev]

Il faut récupérer toutes les données dans la même requête, sinon comment tu vas faire le lien entre un message, un pseudo et une date ?

Il faut faire une requête comme ça :

Code :

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

SELECT date, pseudo, message, level FROM `ChatGestion`

Tu exécutes cette requête avec un DataReader, et tu le lis en boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim reader As MySqlReader = cmd.ExecuteReader()
While reader.Read()
    Dim datee = reader("date")
    Dim pseudo = reader("pseudo")
    Dim level = reader("level")
    Dim message = reader("message")
 
    Dim rtf = "{\rtf1\ansi { \colortbl\red0\green0\blue0;\red153\green153\blue153;\red0\green153\blue0;}\cf1[" + datee + "] \cf0 \cf2 «\cf0" + pseudo + "\cf2» \cf0" + message + "}"
    RichTextBox1.Rtf = RichTextBox1.Rtf + rtf
 
 
End While

J'ai l'impression que tu as quelques lacunes en manipulations de bases de données... je te conseille d'aller faire un tour sur la page cours, il y a plein de tutos

EDIT: je connais pas trop la syntaxe RTF, mais il me semble que le début ("{\rtf1\ansi") est un en-tête qu'il ne faut ajouter qu'une fois... à vérifier.

Sinon tu n'es pas obligé de le faire en Rtf, tu peux te débrouiller avec les propriétés SelectedText, SelectionColor, SelectionStart, SelectionLength, etc

[Mirel]

Ton code me retourne rien du tout c'est normal ?

[tomlev]

Ton code me retourne rien du tout c'est normal ?

Comment ça ne "retourne" rien ? ça n'affiche rien dans la RichTextBox ?
Comme je l'ai dit dans mon message, il faut peut-être modifier la syntaxe RTF, mais je sais pas comment exactement. Essaie plutôt avec les propriétés que je t'ai indiquées, ce sera plus simple

[Mirel]

Aurez tu un tuto sur c'est propriété ?

Et sur => RichTextBox1.Rtf = RichTextBox1.Rtf + rtf

si je remplace RichTextBox1.Rtf + rtf par rtf il me donne seuelemnt le premier message et pas les autre !

Et si j'utilise pas RichTextBox1.Rtf je mais quoi ? RichTextBox1.text ?

[tomlev]

Aurez tu un tuto sur c'est propriété ?

Non, mais c'est pas très compliqué à utiliser :

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
Dim reader As MySqlReader = cmd.ExecuteReader()
While reader.Read()
    Dim datee = reader("date")
    Dim pseudo = reader("pseudo")
    Dim level = reader("level")
    Dim message = reader("message")
 
    RichTextBox1.Select(richTextBox1.TextLength, 0) ' (pour aller tout à la fin)
    RichTextBox1.SelectionColor = Color.Gray
    RichTextBox1.AppendText(String.Format("[{0}]", datee)
    RichTextBox1.SelectionColor = Color.Green
    RichTextBox1.AppendText(String.Format("{0} : ", pseudo)
    RichTextBox1.SelectionColor = Color.Black
    RichTextBox1.AppendText(message)
End While

Et sur => RichTextBox1.Rtf = RichTextBox1.Rtf + rtf

si je remplace RichTextBox1.Rtf + rtf par rtf il me donne seuelemnt le premier message et pas les autre !

Le dernier plutôt, non ?
Ben c'est logique, si tu fais ça tu remplaces le contenu de Rtf par le résultat en cours, alors qu'il faut l'ajouter à la suite...

[Mirel]

superbe ! Franchement merci tu ce que tu vient de faire pour moi !