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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98
|
Imports System.Data
Imports System.Data.SqlClient
Partial Class Default4
Inherits System.Web.UI.Page
Dim DBConn As New Data.SqlClient.SqlConnection("server=(local);database=QUALIMETRE;Trusted_Connection=yes;")
Dim DBCmd As Data.SqlClient.SqlCommand
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
DBConn.Open()
End Sub
' Public Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click
Protected Sub Page4SaveButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Dim SQLQuery As String = "INSERT INTO satisfaction(Messagerie, Office, Windows, [Call-Center], Gescom, SUN5, VISION6, SUNPROCUREMENT, MULTIGEST, PAIE, [COMMENT LOG_SYS], Disponibilite_LAN, Acces_LAN, Temps_Reponse_LAN, Disponibilite_NET, Horaires_Acces_NET, Acces_SiteWeb, Temps_Reponse_NET, Securite_Data, Antivirus, AntiSpams, Firewall, Securite_Phys_PC, [COMMENT LAN_NET_SEC], Disponibilite_SI, Disponibilite_Intervenant,Disponibilite_Data, Reactivite, Prise_en_compte_Besoins, Delais_Intervention, Duree_Resolution_Incident, Qualite_Tvx_Outils, Formations_Données, Ordinateurs, Ecran, Souris_Clavier, Imprimante_Scanner, Copieur, Poste_Telephone, Disposition_Materiel, Disposition_Cables, [COMMENT Mat_SUP],DelaiFacturation, QualiteFacturation, FiabiliteFacturation, FiabiliteStatsFacturation, FiabiliteIntercos, DelaiActivationSce, DelaisProductionKits, BISYC,Consultor, Crediteur, [COMMENT Billing],Evolution_SI, DegreDSI, Opportunite, Comment) " _
& " VALUES (@Messagerie, @Office, @Windows,@[Call-Center], @Gescom,@SUN5,@VISION6, @SUNPROCUREMENT,@MULTIGEST,@PAIE, @[COMMENT LOG_SYS],@Disponibilite_LAN, @Acces_LAN, @Temps_Reponse_LAN, @Disponibilite_NET, @Horaires_Acces_NET, @Acces_SiteWeb, @Temps_Reponse_NET, @Securite_Data,@Antivirus, @AntiSpams, @Firewall, @Securite_Phys_PC, @[COMMENT LAN_NET_SEC], @Disponibilite_SI, @Disponibilite_Intervenant,@Disponibilite_Data, @Reactivite, @Prise_en_compte_Besoins, @Delais_Intervention,@Duree_Resolution_Incident,@Qualite_Tvx_Outils, @Formations_Données, @Ordinateurs, Ecran, @Souris_Clavier, @Imprimante_Scanner, @Copieur, @Poste_Telephone,@Disposition_Materiel, @Disposition_Cables, @[COMMENT Mat_SUP],@DelaiFacturation,@QualiteFacturation, @FiabiliteFacturation,@FiabiliteStatsFacturation, @FiabiliteIntercos, @DelaiActivationSce, @DelaisProductionKits, @BISYC,@Consultor, @Créditeur, @[COMMENT Billing], @Evolution_SI, @DegreDSI, @Opportunite, @Comment)"
DBCmd = New Data.SqlClient.SqlCommand(SQLQuery, DBConn)
DBCmd.Parameters.Add("@Messagerie", SqlDbType.Char, 50).Value = RadioButtonList1.SelectedItem.ToString
DBCmd.Parameters.Add("@Office", SqlDbType.Char, 50).Value = RadioButtonList2.SelectedItem.ToString
DBCmd.Parameters.Add("@Windows", SqlDbType.Char, 50).Value = RadioButtonList3.SelectedItem.ToString
DBCmd.Parameters.Add("@[Call-Center]", SqlDbType.Char, 50).Value = RadioButtonList4.SelectedItem.ToString
DBCmd.Parameters.Add("@Gescom", SqlDbType.Char, 50).Value = RadioButtonList5.SelectedItem.ToString
DBCmd.Parameters.Add("@SUN5", SqlDbType.Char, 50).Value = RadioButtonList6.SelectedItem.ToString
DBCmd.Parameters.Add("@VISION6", SqlDbType.Char, 50).Value = RadioButtonList7.SelectedItem.ToString
DBCmd.Parameters.Add("@SUNPROCUREMENT", SqlDbType.Char, 50).Value = RadioButtonList8.SelectedItem.ToString
DBCmd.Parameters.Add("@MULTIGEST", SqlDbType.Char, 50).Value = RadioButtonList9.SelectedItem.ToString
DBCmd.Parameters.Add("@PAIE", SqlDbType.Char, 50).Value = RadioButtonList10.SelectedItem.ToString
DBCmd.Parameters.Add("@[COMMENT LOG_SYS]", SqlDbType.NVarChar, 4000).Value = TextBox1.Text
DBCmd.Parameters.Add("@Disponibilite_LAN", SqlDbType.Char, 50).Value = RadioButtonList11.SelectedItem.ToString
DBCmd.Parameters.Add("@Acces_LAN", SqlDbType.Char, 50).Value = RadioButtonList12.SelectedItem.ToString
DBCmd.Parameters.Add("@Temps_Reponse_LAN", SqlDbType.Char, 50).Value = RadioButtonList13.SelectedItem.ToString
'DBCmd.Parameters.Add("@Disponibilite_NET", SqlDbType.Char, 50).Value = RadioButtonList14.SelectedItem.ToString
'DBCmd.Parameters.Add("@Horaires_Acces_NET", SqlDbType.Char, 50).Value = RadioButtonList15.SelectedItem.ToString
' DBCmd.Parameters.Add("@Acces_SiteWeb", SqlDbType.Char, 50).Value = RadioButtonList16.SelectedItem.ToString
' DBCmd.Parameters.Add("@Temps_Reponse_NET", SqlDbType.Char, 50).Value = RadioButtonList17.SelectedItem.ToString
DBCmd.Parameters.Add("@Securite_Data", SqlDbType.Char, 50).Value = RadioButtonList17.SelectedItem.ToString
DBCmd.Parameters.Add("@Antivirus", SqlDbType.Char, 50).Value = RadioButtonList18.SelectedItem.ToString
DBCmd.Parameters.Add("@AntiSpams", SqlDbType.Char, 50).Value = RadioButtonList19.SelectedItem.ToString
DBCmd.Parameters.Add("@Firewall", SqlDbType.Char, 50).Value = RadioButtonList20.SelectedItem.ToString
DBCmd.Parameters.Add("@Securite_Phys_PC", SqlDbType.Char, 50).Value = RadioButtonList21.SelectedItem.ToString
DBCmd.Parameters.Add("@[COMMENT LAN_NET_SEC]", SqlDbType.NVarChar, 4000).Value = TextBox2.Text
DBCmd.Parameters.Add("@Disponibilite_SI", SqlDbType.Char, 50).Value = RadioButtonList22.SelectedItem.ToString
DBCmd.Parameters.Add("@Disponibilite_Intervenant", SqlDbType.Char, 50).Value = RadioButtonList23.SelectedItem.ToString
DBCmd.Parameters.Add("@Disponibilite_Data", SqlDbType.Char, 50).Value = RadioButtonList24.SelectedItem.ToString
DBCmd.Parameters.Add("@Reactivite", SqlDbType.Char, 50).Value = RadioButtonList33.SelectedItem.ToString
DBCmd.Parameters.Add("@Prise_en_compte_Besoins", SqlDbType.Char, 50).Value = RadioButtonList34.SelectedItem.ToString
DBCmd.Parameters.Add("@Delais_Intervention", SqlDbType.Char, 50).Value = RadioButtonList35.SelectedItem.ToString
DBCmd.Parameters.Add("@Duree_Resolution_Incident", SqlDbType.Char, 50).Value = RadioButtonList36.SelectedItem.ToString
DBCmd.Parameters.Add("@Qualite_Tvx_Outils", SqlDbType.Char, 50).Value = RadioButtonList37.SelectedItem.ToString
DBCmd.Parameters.Add("@Formations_Données", SqlDbType.Char, 50).Value = RadioButtonList38.SelectedItem.ToString
DBCmd.Parameters.Add("@Ordinateurs", SqlDbType.Char, 50).Value = RadioButtonList25.SelectedItem.ToString
DBCmd.Parameters.Add("@Ecran", SqlDbType.Char, 50).Value = RadioButtonList26.SelectedItem.ToString
DBCmd.Parameters.Add("@Souris_Clavier", SqlDbType.Char, 50).Value = RadioButtonList27.SelectedItem.ToString
DBCmd.Parameters.Add("@Imprimante_Scanner", SqlDbType.Char, 50).Value = RadioButtonList39.SelectedItem.ToString
DBCmd.Parameters.Add("@Copieur", SqlDbType.Char, 50).Value = RadioButtonList40.SelectedItem.ToString
DBCmd.Parameters.Add("@Poste_Telephone", SqlDbType.Char, 50).Value = RadioButtonList41.SelectedItem.ToString
DBCmd.Parameters.Add("@Disposition_Materiel", SqlDbType.Char, 50).Value = RadioButtonList28.SelectedItem.ToString
DBCmd.Parameters.Add("@Disposition_Cables", SqlDbType.Char, 50).Value = RadioButtonList29.SelectedItem.ToString
DBCmd.Parameters.Add("@[COMMENT Mat_SUP]", SqlDbType.NVarChar, 4000).Value = TextBox3.Text
DBCmd.Parameters.Add("@DelaiFacturation", SqlDbType.Char, 50).Value = RadioButtonList42.SelectedItem.ToString
'DBCmd.Parameters.Add("@QualiteFacturation", SqlDbType.Char, 50).Value = RadioButtonList43.SelectedItem.ToString
DBCmd.Parameters.Add("@FiabiliteFacturation", SqlDbType.Char, 50).Value = RadioButtonList43.SelectedItem.ToString
'DBCmd.Parameters.Add("@FiabiliteStatsFacturation", SqlDbType.Char, 50).Value = RadioButtonList52.SelectedItem.ToString
' DBCmd.Parameters.Add("@FiabiliteIntercos", SqlDbType.Char, 50).Value = RadioButtonList1.SelectedItem.ToString
DBCmd.Parameters.Add("@DelaiActivationSce", SqlDbType.Char, 50).Value = RadioButtonList51.SelectedItem.ToString
DBCmd.Parameters.Add("@DelaisProductionKits", SqlDbType.Char, 50).Value = RadioButtonList52.SelectedItem.ToString
DBCmd.Parameters.Add("@BISYC", SqlDbType.Char, 50).Value = RadioButtonList57.SelectedItem.ToString
DBCmd.Parameters.Add("@Consultor", SqlDbType.Char, 50).Value = RadioButtonList58.SelectedItem.ToString
DBCmd.Parameters.Add("@Crediteur", SqlDbType.Char, 50).Value = RadioButtonList59.SelectedItem.ToString
DBCmd.Parameters.Add("@[COMMENT Billing]", SqlDbType.NVarChar, 4000).Value = TextBox3.Text
DBCmd.Parameters.Add("@Evolution_SI", SqlDbType.Char, 50).Value = RadioButtonList44.SelectedItem.ToString
DBCmd.Parameters.Add("@DegreDSI", SqlDbType.Char, 50).Value = RadioButtonList46.SelectedItem.ToString
DBCmd.Parameters.Add("@Opportunite", SqlDbType.Char, 50).Value = RadioButtonList48.SelectedItem.ToString
DBCmd.Parameters.Add("@Comment", SqlDbType.NVarChar, 4000).Value = TextBox5.Text
DBCmd.ExecuteNonQuery()
DBCmd.Dispose()
DBCmd = Nothing
Catch ex As Exception
Response.Write(ex)
End Try |
Partager