1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Not (TextBox1.Text = "") And Not (TextBox2.Text = "") And Not (TextBox4.Text = "") Then
Dim strsql As String = "Select * from responsable"
Dim strConnexion As String = "Persist Security Info=true;Integrated Security=SSPI;database=parc municipal;server=USER-PC\AHMED"
Dim x As Exception
Dim oConnection As New SqlConnection(strConnexion)
oConnection.Open()
Dim ObjetDA As New SqlDataAdapter(strsql, oConnection)
ObjetDA.Fill(Parc_municipalDataSet1, "responsable")
ObjetDA.InsertCommand = New SqlCommand("INSERT INTO responsable(num_matricule,nom_prenom, titre) Values(@num_matricule,@nom_prenom,@titre)", oConnection)
ObjetDA.InsertCommand.Parameters.Add("@num_matricule", SqlDbType.Int, 15, "num_matricule")
ObjetDA.InsertCommand.Parameters.Add("@nom_prenom", SqlDbType.NVarChar, 15, "nom_prenom")
ObjetDA.InsertCommand.Parameters.Add("@titre", SqlDbType.NVarChar, 15, "titre")
Dim DR As DataRow
DR = Parc_municipalDataSet1.Tables("responsable").NewRow
DR("num_matricule") = TextBox1.Text
DR("titre") = TextBox4.Text
DR("nom_prenom") = TextBox2.Text
Parc_municipalDataSet1.Tables("responsable").Rows.Add(DR)
ObjetDA.Update(Parc_municipalDataSet1, "responsable")
Parc_municipalDataSet1.Clear()
ObjetDA.Fill(Parc_municipalDataSet1, "responsable")
Parc_municipalDataSet1.concerner_r.Constraints.Add("FK_concerner_r_responsable", Parc_municipalDataSet1.responsable.Columns("num_matricule"), Parc_municipalDataSet1.concerner_r.Columns("num_matricule"))
Parc_municipalDataSet1.concerner_r.Constraints.Add("FK_concerner_r_categorie", Parc_municipalDataSet1.categorie.Columns("nom_cat"), Parc_municipalDataSet1.concerner_r.Columns("nom_cat"))
Dim DR1 As DataRow
DR1 = Parc_municipalDataSet1.Tables("concerner_r").NewRow
DR1("num_matricule") = TextBox1.Text
DR1("nom_cat") = ComboBox1.SelectedItem.ToString
Parc_municipalDataSet1.Tables("concerner_r").Rows.Add(DR1)
ObjetDA.Update(Parc_municipalDataSet1, "concerner_r")
Parc_municipalDataSet1.Clear()
ObjetDA.Fill(Parc_municipalDataSet1, "concerner_r") |
Partager