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