hola, disculpen mi ingles, hablo espaol....
no logro que mi DayPilotScheduler1 muestre los eventos..... les adjunto el codigo para que me indiquen que estoy haciendo MAL.
Code HTML--------------------------------------------------------
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Grilla.aspx.vb" Inherits="Grilla" %>
<%@ Register Assembly="DayPilot" Namespace="DayPilot.Web.Ui" TagPrefix="DayPilot" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Pgina sin ttulo</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<DayPilot:DayPilotScheduler
ID="DayPilotScheduler1"
runat="server"
DataStartField="fechadesde"
DataEndField="fechahasta"
DataTextField="idalquiler"
DataValueField="idc"
DataResourceField="idc"
CellGroupBy="Month"
CellDuration="1440"
StartDate="2010-08-01"
Days="31"
Width="100%"
EventHeight="20"
HeaderFontSize="8pt"
EventFontSize="8pt"
EventMoveHandling="CallBack" BackColor="#FFFFD5" BorderColor="#000000" CellSelectColor="#316AC5" CssClass="" DurationBarColor="Blue" EventBackColor="#FFFFFF" EventBorderColor="#000000" HeaderFontColor="0, 0, 0" HeaderHeight="17" HourBorderColor="#EAD098" HourNameBackColor="#ECE9D8" HourNameBorderColor="#ACA899" NonBusinessBackColor="#FF8080" ScrollX="0" ScrollY="0" WeekStarts="Auto" Layout="Auto" UseEventBoxes="ShortEventsOnly" ViewType="Resources" ContextMenuID="nacho">
</DayPilot:DayPilotScheduler>
<asp:Button ID="Button1" runat="server" Text="Button" /></div>
</form>
</body>
</html>
Code aspx.net------------------------------------------------------
Partial Class Grilla
Inherits System.Web.UI.Page
Public CN As Data.OleDb.OleDbConnection
Public CM As Data.OleDb.OleDbCommand
Public DR As Data.OleDb.OleDbDataReader
Public SQL As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If (Not IsPostBack) Then
'CADENA de CONEXION--------------------
Dim STRconexion As String
STRconexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("alquileres.mdb") + ";Persist Security Info=False"
CN = New Data.OleDb.OleDbConnection(STRconexion)
CN.Open()
'--------------------------------------
loadResources()
DayPilotScheduler1.DataSource = dbGetEvents(DayPilotScheduler1.StartDate, DayPilotScheduler1.Days)
'DayPilotScheduler1.DataSource = dbGetEvents("03/08/2010", "2")
DayPilotScheduler1.DataBind()
Dim mayFirst As New DateTime(2010, 8, 1)
DayPilotScheduler1.SetScrollX(DateTime.Today)
End If
End Sub
Protected Sub DayPilotScheduler1_EventMove(ByVal sender As Object, ByVal e As DayPilot.Web.Ui.Events.EventMoveEventArgs) Handles DayPilotScheduler1.EventMove
Dim id As String = e.Value
Dim start As DateTime = e.NewStart
Dim [end] As DateTime = e.NewEnd
Dim resource As String = e.NewResource
DayPilotScheduler1.DataSource = dbGetEvents(DayPilotScheduler1.StartDate, DayPilotScheduler1.Days)
DayPilotScheduler1.DataBind()
DayPilotScheduler1.Update()
End Sub
Private Function dbGetEvents(ByVal start As DateTime, ByVal days As Integer) As Data.DataTable
SQL = "select [idalquiler], [idcabaa] as idc, [fechadesde], [fechahasta] from alquileres where idcabaa=11 and fechadesde between #08/01/2010# and #08/31/2010#"
Dim da As New Data.OleDb.OleDbDataAdapter(SQL, CN)
Dim dt As New Data.DataTable()
da.Fill(dt)
Return dt
End Function
Private Sub loadResources()
'Aca llenamos la columna debajo de DEMO con la Habitaciones.....
Dim da As New Data.OleDb.OleDbDataAdapter("SELECT [idcabaa] as IDC, [idsocio] as IDS FROM [alquileres] where idcabaa=11 and fechadesde between #08/01/2010# and #08/31/2010#", CN)
Dim dt As New Data.DataTable()
da.Fill(dt)
For Each r As Data.DataRow In dt.Rows
Dim IDC As Integer = Convert.ToInt32(r("idc"))
Dim IdS As Integer = Convert.ToInt32(r("ids"))
DayPilotScheduler1.Resources.Add(IDC, IdS)
Next
End Sub
End Class
------------------------------------------------------------------------------------------------------
Resultado
DEMO agosto 2010
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
11
11
cualquier comentario es bienvenido!!!
saludos
y muchas gracias