Voici le code de ma connexion a la base de donnée:
Le proble c'est que j'arrive pas a trouvé comment executé la requete qui est bonne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Module Connexion Private m_connexion As SqlConnection 'Connexion SQLServer => Sans Authentification Windows Public MyConnexion = New SqlConnection("Data Source=(local);Initial Catalog=PPE6_G1;User Id=X;Password=YYYY;") End Sub End Module
L'erreur a lieu a la ligne 7
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 Try If cbNum.Text = "" Then Dim unDonateur As New Donateur(tbNom.Text, TbPrenom.Text, TbAdresse.Text, tbGsm.Text) Dim requete As String = "insert into personne values('" + unDonateur.Lire_Nom + "','" + unDonateur.Lire_Prenom + "','" + unDonateur.Lire_adresse + "','" + unDonateur.Lire_Gsm + "');" Dim cmd = New SqlCommand(requete, SqlConnection()) Try cmd.ExecuteNonQuery() Catch ex As Exception MessageBox.Show(ex.Message) End Try 'Message pour confimer l'ajout MessageBox.Show("Le donateur a été ajouté.")<br><br>
Partager