lorsque je débogue l'application il se pointe sur "cmd.Connection.Open()" est ecrit "La propriété ConnectionString n'a pas été initialisée."
qu'est ce que je doit faire pour corriger ???
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Déclaration de la variable cmd
' OleDbCommand représentera ici une instruction SQL à exécuter par rapport à une source de données
Dim cmd As OleDb.OleDbCommand
' Déclaration de sql_ajouter, qui contiendra la requête SQL permettant d'ajouter un enregistrement
Dim sql_ajouter As String
' On écrit notre requête et on l'assigne à la variable sql_ajouter
sql_ajouter = "INSERT INTO materiel (id_mat,Nom_mat,marque,caracreristique) VALUES(Val_id, Val_Nom,val_mar,val_cara)"
' Initialisation de la requête
cmd = New OleDb.OleDbCommand(sql_ajouter, con)
' On définit les paramètres utilisés pour le bon déroulement de la requête
' On assigne à Val_Prenom" le texte contenu dans le textbox txt_ajouter_prenom
cmd.Parameters.AddWithValue("Val_id", ID_MATTextBox.Text)
' On assigne à Val_Nomm" le texte contenu dans le textbox txt_ajouter_nom
cmd.Parameters.AddWithValue("Val_Nom", NOM_MATTextBox.Text)
cmd.Parameters.AddWithValue("Val_mar", MARQUETextBox.Text)
cmd.Parameters.AddWithValue("Val_cara", CARACTERISTIQUETextBox.Text)
' Ouverture de la connexion
cmd.Connection.Open()
' Exécution de la requête SQL
cmd.ExecuteReader()
' Fermeture de la connexion
cmd.Connection.Close()
' On efface les deux "textbox"
ID_MATTextBox.Text = ""
NOM_MATTextBox.Text = ""
MARQUETextBox.Text = ""
CARACTERISTIQUETextBox.Text = ""
' Message indiquant que le nouveau contact a bien été enregistré
MsgBox("Le nouveau contact a bien été enregistré.")
' On vide le dataset
ds.Clear()
' et on le réaffiche en faisant appel à Connexion()
' pour que notre nouveau contact apparaisse bien
Connexion()
' Si la table contient 1 seul enregistrement après avoir cliqué sur le bouton ajouter
' il faut activer tous les boutons
If Max_Enregistrements = 1 Then
Button3.Enabled = True
Button2.Enabled = True
Button1.Enabled = True
End If
End Sub
voila le code j'ai fais beaucoup de recherche mais je ne trouve pas !!
j'utulise Acces 2007 !!