Imports [Link].
MySqlClient
Public Class Form3
Dim conn As MySqlConnection = New MySqlConnection("Server=[Link]; user=root;
password=; database=gestionquincaillerie")
Dim cmd As New MySqlCommand
Dim dt As New DataTable
Dim da As New MySqlDataAdapter
Dim dr As MySqlDataReader
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
Try
[Link]()
Dim query As String
query = "insert into
clients(nom_client,adresse,telephone,email)values(@Nom,@Adresse,@Téléphone,@E_Mail)
"
cmd = New MySqlCommand(query, conn)
[Link]("@Nom", RichTextBox1)
[Link]("@Adresse", RichTextBox2)
[Link]("@Téléphone", RichTextBox3)
[Link]("@E-Mail", RichTextBox4)
[Link]()
MsgBox("Ajouter avec succès", [Link], "Réussi")
Catch ex As Exception
MsgBox([Link])
Finally
[Link]()
End Try
End Sub
End Class
RichTextBox1
Imports [Link]
Public Class DBConnection
Dim con As New MySqlConnection("Server=[Link]; user=root; password=;
database=gestionquincaillerie")
Public Function open() As MySqlConnection
Try
[Link]()
Catch ex As Exception
[Link]([Link])
End Try
Return con
End Function
Public Function Close() As MySqlConnection
Try
[Link]()
Catch ex As Exception
[Link]([Link])
End Try
Return con
End Function
End Class
***********************************************************************************
*********************************************
5/11/24
Imports [Link]
Imports [Link]
Public Class Form3
Dim dbCon As New DBConnection()
Dim cmd As New MySqlCommand
Dim dr As MySqlDataReader
Dim da As New MySqlDataAdapter
Dim dt As New DataTable
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles [Link]
' Charger les données initiales dans le DataGridView
LoadData()
End Sub
Private Sub LoadData()
Dim connection As MySqlConnection = [Link]()
If connection IsNot Nothing Then
Try
Dim query As String = "SELECT nom_client, adresse, telephone, email
FROM Clients"
Dim adapter As New MySqlDataAdapter(query, connection)
Dim dataSet As New DataSet()
[Link](dataSet, "Clients")
[Link] = [Link]("Clients")
Catch ex As Exception
[Link]([Link])
Finally
[Link]()
End Try
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
' Récupérer les valeurs des TextBoxes
Dim nom As String = [Link]()
Dim adresse As String = [Link]()
Dim telephone As String = [Link]()
Dim email As String = [Link]()
If [Link](nom) OrElse [Link](adresse) OrElse
[Link](telephone) OrElse [Link](email) Then
[Link]("Veuillez remplir tous les champs.")
Return
End If
' Insérer les données dans la base de données
Dim connection As MySqlConnection = [Link]()
If connection IsNot Nothing Then
Try
Dim query As String = "INSERT INTO Clients (nom_client, adresse,
telephone, email) VALUES (@Nom, @Adresse, @Telephone, @EMail)"
Using cmd As New MySqlCommand(query, connection)
[Link]("@Nom", nom)
[Link]("@Adresse", adresse)
[Link]("@Telephone", telephone)
[Link]("@Email", email)
' Loguer les paramètres pour le débogage
[Link]($"Paramètres : Nom={nom}, Adresse={adresse},
Telephone={telephone}, Email={email}")
[Link]()
' Afficher un message de succès
[Link]("Ajouté avec succès", "Réussi",
[Link], [Link])
End Using
' Recharger les données dans le DataGridView
LoadData()
Catch ex As MySqlException
[Link]($"Erreur MySQL : {[Link]}")
Catch ex As Exception
[Link]($"Erreur : {[Link]}")
Finally
[Link]()
End Try
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles
[Link]
Try
Dim connection As MySqlConnection = [Link]()
[Link] = connection
[Link] = [Link]
[Link]()
Dim searchInput As String = [Link]()
If [Link](searchInput) Then
[Link]("Veuillez entrer un ID ou un nom pour la
recherche.")
Return
End If
Dim query As String
If IsNumeric(searchInput) Then
query = "SELECT * FROM Clients WHERE client_id = @SearchInput"
[Link]("@SearchInput", searchInput)
Else
query = "SELECT * FROM Clients WHERE nom_client LIKE @SearchInput"
[Link]("@SearchInput", "%" & searchInput &
"%")
End If
[Link] = query
dr = [Link]()
If [Link] Then
[Link]()
[Link] = dr("nom_client").ToString
[Link] = dr("adresse").ToString
[Link] = dr("telephone").ToString
[Link] = dr("email").ToString
Else
[Link]("Client non trouvé")
End If
Catch ex As Exception
[Link]([Link])
Finally
If dr IsNot Nothing Then [Link]()
[Link]()
End Try
End Sub
'Private Sub LoadData()
'Try
'Dim connection As MySqlConnection = [Link]()
'With cmd
'.Connection = connection
'.CommandText = "SELECT * FROM Clients"
'End With
' [Link] = cmd
' [Link]()
' [Link](dt) [Link] = dt
'Catch ex As Exception
' MsgBox([Link])
'Finally [Link]() End Try End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles
[Link]
LoadData()
End Sub
End Class
***********************************************************************************
***********************************************
fournisseurs
Private Sub LoadDataFournisseurs()
Try
Dim connection As MySqlConnection = [Link]()
With cmd
.Connection = connection
.CommandText = "SELECT * FROM Fournisseurs"
End With
[Link] = cmd
[Link]()
[Link](dt)
[Link] = dt
' Bouton "Ajouter fournisseur"
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles
[Link]
' Récupérer les valeurs des RichTextBox pour fournisseur
Dim nomFournisseur As String = [Link]()
Dim adresse As String = [Link]()
Dim telephone As String = [Link]()
Dim email As String = [Link]()
Dim siteWeb As String = [Link]()
Dim contactPersonne As String = [Link]()
If [Link](nomFournisseur) OrElse
[Link](adresse) OrElse [Link](telephone) OrElse
[Link](email) OrElse [Link](siteWeb) OrElse
[Link](contactPersonne) Then
[Link]("Veuillez remplir tous les champs pour le
fournisseur.")
Return
End If
' Insérer les données du fournisseur dans la base de données
Dim connection As MySqlConnection = [Link]()
If connection IsNot Nothing Then
Try
Dim query As String = "INSERT INTO Fournisseurs (nom_fournisseur,
adresse, telephone, email, site_web, contact_personne) VALUES (@NomFournisseur,
@Adresse, @Telephone, @Email, @SiteWeb, @ContactPersonne)"
Using cmd As New MySqlCommand(query, connection)
[Link]("@NomFournisseur", nomFournisseur)
[Link]("@Adresse", adresse)
[Link]("@Telephone", telephone)
[Link]("@Email", email)
[Link]("@SiteWeb", siteWeb)
[Link]("@ContactPersonne",
contactPersonne)
' Loguer les paramètres pour le débogage
[Link]($"Paramètres :
NomFournisseur={nomFournisseur}, Adresse={adresse}, Telephone={telephone},
Email={email}, SiteWeb={siteWeb}, ContactPersonne={contactPersonne}")
[Link]()
' Afficher un message de succès
[Link]("Fournisseur ajouté avec succès", "Réussi",
[Link], [Link])
End Using
' Recharger les données dans le DataGridView (ajoutez votre
fonction de chargement pour les fournisseurs ici)
LoadDataFournisseurs()
Catch ex As MySqlException
[Link]($"Erreur MySQL : {[Link]}")
Catch ex As Exception
[Link]($"Erreur : {[Link]}")
Finally
[Link]()
End Try
End If
End Sub
End Class