| 12
 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