petit script chat en vb.net avec base Access

Donc voila mon premier code fonctionnel qui as un sens lol

donc j'est crée une base de donnée access qui possede 1 table nommée chat

la table contient 3 colonnes : N°, Login, message

et sur vb.net une form avec 2 bouton 1 textbox 1 richtextbox 1 maskedtextbox et 1 timer

si sa peut aidez des gens voici la source :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Imports System.Data.OleDb
 
Public Class Form1
    'A regler selon la base de donnée
    Dim databaseaccess As String = "Provider=microsoft.jet.oledb.4.0;Data Source=\\192.168.0.45\chat\chat.mdb"
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Sub getmsg()
        ' reglage des variables '
        Dim cn As OleDbConnection
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader
 
       ' connection
        cn = New System.Data.OleDb.OleDbConnection(databaseaccess)
        cn.Open()
 
        'recuperation des anciens messages avec un filtre pour ne pas avoir de doublon
        cmd = New OleDbCommand("select * from chat", cn)
        dr = cmd.ExecuteReader
        While dr.Read
            If Not MaskedTextBox1.Text.Contains(dr(0)) Then
                RichTextBox1.AppendText(dr(1) & " : " & dr(2) & vbNewLine)
                If MaskedTextBox1.Text = "" Then
                    MaskedTextBox1.AppendText(dr(0))
                Else
                    MaskedTextBox1.AppendText(";" & dr(0))
                End If
            End If
 
        End While
 
        ' Fermeture de la connection IMPORTANT
        cn.Close()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ' reglage des variables '
        Dim cn As OleDbConnection
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader
 
        ' connection
        cn = New System.Data.OleDb.OleDbConnection(databaseaccess)
        cn.Open()
 
        'recuperation des anciens messages avec un filtre pour ne pas avoir de doublon
        cmd = New OleDbCommand("select * from chat", cn)
        dr = cmd.ExecuteReader
 
        While dr.Read
            RichTextBox1.AppendText(dr(1) & " : " & dr(2) & vbNewLine)
 
            If MaskedTextBox1.Text = "" Then
                MaskedTextBox1.AppendText(dr(0))
            Else
                MaskedTextBox1.AppendText(";" & dr(0))
            End If
 
        End While
        ' Fermeture de la connection IMPORTANT
        cn.Close()
        Timer1.Enabled = True
 
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        getmsg()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' reglage des variables '
        Dim cn As OleDbConnection
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader
 
        ' connection
        cn = New System.Data.OleDb.OleDbConnection(databaseaccess)
        cn.Open()
 
        ' Insertion du message
        cmd = New OleDbCommand("insert into chat (login,message) values('" & TextBox2.Text & "','" & TextBox1.Text & "')", cn)
        dr = cmd.ExecuteReader
 
        ' Fermeture de la connection IMPORTANT
        cn.Close()
 
        ' Recuperation des messages
        getmsg()
    End Sub
End Class

si vous voulez le dossier du projet demandez moi et je l'ajouterais

P.S : Dites ce que vous en pensez ;)