1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Dim myConnection As SqlConnection
Dim myCommand2 As SqlCommand
Dim myReader2 As SqlDataReader
Dim Sql As String
Pet.Visible = False
''Sql1 = "INSERT INTO [dossier] ([num_dossier], [num_envoi_commune], [num_arrivee_agence], [date_arrivee_agence],[date_envoi_commun], [observation], [petitionaire], [id_commune], [code_projet], [reference_fonciere], [id_topographe], [id_Archetecte], [nom_operation], [date_comm], [situation], [Consistance],[type_commission]) VALUES(@num_dossier, @num_envoi_commune, @num_arrivee_agence, @date_arrivee_agence,@date_envoi_commun, @observation, @petitionaire,@id_commune, @code_projet, @reference_fonciere, @id_topographe, @id_Archetecte,@nom_operation, @date_comm, @situation, @Consistance,@type_commission)"
Sql = "INSERT INTO [Petitionnaire] ([CIN_petitionnaire],[petitionnaire]) VALUES(@CIN_petitionnaire,@petitionnaire)"
myConnection = CType(Session("myConnection"), SqlConnection)
myCommand2 = New SqlCommand(Sql, myConnection)
myCommand2.Parameters.AddWithValue("@CIN_petitionnaire", Convert.ToString(cin.Text))
myCommand2.Parameters.AddWithValue("@petitionnaire", Convert.ToString(Petitionnaire.Text))
myReader2 = myCommand2.ExecuteReader()
myReader2.Close()
Pet.Visible = True |
Partager