j'ai cru que c'est la syntax (avec la virgule inversée) bn, voila mon code entier :
Code Visual Basic :
Imports System.Data.SqlClient
Public Class application
Dim cn As New SqlConnection("Data Source=(local);Initial Catalog=Révision_des_listes_électorales;User Id=sa;Password=zanadyabouhami9a;")
Dim cn2 As New SqlCommand
Dim cn1 As New SqlCommand
Dim dr As SqlDataReader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' pour les annexes_administratives
cn.Open()
Dim DataSet1 As New DataSet
Dim SqlDataAdapter1 As SqlDataAdapter
SqlDataAdapter1 = New SqlDataAdapter(New SqlCommand(" select nom_commune from annexes_administratives", cn))
SqlDataAdapter1.Fill(DataSet1, "annexes_administratives")
ComboBox.DataSource = DataSet1.Tables("annexes_administratives")
ComboBox.DisplayMember = "nom_commune"
'pour les nouvelles inscription
cn1.CommandText = "insert into Nv_inscription"
cn1.Connection = cn
dr = cn1.ExecuteReader
dr.Read()
TextBox1.Text = dr(0)
End Sub
Sub initailiser()
TextBox1.Clear()
End Sub
Sub activer()
TextBox1.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btvider.Click
If Btvider.Text = "vider" Then
initailiser()
activer()
Btvider.Text = "ajouter"
ElseIf Btvider.Text = "ajouter" Then
If TextBox1.Text = Nothing Then
MsgBox(" veulliez entrer la valeur")
TextBox1.Focus()
Else
dr.Close()
cn2.CommandText = "insert into Nv_inscription values('" + TextBox1.Text + "') "
cn2.Connection = cn
cn2.ExecuteNonQuery()
MsgBox("ajout effectué")
End If
End If
End Sub
End Class
****** et si c possible de m'aider ,lorsque j'execute le code il apparait ensuit une erreur (" La référence d'objet n'est pas définie à une instance d'un objet.") pour le " dr.Close() " et j'arrive pas à la résoudre :p