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
| Public Class EnqueteEqtGenerale
Inherits System.Web.UI.Page
Dim ConnexionEqt As String = "Data Source=SYNAPPSE01;Initial Catalog=Eqt;Integrated Security=False;Persist Security Info=True;User ID=User;Pwd=Password"
Dim Getdata As DataControle.DataControle = New DataControle.DataControle
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub BtnEnvoyer_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnEnvoyer.Click
SaveDataEnquete()
End Sub
Private Sub SaveDataEnquete()
Dim StrSql As String = Nothing
StrSql = "insert into EnqueteEqt (EMailSender,PaysOrigine,DateEnquete,AcceuilWelcome,AccesCircuit,AccompagnementStand,ActiviteAnnexes,DispositionStands,LargeurEspacePaneautage," & _
"EtatCircuitDebut,EtatCircuitFin,secretariatInscription,LargeurPisteStand,TempOutertureWelcom,Pointage,RemiseDossard,SecuriteCircuit,securiteStand,ServiceSecoure," & _
"TrouverResponsable,TypeCircuit,VarieteBoisson,VarieteNourriture) VALUES ('" & _
EMailSender.Text & "','" & _
DdPays.Text & "','" & _
Date.Now & "'," & _
RBAcceuilWelcome.SelectedIndex & "," & _
RbAccesCircuit.SelectedIndex & "," & _
RbAccompagnement.SelectedIndex & "," & _
RbActiviteAnnexe.SelectedIndex & "," & _
RbDispositionStands.SelectedIndex & "," & _
RbEspacePaneautage.SelectedIndex & "," & _
RbEtatCircuitDebut.SelectedIndex & "," & _
RbEtatCircuitFin.SelectedIndex & "," & _
RbInscriptionSecretariat.SelectedIndex & "," & _
RbLargeurDeceleration.SelectedIndex & "," & _
RbOuvertureWelcome.SelectedIndex & "," & _
RbPointage.SelectedIndex & "," & _
RbRemiseDocumentDossart.SelectedIndex & "," & _
RbSecuriteCircuit.SelectedIndex & "," & _
RbSecuriteStand.SelectedIndex & "," & _
RbServiceSecoure.SelectedIndex & "," & _
RbTrouveResponsable.SelectedIndex & "," & _
RbTypeCircuit.SelectedIndex & "," & _
RbVarieteBoissons.SelectedIndex & "," & _
RbVarieteNouriture.SelectedIndex & ")"
Getdata.GetDatas(StrSql, "EnqueteEqt", ConnexionEqt)
End Sub
End Class |
Partager