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