populate event calendar 1

[waely]

Hi,
I'm trying to populate a calendar with events stored in access db. I'm using vb.net and my date format is 00/00/0000. I don't need to add or edit events; I only want to display those events in my calendar.

your tips are highly appreciated and thanks in advace for you help.

 

[shaddow]

You could use this

<asp:Calendar id=&quot;Calendar1&quot; runat=&quot;server&quot; OnDayRender=&quot;MyDayRender&quot;></asp:Calendar>


with the event

    Sub MyDayRender(ByVal source As Object, ByVal e As DayRenderEventArgs)
        Dim x As New Table()
        Dim i As Integer
        For i = 1 To 3
            Dim y As New TableRow()
            Dim z As New TableCell()
            z.Text = &quot;Event &quot; & i
            y.Cells.Add(z)
            x.Rows.Add(y)
        Next
        e.Cell.Controls.Add(x)
    End Sub

Here you could query database for what you want
I've used a simple table with 3 rows.

________
George, M

 

[waely]

thanks george, I use the following codes to dislplay the data in datagrid

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0; data source=" & Server.MapPath("croc.mdb&quot
Dim strSQL As String = "select * from concerts order by date"

Dim Conn As New OleDbConnection(strConn)
Dim Cmd As New OleDbCommand(strSQL, Conn)
Conn.Open()
DataGrid1.DataSource = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)DataGrid1.DataBind()

so where do I place the query and connection strings?
thanks so much for your help

 

[shaddow]

Ah you using DataGrid? You want to display in DataGrid?

________
George, M

 

[waely]

in the mean time I display the information in datagrid for myself but for my visitores i want to display the data in a calendar.

thanks

 

[shaddow]

Use the code i posted with this event function.

    Sub MyDayRender(ByVal source As Object, ByVal e As DayRenderEventArgs)
        Dim x As New Table()
        Dim oCon As OleDbConnection
        Dim oComm As OleDbCommand
        Dim strMap As String
        Dim strSql As String
        Dim strCon As String
        Dim ident As Integer
        strMap = Server.MapPath("croc.mdb")
        strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMap
        oCon = New OleDbConnection(strCon)
        oCon.Open()
        strSql = "select * from concerts where date=#" & e.Day.Date & "# order by date"
        oComm = New OleDbCommand(strSql, oCon)
        Dim DR As OleDbDataReader = oComm.ExecuteReader()
        Dim i As Integer = 1
        While (DR.Read())
            Dim y As New TableRow()
            Dim z As New TableCell()
            z.Text = &quot;<b>Event &quot; & i & &quot;</b>: &quot; & DR.Item(&quot;Eventname&quot;)
            y.Cells.Add(z)
            x.Rows.Add(y)
            i += 1
        End While
        oCon.Close()
        e.Cell.Controls.Add(x)
    End Sub

________
George, M

 

[waely]

thanks George........... you're the man

 

[laic]

Does anyone know how to set the Calendar control's cell to a fixed width and height?? When adding a label, image or literal control to the cell, the height and width changed, which making the calender cell wider in width and length.
This has givning me a big headache.

If anyone knows how to solve this problem, please let me know.

Much is appreaciated.
Laic