A voir également:
- Connexion application VB et bd MYSQL en client/serveur 2/3
- Gmail connexion - Guide
- Application mobile - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Voe.sx n'autorise pas la connexion. ✓ - Forum Réseaux sociaux
- Changer serveur dns - Guide
1 réponse
Pas de garantie autre, je suis aussi débutant mais j'ai fait un code similaire qui fonctionne j'ai tenté de l'adapté au tien, a une différence je n'utilise pas mysqlclient mais ca peut ptt t'aider:
Imports System.Data.SqlClient
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim connexion As New SqlConnection
Dim query As String
connexion.ConnectionString = "database=personne;server=192.168.27.1;user id=root;Password=Mot_de_passe"
Dim str_nom As New SqlParameter("@str_nom", TextBox1.text)
Dim str_prenom As New SqlParameter("@str_prenom", TextBox2.text)
query = "insert into etudiant (nom,prenom) values (@str_nom,@str_prenom);"
Dim Commande As New SqlCommand(requete, connexion)
Try
connexion.Open()
Commande.Parameters.Add(str_nom)
Commande.Parameters.Add(str_prenom)
Commande.ExecuteNonQuery()
connexion.Close()
MsgBox("Données enregistrées")
Catch ex As Exception
MessageBox.Show("echec " & ex.Message)
End Try
End Sub
De plus de la a dire que c'est lié,y'a du chemin, mais j'ai eu des souci lors de l'utilisation d'utilisateur sans mot de passe.
Imports System.Data.SqlClient
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim connexion As New SqlConnection
Dim query As String
connexion.ConnectionString = "database=personne;server=192.168.27.1;user id=root;Password=Mot_de_passe"
Dim str_nom As New SqlParameter("@str_nom", TextBox1.text)
Dim str_prenom As New SqlParameter("@str_prenom", TextBox2.text)
query = "insert into etudiant (nom,prenom) values (@str_nom,@str_prenom);"
Dim Commande As New SqlCommand(requete, connexion)
Try
connexion.Open()
Commande.Parameters.Add(str_nom)
Commande.Parameters.Add(str_prenom)
Commande.ExecuteNonQuery()
connexion.Close()
MsgBox("Données enregistrées")
Catch ex As Exception
MessageBox.Show("echec " & ex.Message)
End Try
End Sub
De plus de la a dire que c'est lié,y'a du chemin, mais j'ai eu des souci lors de l'utilisation d'utilisateur sans mot de passe.