Protected Sub btnEnregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnregistrer.Click lblAvertissement.Text = "" 'If String.IsNullOrEmpty(txtDateDebut.Text) Then ' Dim strScript As String = "Alert('Vous devez spécidier une date de début.');" ' ScriptManager.RegisterStartupScript(Me.btnEnregistrer, Me.btnEnregistrer.GetType(), "alert", strScript, True) ' Exit Sub 'End If 'If String.IsNullOrEmpty(txtDateFin.Text) Then ' Dim strScript As String = "Alert('Vous devez spécidier une date de fin.');" ' ScriptManager.RegisterStartupScript(Me.btnEnregistrer, Me.btnEnregistrer.GetType(), "alert", strScript, True) ' Exit Sub 'End If Dim sStartDate() As String = txtDateDebut.Text.Substring(0, 10).Split("/") Dim sEndDate() As String = txtDateFin.Text.Substring(0, 10).Split("/") Dim dateDebut As DateTime = New DateTime(Integer.Parse(sStartDate(2)), Integer.Parse(sStartDate(1)), Integer.Parse(sStartDate(0))) Dim dateFin As DateTime = New DateTime(Integer.Parse(sEndDate(2)), Integer.Parse(sEndDate(1)), Integer.Parse(sEndDate(0))) If DateTime.Compare(dateDebut, dateFin) >= 0 Then lblAvertissement.Text = "La date de fin ne doit pas être inférieure à la date de début." Exit Sub End If lblAvertissement.Text = dateDebut.ToString("dd/MM/yyyy") & " - " & dateFin.ToString("dd/MM/yyyy") If ddlSemaines.SelectedItem.Value = "-1" Then If verifDate(dateDebut, dateFin) Then Dim sql As String = "" sql = " INSERT INTO [dbo].[ARRIVAGES] " sql &= " ([ARR_DATE_DEBUT], [ARR_DATE_FIN], [ARR_CONTENT], [ARR_INDEX]) " sql &= " VALUES " sql &= " ( convert(datetime, '" & dateDebut.ToString("dd/MM/yyyy") & "', 103) " sql &= " , convert(datetime, '" & dateFin.ToString("dd/MM/yyyy") & "', 103) " sql &= " , '" & fckCreation.Value.Replace("'", "''").Trim() & "' " sql &= " ," & ddlPosition.SelectedValue & ") " Try Donnees.insere(sql) chargeSemaine() Catch ex As Exception lblAvertissement.Text = ex.Message End Try 'lblAvertissement.Text &= "-[" & sql & "]-" Else lblAvertissement.Text = "Attention chevauchement avec une semaine existante, ENREGISTREMENT INTERDIT." End If Else If compteEnregistrement() = 0 Then Dim sql As String = "" sql = " INSERT INTO [dbo].[ARRIVAGES] " sql &= " ([ARR_DATE_DEBUT], [ARR_DATE_FIN], [ARR_CONTENT], [ARR_INDEX]) " sql &= " VALUES " sql &= " ( convert(datetime, '" & dateDebut & "', 103) " sql &= " , convert(datetime, '" & dateFin & "', 103) " sql &= " , '" & fckCreation.Value.Replace("'", "''").Trim() & "' " sql &= " ," & ddlPosition.SelectedValue & ") " 'lblAvertissement.Text &= "-[" & sql & "]-" Try Donnees.insere(sql) chargeSemaine() Catch ex As Exception lblAvertissement.Text = ex.Message End Try Else Dim sql As String = "" sql = " UPDATE [dbo].[ARRIVAGES] " sql &" SET [ARR_CONTENT] '" & fckCreation.Value.Replace("'", "''").Trim() & "' " sql &" WHERE ARR_DATE_DEBUT convert(datetime, '" & dateDebut & "', 103) " sql &" and ARR_DATE_FIN convert(datetime, '" & dateFin & "', 103) " sql &" and ARR_INDEX " & ddlPosition.SelectedValue 'lblAvertissement.Text &= "-[" & sql & "]-" Try Donnees.insere(sql) chargeSemaine() Catch ex As Exception lblAvertissement.Text = ex.Message End Try End If afficheArrivage() End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question