"insert into Nv_inscription values('" + Textbox1.text + "')"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question" ٬ Textbox1.text ٬ "c'est quoi ça?? ... un simple
Textbox1.textdevrait suffire
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 = "select * from Nv_inscription" cn1.Connection = cn dr = cn1.ExecuteReader If dr.HasRows Then dr.Read() TextBox1.Text = dr(0) Txtbox2.Text = dr(1) dr.Close() Else MsgBox("table vide") End If End Sub Sub initailiser() TextBox1.Clear() Txtbox2.Clear() End Sub Sub activer() TextBox1.Enabled = True Txtbox2.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 TextBox1.Focus() ElseIf Txtbox2.Text = Nothing Then Txtbox2.Focus() Else dr.Close() cn2.CommandText = "insert into Nv_inscription values('" + TextBox1.Text + "', '" + Txtbox2.Text + "') " cn2.Connection = cn cn2.ExecuteNonQuery() MsgBox("ajout effectué") End If End If End Sub
cn2.CommandText = "insert into Nv_inscription values(" + TextBox1.Text + "," + Txtbox2.Text + ")"