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 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131
| Imports MySql.Data.MySqlClient
Public Class FormGestMbr
Public dbconn As New MySqlConnection
Public sql As String
Public dbcomm As MySqlCommand
Public dbread As MySqlDataReader
'create data adapter
Dim da As Common.DbDataAdapter
'create dataset
Dim ds As DataSet = New DataSet
'**************************
Private bindingSource1 As New BindingSource()
Private dataAdapter As New MySqlDataAdapter()
Private Sub UpdateDataGridView()
sql = "SELECT mbr_id, titre, prenom, nomfam, ville, telephone, courriel FROM membres;"
Try
Me.dataAdapter = New MySqlDataAdapter(sql, dbconn)
Dim commandBuilder As New MySqlCommandBuilder(Me.dataAdapter)
Dim dss As New DataSet()
Me.dataAdapter.Fill(dss, "membres")
Me.bindingSource1.DataSource = dss
'DataGVMembres.DataSource = dss
DataGVMembres.DataMember = "membres"
Me.DataGVMembres.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader)
'DataGVMembres.AutoResizeColumn(0)
'DataGVMembres.AutoResizeColumn(1)
'DataGVMembres.AutoResizeColumn(2)
'DataGVMembres.AutoResizeColumn(3)
''DataGVMembres.AutoResizeColumn(4)
''DataGVMembres.AutoResizeColumn(5)
'DataGVMembres.AutoResizeColumn(6)
Catch ex As MySqlException
MessageBox.Show("Erreur: " + sql)
End Try
End Sub
Private Sub FormGestMbrShown(sender As Object, e As EventArgs) Handles MyBase.Shown
UpdateDataGridView()
End Sub
Private Sub FormGestMbrLoad(sender As Object, e As EventArgs) Handles MyBase.Load
dbconn = New MySqlConnection("server=localhost;user id=un_user_id;password=un_password;database=une_bd")
Try
dbconn.Open()
Catch ex As Exception
Console.Out.WriteLine("Erreur de connection à la BD: " + ex.Message)
End Try
Me.DataGVMembres.DataSource = Me.bindingSource1
End Sub
Private Sub FormGestMbrFormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
'Fermeture de la connection à la BD
dbconn.Close()
dbconn.Dispose()
End Sub
Private Sub DataGVMembres_Click(sender As Object, e As EventArgs) Handles DataGVMembres.Click
End Sub
Private Sub DataGVMembres_SelectionChanged(sender As Object, e As EventArgs) Handles DataGVMembres.SelectionChanged
'MsgBox(DataGVMembres.SelectedCells.Item(0).Value.ToString())
'****************************************************
If DataGVMembres.CurrentRow.Index >= 0 Then
Dim un_mbr_id As String = DataGVMembres.SelectedRows.Item(0).Cells.Item(0).Value.ToString()
Dim sqlquery As String = "SELECT * FROM membres WHERE mbr_id='" + un_mbr_id + "';"
Dim data As MySqlDataReader
Dim adapter As New MySqlDataAdapter
Dim command As New MySqlCommand(sqlquery, dbconn)
adapter.SelectCommand = command
data = command.ExecuteReader()
data.Read()
tb_mbr_id.Text = data(0).ToString()
tbTitre.Text = data(3).ToString()
tbPrenom.Text = data(2).ToString()
tbNom.Text = data(1).ToString()
tbAdresse.Text = data(5).ToString()
tbVille.Text = data(6).ToString()
tbCodePostal.Text = data(9).ToString()
tbProvince.Text = data(7).ToString()
tbPays.Text = data(8).ToString()
tbTelephone.Text = data(10).ToString()
tbFax.Text = data(11).ToString()
tbCourriel.Text = data(12).ToString()
cbListeCourriel.Checked = data(15)
tbInfoComp.Text = data(4).ToString()
tbVieuxRegistre.Text = data(13).ToString()
tbDateInscription.Text = data(18).ToString()
cbNonMembre.Checked = data(14)
cbProtocoleSigne.Checked = data(17)
cbCoordonneePerimee.Checked = data(16)
tbCommMembre.Text = data(19).ToString()
tbCommAdmin.Text = data(20).ToString()
'MsgBox(data(1).ToString() + " : " + data(2).ToString())
'While data.Read()
' Label1.Text = data(1).ToString
' Label2.Text = data(3).ToString
'End While
data.Close()
'adapter.Dispose()
'command.Dispose()
End If
End Sub
Private Sub bSauvegarder_Click(sender As Object, e As EventArgs) Handles bSauvegarder.Click
Dim sqlUpdate As New String("UPDATE membres SET titre='" + tbTitre.Text + "', prenom='" + tbPrenom.Text + "', nomfam='" + tbNom.Text + "', infocomp='" + tbInfoComp.Text + "', adresse='" + tbAdresse.Text + "', ville='" + tbVille.Text + "', province='" + tbProvince.Text + "', pays='" + tbPays.Text + "', code_postal='" + tbCodePostal.Text + "', telephone='" + tbTelephone.Text + "', fax='" + tbFax.Text + "', courriel='" + tbCourriel.Text + "', vieuxreg='" + tbVieuxRegistre.Text + "', non_membre=" + cbNonMembre.Checked.ToString + ", liste_courriel=" + cbListeCourriel.Checked.ToString + ", cdonnee_perimee=" + cbCoordonneePerimee.Checked.ToString + ", protocole_signe=" + cbProtocoleSigne.Checked.ToString + ", date_inscription='" + tbDateInscription.Text + "', commentaire_mbr='" + tbCommMembre.Text + "', commentaire_admin='" + tbCommAdmin.Text + "' WHERE mbr_id='" + tb_mbr_id.Text + "';")
Dim cmd As MySqlCommand = New MySqlCommand(sqlUpdate, dbconn)
Dim i As Integer = cmd.ExecuteNonQuery()
If (i > 0) Then
MsgBox("Sauvegarde des modifications au registre du membre " + tbPrenom.Text + " " + tbNom.Text + " correctement effectuée!")
UpdateDataGridView()
Else
MsgBox("Erreur de sauvegarde des modifications au registre du membre " + tbPrenom.Text + " " + tbNom.Text + "...")
End If
'UpdateDataGridView()
End Sub
End Class |
Partager