Bonjour a tous,

je suis en train de développer une application de gestion de stock en VB.NET.
La BDD est une base mysql.
la liste est gérée dans un gridview

Je vous explique mon soucis.

lors du développement, j'ai utilisé une base mysql sur un serveur distant que nous utilisons pour d'autres applications.
Tout fonctionne correctement dans ce cas.

J'ai ensuite voulu l'installer chez l'utilisateur, en créant une base mysql locale (en installant easyphp ou wamp).

Dans ce cas toutes les opérations de "Select" fonctionnent correctement, mais après avoir effectuer un insert ou un update (qui fonctionne également), l’opération select ne fonctionne plus.
Le plus étrange est que si je rajoute encore une ligne dans mon gridview et que je sauvegarde cela fonctionne (la sauvegarde).

merci d'avance pour votre aide...

voici mon code :
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
77
78
79
80
81
82
83
84
85
Public Class FormGestionMarque
 
    Dim sCommand As MySqlCommand
    Dim sAdapter As MySqlDataAdapter
    Dim sBuilder As MySqlCommandBuilder
    Dim sDs As DataSet
    Dim sTable As DataTable
 
    Private Sub BT_Fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Fermer.Click
        Try
 
        Me.Dispose()
            Me.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    End Sub
    Private Sub Form_Close() Handles MyBase.FormClosed
        Try
            Me.Dispose()
            Me.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    End Sub
    Private Sub FormGestiondesMarques_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        init()
    End Sub
    Public Sub init()
        Try
            sDs = New DataSet()
            sCommand = Nothing
            sAdapter = Nothing
            sBuilder = Nothing
            sCommand = New MySqlCommand(Marque.GetTable_query, Marque.Connection)
            sAdapter = New MySqlDataAdapter(sCommand)
            sBuilder = New MySqlCommandBuilder(sAdapter)
            sDs = New DataSet()
 
            sAdapter.Fill(sDs, "Marque")
            sTable = sDs.Tables("Marque")
            GW_Marque.DataSource = sDs.Tables("Marque")
            GW_Marque.Columns(0).HeaderText = "Identifiant Marque"
            GW_Marque.Columns(1).HeaderText = "Marque"
            GW_Marque.Columns(2).HeaderText = "Description"
            GW_Marque.ReadOnly = True
 
            BT_save.Enabled = False
            sDs.Tables("Marque").BeginLoadData()
            GW_Marque.Refresh()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    End Sub
 
 
    Private Sub BT_Modif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Modif.Click
        Try
            GW_Marque.ReadOnly = False
            BT_save.Enabled = True
            BT_Modif.Enabled = False
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    End Sub
 
    Private Sub BT_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_save.Click
        Try
            GW_Marque.ReadOnly = False
            sAdapter.Update(sTable)
            GW_Marque.ReadOnly = True
            BT_save.Enabled = False
            BT_Modif.Enabled = True
            GW_Marque.Refresh()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    End Sub
 
End Class