Discussion :

[ericjean514]

Bonjour,

Je veux développer un calendrier. Quelqu'un connait une référence vers du code.

Je veux avoir la possibilité de faire un multiselect dans le calendrier et d'en faire la saufgarde dans une table.

Merci

[ericjean514]

Voilà,
un exemple...c'est plus simple que je croyais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
 
    Protected datesArray As ArrayList
    Dim ConnString As String = "xxxxxxx connection string xxxxxxxxx"
    Sub Page_Load()
        If ViewState("selectedDates") Is Nothing Then
            datesArray = New ArrayList()
            DisplaySelectedDatesFromDB()
        Else
            datesArray = CType(ViewState("selectedDates"), ArrayList)
        End If
    End Sub
 
    Sub DisplaySelectedDates()
        Calendar1.SelectedDates.Clear()
        Dim i As Integer
        For i = 0 To datesArray.Count - 1
            Calendar1.SelectedDates.Add(datesArray(i))
        Next
    End Sub  
 
    Sub DisplaySelectedDatesFromDB()
        Calendar1.SelectedDates.Clear()
        Dim i As Integer
 
 
        Dim MyConnection As SqlConnection
        Dim myr As SqlDataReader
        MyConnection = New SqlConnection(ConnString )
        Dim SELECTCmd As String = "SELECT * FROM dbo.[Tablename]"
        Dim MyCommand As SqlCommand = New SqlCommand(SELECTCmd, MyConnection)
        MyConnection.Open()
        myr = MyCommand.ExecuteReader
        While myr.Read()
            Calendar1.SelectedDates.Add(Convert.ToDateTime(myr("fieldname")))
            datesArray.Add(Convert.ToDateTime(myr("fieldname")))
        End While
        MyConnection.Close()
    End Sub
 
 
    Sub Calendar1_SelectionChanged(sender As Object, e As EventArgs)
        Dim index As Integer = -1
        index = datesArray.IndexOf(Calendar1.SelectedDate)
        If index >= 0 Then
            datesArray.RemoveAt(index)
        Else
            datesArray.Add(Calendar1.SelectedDate)
        End If
        ViewState("selectedDates") = datesArray
        DisplaySelectedDates()
    End Sub
 
    Sub Button1_Click(sender As Object, e As EventArgs)
        Dim dt As DateTime
        Dim s As String = ""
        Dim MyConnection As SqlConnection
        Dim MyCommand As SqlCommand
        Dim InsertCmd As String
        Dim DELETECmd As String
        MyConnection = New SqlConnection(ConnString)
 
        DELETECmd = "DELETE FROM [dbo].[tablename] WHERE ID=482"
        MyCommand = New SqlCommand(DELETECmd, MyConnection)
        MyCommand.Connection.Open()
        Try
            MyCommand.ExecuteNonQuery()
        Catch Exp As SqlException
 
        Finally
            MyConnection.Close()
        End Try        
 
        For Each dt In Calendar1.SelectedDates
            s &= dt.ToString & "<br>"
            InsertCmd = "INSERT INTO [dbo].[tablename] (ID,dtCalender) Values(482,'" & dt.ToString & "')"
            MyCommand = New SqlCommand(InsertCmd, MyConnection)
            MyCommand.Connection.Open()
            Try
                MyCommand.ExecuteNonQuery()
            Catch Exp As SqlException
 
            Finally
                MyConnection.Close()
            End Try
        Next
        labelOutput.Text = s
    End Sub
 
 
 
...
 
 
        <asp:Calendar 
            OnSelectionChanged="Calendar1_SelectionChanged"
            ID="Calendar1" 
            runat="server" 
            BackColor="White" 
            BorderStyle="Solid" 
            CellSpacing="1" 
            Font-Names="Verdana" 
            Font-Size="9pt" 
            ForeColor="Black"
            Height="250px" 
            NextPrevFormat=FullMonth
            Width="330px">
 
            <SelectedDayStyle BackColor="#5A8C01" ForeColor="White" />
            <TodayDayStyle BackColor="#999999" ForeColor="White" />
            <DayStyle BackColor="#D4DDBA" />
            <OtherMonthDayStyle ForeColor="#999999" />
            <NextPrevStyle Font-Bold="True" Font-Size="8pt" ForeColor="White" />
            <DayHeaderStyle Font-Bold="True" Font-Size="8pt" ForeColor="#333333" Height="8pt" />
            <TitleStyle BackColor="#5A8C01" Font-Bold="True" Font-Size="12pt" ForeColor="White" Height="12pt" />
 
        </asp:Calendar>