DevExpress Scheduler, Keine Appointmens angezeigt

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von hans im glück.

    DevExpress Scheduler, Keine Appointmens angezeigt

    Servus zusammen,

    ich bin gerade dabei ein kleines Projekt umzusetzen. Und zwar möchte ich so eine Art Terminplaner programmieren. Umsetzen möchte ich dies gern mit einer SQLite-Datenbank in Verbindung mit den DevExpress Scheduler-Control.
    Soweit so gut funzt es schon mal. Kann einen Termin erzeugen. Dieser wird mir auch in die Datenbank geschrieben. Allerdings, wenn ich das Programm neu starte, werden mir die Daten nicht im Scheduler-Control angezeigt. Ins DataSet werden die Datensätze geschrieben, soweit ich da sehen kann.

    Ich versuche das Problem schon seit Tagen zu ergründen. Auch das "studieren" der Dokumentation brachte keinen Erfolg. Ich bin mit meinem Latain am Ende.
    Vielleicht hat jemand von Euch eine Idee, wie oder was ich umstetzen oder umstellen sollte, dass es funzt.

    Möchte mich schon mal bei Euch für Eure Unterstützung bedanken.

    Hier der Quellcode, den ich anhand der Beispiele zusammen gestrickt habe.

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.Text
    3. Imports DevExpress.XtraScheduler
    4. Imports System.Data.SQLite
    6. Partial Public Class Form1
    7. Inherits DevExpress.XtraEditors.XtraForm
    9. Shared Sub New()
    10. DevExpress.UserSkins.BonusSkins.Register()
    11. DevExpress.Skins.SkinManager.EnableFormSkins()
    12. End Sub
    14. Public Sub New()
    15. InitializeComponent()
    17. ' Subscribe to Storage events required for updating the data source.
    18. AddHandler Me.SchedulerStorage1.AppointmentsInserted, AddressOf OnApptChangedInsertedDeleted
    19. AddHandler Me.SchedulerStorage1.AppointmentsChanged, AddressOf OnApptChangedInsertedDeleted
    20. AddHandler Me.SchedulerStorage1.AppointmentsDeleted, AddressOf OnApptChangedInsertedDeleted
    22. '// Uncomment the code below to demonstrate how to store and retrieve data in the appointment custom field.
    23. '// Do not forget to uncomment event handlers.
    24. 'this.schedulerControl1.InitAppointmentDisplayText += schedulerControl1_InitAppointmentDisplayText;
    25. 'this.schedulerControl1.InitNewAppointment += schedulerControl1_InitNewAppointment;
    27. End Sub
    29. ' Modify this string if required to connect to your database.
    30. Private Const SchedulerDBConnection As String = "Data Source=Datenbank.db"
    32. Private DXSchedulerDataset As DataSet
    33. Private AppointmentDataAdapter As SQLiteDataAdapter
    34. Private ResourceDataAdapter As SQLiteDataAdapter
    35. Private DXSchedulerConn As SQLiteConnection
    37. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    39. Me.SchedulerStorage1.Appointments.ResourceSharing = True
    40. Me.SchedulerControl1.GroupType = SchedulerGroupType.Resource
    41. Me.SchedulerControl1.Start = DateTime.Today
    42. Me.SchedulerStorage1.Appointments.CommitIdToDataSource = False
    43. Me.SchedulerControl1.ActiveViewType = SchedulerViewType.Week
    45. DXSchedulerDataset = New DataSet()
    46. Dim selectAppointments As String = "SELECT * FROM Appointments"
    47. Dim selectResources As String = "SELECT * FROM resources"
    49. DXSchedulerConn = New SQLiteConnection(SchedulerDBConnection)
    50. DXSchedulerConn.Open()
    52. AppointmentDataAdapter = New SQLiteDataAdapter(selectAppointments, DXSchedulerConn)
    53. ' Subscribe to RowUpdated event to retrieve identity value for an inserted row.
    54. AddHandler AppointmentDataAdapter.RowUpdated, AddressOf AppointmentDataAdapter_RowUpdated
    55. AppointmentDataAdapter.Fill(DXSchedulerDataset, "Appointments")
    57. ResourceDataAdapter = New SQLiteDataAdapter(selectResources, DXSchedulerConn)
    58. ResourceDataAdapter.Fill(DXSchedulerDataset, "Resources")
    60. ' Specify mappings.
    61. MapAppointmentData()
    62. MapResourceData()
    64. ' Generate commands using CommandBuilder.
    65. Dim cmdBuilder As New SQLiteCommandBuilder(AppointmentDataAdapter)
    66. AppointmentDataAdapter.InsertCommand = cmdBuilder.GetInsertCommand()
    67. AppointmentDataAdapter.DeleteCommand = cmdBuilder.GetDeleteCommand()
    68. AppointmentDataAdapter.UpdateCommand = cmdBuilder.GetUpdateCommand()
    70. DXSchedulerConn.Close()
    72. Me.SchedulerStorage1.Appointments.DataSource = DXSchedulerDataset
    73. Me.SchedulerStorage1.Appointments.DataMember = "Appointments"
    74. Me.SchedulerStorage1.Resources.DataSource = DXSchedulerDataset
    75. Me.SchedulerStorage1.Resources.DataMember = "Resources"
    77. SchedulerControl1.Storage = SchedulerStorage1
    79. End Sub
    81. Private Sub MapAppointmentData()
    82. Me.SchedulerStorage1.Appointments.Mappings.AllDay = "AllDay"
    83. Me.SchedulerStorage1.Appointments.Mappings.Description = "Description"
    84. ' Required mapping.
    85. Me.SchedulerStorage1.Appointments.Mappings.End = "EndDate"
    86. Me.SchedulerStorage1.Appointments.Mappings.Label = "Label"
    87. Me.SchedulerStorage1.Appointments.Mappings.Location = "Location"
    88. Me.SchedulerStorage1.Appointments.Mappings.RecurrenceInfo = "RecurrenceInfo"
    89. Me.SchedulerStorage1.Appointments.Mappings.ReminderInfo = "ReminderInfo"
    90. ' Required mapping.
    91. Me.SchedulerStorage1.Appointments.Mappings.Start = "StartDate"
    92. Me.SchedulerStorage1.Appointments.Mappings.Status = "Status"
    93. Me.SchedulerStorage1.Appointments.Mappings.Subject = "Subject"
    94. Me.SchedulerStorage1.Appointments.Mappings.Type = "Type"
    95. Me.SchedulerStorage1.Appointments.Mappings.ResourceId = "ResourceIDs"
    96. Me.SchedulerStorage1.Appointments.CustomFieldMappings.Add(New AppointmentCustomFieldMapping("MyNote", "CustomField1"))
    97. End Sub
    99. Private Sub MapResourceData()
    100. Me.SchedulerStorage1.Resources.Mappings.Id = "ResourceID"
    101. Me.SchedulerStorage1.Resources.Mappings.Caption = "ResourceName"
    102. End Sub
    104. ' Retrieve identity value for an inserted appointment.
    105. Private Sub AppointmentDataAdapter_RowUpdated(ByVal sender As Object, ByVal e As Common.RowUpdatedEventArgs)
    106. If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then
    107. Dim id As Integer = 0
    108. Using cmd As New SQLiteCommand("SELECT last_insert_rowid()", DXSchedulerConn)
    109. id = Convert.ToInt32(cmd.ExecuteScalar())
    110. End Using
    111. e.Row("UniqueID") = id
    112. End If
    113. End Sub
    115. ' Store modified data in the database
    116. Private Sub OnApptChangedInsertedDeleted(ByVal sender As Object, ByVal e As PersistentObjectsEventArgs)
    117. AppointmentDataAdapter.Update(DXSchedulerDataset.Tables("Appointments"))
    118. DXSchedulerDataset.AcceptChanges()
    119. End Sub
    121. '// Uncomment the code below to demonstrate how to store and retrieve data in the appointment custom field.
    122. '// Do not forget to uncomment event subscription code in the form constructor.
    124. '// Store a custom value in the newly created appointment.
    125. 'private void schedulerControl1_InitNewAppointment(object sender, AppointmentEventArgs e)
    126. '{
    127. ' e.Appointment.CustomFields["MyNote"] = String.Format("Created on {0:d} at {0:t} \n", DateTime.Now);
    128. '}
    130. '// Modify default appointment text to display a custom value.
    131. 'private void schedulerControl1_InitAppointmentDisplayText(object sender, AppointmentDisplayTextEventArgs e)
    132. '{
    133. ' e.Text = (e.Appointment.CustomFields["MyNote"] is DBNull) ? String.Empty : (string)e.Appointment.CustomFields["MyNote"];
    134. '}
    136. End Class


    Vielen Dank für Eure Unterstützung.

    Gruß Zaunkonig

Facebook
Telefonspende