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 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
|
Imports System.String
Imports System.Data.SqlClient
Partial Public Class nouveau
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Enregistr_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Enregistr.Click
' Dim numrD As String = NumD.Text
'Dim consist As String = Consis.Text
'Dim nomOpera As String = nomOpr.Text
'Dim situa As String = Situation.Text
'Dim typCom As String = TypeComm.Text
'Dim typePro As String = TypeProjet.Text
'Dim numrEnvoiComm As String = NumeroAnvoi.Text
'Dim NumAriv As String = NumerArriv.Text
'Dim DateEnvoiCom As String = Date.Parse(DateEnvoi.Text)
'Dim DateArivvAgence As String = DateArrivAg.Text
'Dim Observ As String = Observation.Text
'Dim petition As String = Petitionnaire.Text
'Dim ArList As String = ArchiList.SelectedValue
'Dim TpList As String = TopoList.SelectedValue
'Dim reff As String = Ref.Text
'Dim dateCom As String = DateComm.Text
Dim myConnection As SqlConnection
Dim myCommand1 As SqlCommand
Dim myReader1 As SqlDataReader
Dim Sql1 As String
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)"
myConnection = CType(Session("myConnection"), SqlConnection)
myCommand1 = New SqlCommand(Sql1, myConnection)
myCommand1.Parameters.AddWithValue("@num_dossier", NumD.Text)
myCommand1.Parameters.AddWithValue("@num_envoi_commune", NumeroAnvoi.Text)
myCommand1.Parameters.AddWithValue("@num_arrivee_agence", NumerArriv.Text)
myCommand1.Parameters.AddWithValue("@date_arrivee_agence", DateArrivAg.Text)
myCommand1.Parameters.AddWithValue("@observation", Observation.Text)
myCommand1.Parameters.AddWithValue("@petitionaire", Petitionnaire.Text)
myCommand1.Parameters.AddWithValue("@id_commune", CommunList.Text)
myCommand1.Parameters.AddWithValue("@code_projet", Convert.TypeProjet.Text)
myCommand1.Parameters.AddWithValue("@id_topographe", TopoList.Text)
myCommand1.Parameters.AddWithValue("@reference_fonciere", Ref.Text)
myCommand1.Parameters.AddWithValue("@id_Archetecte", ArchiList.Text)
myCommand1.Parameters.AddWithValue("@nom_operation", nomOpr.Text)
myCommand1.Parameters.AddWithValue("@date_comm", DateComm.Text)
myCommand1.Parameters.AddWithValue("@situation", Situation.Text)
myCommand1.Parameters.AddWithValue("@Consistance", Consis.Text)
myCommand1.Parameters.AddWithValue("@date_envoi_commun", DateComm.Text)
myCommand1.Parameters.AddWithValue("@type_commission", TypeComm.Text)
myReader1 = myCommand1.ExecuteReader()
'DataSource = myReader1
'List1.DataTextField = "nom_region"
'List1.DataValueField = "id_region"
'List1.DataBind()
myReader1.Close()
End Sub
End Class |
Partager