Discussion :

[juliendu67117]

Bonjour,

J'ai une petite question et il possible de synchroniser une listView avec une Base de donnée, parce que si j'ai plus de connexion avec ma base de donnée j'aimerai pouvoir quand même ajouter
des éléments dans ma listView et lorsque je retrouve ma connexion avec ma base de donnée j'aimerai pouvoir retrouver dans ma BDD ce que j'ai ajouter lorsque j’étais "hors ligne"

Merci d'avance pour vos réponse

[star]

Bien sûr c'est tout à fait possible
Il suffit de maintenir la persistance des données en mémoire dans un objet collection ou de type Dataset
Puis à la reconnexion consolider les données en base
Et le tour est joué
.

[juliendu67117]

Bonjour,

Merci pour ta réponse
tu n'aurais pas un exemple parce que je ne vois pas du tout comment je peux faire ça ( je suis débutant en VB )

[star]

Aurais-tu d'ores et déjà écrit des premiers codes pour ton application ?
Si tu les postes ici on pourra commencer à t'aider pour faire ce que tu cherches à réaliser.
.

[juliendu67117]

Oui bien sur veuillez trouver ci-dessous mon code

le code pour ajouter les rapports sans BDD

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
 
Public Sub Ajouter_rapport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ajouter_rapport.Click
 
        Dim Element As New ListViewItem
        Element.Text = ""
        Element.SubItems.Add(DateTimePicker1.Text)
        Element.SubItems.Add(ComboBox1.Text)
        Element.SubItems.Add(ComboBox2.Text)
        Element.SubItems.Add(RichTextBox1.Text)
 
        ListView1.Items.Add(Element)
 
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        RichTextBox1.Clear()
    End Sub

Le code pour ajouter les rapports avec la BDD

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
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
 
  Public sConnection As New MySqlConnection
 
    Private Sub Rapport_auto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If sConnection.State = ConnectionState.Closed Then
            sConnection.ConnectionString = "SERVER = localhost; USERID = root; PASSWORD =; DATABASE = ?????"
            sConnection.Open()
            LoadPeople()
        End If
 
        DateTimePicker1.Text = BDDDate
        ComboBox1.Text = BDDNom
        ComboBox2.Text = BDDPoste
        RichTextBox1.Text = BDDRapport
 
    End Sub
 
    Public Sub LoadPeople()
        Dim sqlQuery As String = " SELECT * FROM rapport_automaticien"
        Dim SqlAdapter As New MySqlDataAdapter
        Dim sqlCommand As New MySqlCommand
        Dim TABLE As New DataTable
 
 
        With sqlCommand
            .CommandText = sqlQuery
            .Connection = sConnection
        End With
 
        With SqlAdapter
            .SelectCommand = sqlCommand
            .Fill(TABLE)
 
            ListView1.Items.Clear()
 
 
            For i = 0 To TABLE.Rows.Count - 1
                With ListView1
                    .Items.Add(TABLE.Rows(i)("id"))
                    With .Items(.Items.Count - 1).SubItems
                        .Add(TABLE.Rows(i)("BDDDate"))
                        .Add(TABLE.Rows(i)("BDDNom"))
                        .Add(TABLE.Rows(i)("BDDPoste"))
                        .Add(TABLE.Rows(i)("BDDRapport"))
                    End With
                End With
            Next
        End With
 
 
 
    End Sub
 
    Private Sub Ajouter_rapport_bdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ajouter_bdd.Click
 
        If sConnection.State = ConnectionState.Closed Then
            sConnection.ConnectionString = " SERVER = localhost; USEID = root ; PASSWORD =; DATABASE = ????"
            sConnection.Open()
        End If
 
        Dim sqlQuery As String = " INSERT INTO rapport_automaticien(BDDDate,BDDNom,BDDPoste,BDDRapport) VALUES ('" & DateTimePicker1.Text & _
            "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & RichTextBox1.Text & "')"
        Dim sqlCommand As New MySqlCommand
 
        With sqlCommand
            .CommandText = sqlQuery
            .Connection = sConnection
            .ExecuteNonQuery()
        End With
 
        MsgBox("Rapport Ajouter")
        Me.LoadPeople()
 
 
 
    End Sub

[star]

Un lien vers un exemple qui pourrait beaucoup t'aider : https://www.codeproject.com/Articles...t-and-Database
.