This is a migrated thread and some comments may be shown as answers.

Multi-User (4 Users) Databinding Problem

1 Answer 104 Views
Scheduler and Reminder
This is a migrated thread and some comments may be shown as answers.
Top achievements
Rank 2
jeff357 asked on 22 Oct 2011, 04:16 PM
Database save problem - Binding error ?
Radscheduler is not much use if i can't load and save data...
on load the scheduler data is not present in User 1 to User 4.
When I save Data the appointment disappears but one good
thing if I drag a new appointment from say User 1 to user 3
that change shows when pulling up the appointment!
Could you please give me some assistance i have tried but
have failed.
I re-bound the SchedulerBindingDatasource, and that was
un successfull... Thank you for the wonderfull products!
(Any user to user help would also be of help)

Many Regards,
Jeffery R Link
Imports DevComponents.DotNetBar
Imports IntelliLock.Licensing
Imports Ionic.Zip
Imports System
Imports System.Data
Imports System.IO
Imports System.Windows.Forms
Imports Telerik.WinControls.UI
Imports Telerik.WinControls.UI.Scheduler.ICalendar
Imports Microsoft.VisualBasic
Imports Telerik.WinControls.UI.Scheduler.Dialogs
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Drawing
Imports System.Text
Imports Telerik.WinControls
Public Class Form1
    'main form loader...
    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If (IntelliLock.Licensing.EvaluationMonitor.CurrentLicense.LicenseStatus = IntelliLock.Licensing.LicenseStatus.NotChecked) Then
                Text = "Chariots PIM DB v1.3.3.5 X64 - Shareware Version - Licensed To: [Unregistered]"
            ElseIf (IntelliLock.Licensing.EvaluationMonitor.CurrentLicense.LicenseStatus = IntelliLock.Licensing.LicenseStatus.Licensed) Then
                Text = "Chariots PIM DB v1.3.3.5 X64" & "  " & "- Full Version" & "  " & "- Licensed To:" & "  " & "[" & EvaluationMonitor.CurrentLicense.LicenseInformation.GetByIndex(1).ToString() & " " & EvaluationMonitor.CurrentLicense.LicenseInformation.GetByIndex(2).ToString() & "]"
                Text = "Chariots PIM DB v1.3.3.5 X64 - Shareware Version - Licensed To: [Unregistered]"
            End If
        Catch ex As Exception
            MessageBoxEx.ButtonsDividerVisible = False
            MessageBoxEx.Show("An Error Occurred Reading The License File!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
            Me.RadCalendar1.FocusedDate = DateTime.Today
            Me.RadScheduler1.FocusedDate = DateTime.Today
            StyleManager1.ManagerStyle = eStyle.Office2007Blue
            Me.RadCalendar1.ThemeName = "Office2007blue"
            Me.RadSchedulerNavigator1.ThemeName = "Office2007blue"
            Me.RadScheduler1.ThemeName = "Office2007blue"
            Me.RadStatusStrip1.ThemeName = "Office2007blue"
            Me.RadSchedulerReminder1.ThemeName = "Office2007blue"
            Me.RadDesktopAlert1.ThemeName = "Office2007blue"
            Me.RadButton1.ThemeName = "Office2007blue"
            Me.RadButton2.ThemeName = "Office2007blue"
            Me.RadPanel1.ThemeName = "Office2007blue"
            Me.RadLabel1.ThemeName = "Office2007blue"
            Me.ddTimeZones.ThemeName = "Office2007blue"
            Me.RadLabelElement3.Text = "Office2007blue"
            Me.RadLabelElement1.Text = DateTime.Today
            RibbonBar1.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
            RadScheduler1.ActiveViewType = SchedulerViewType.Month
            TryCast(RadScheduler1.ActiveView, SchedulerMonthView).WeekCount = 4
            Me.RadSchedulerNavigator1.SchedulerNavigatorElement.TimeZonesDropDown.SelectedValue = New SchedulerTimeZone(TimeZone.CurrentTimeZone)
            Dim colors() As Color = {Color.Transparent, Color.Transparent, Color.Transparent, Color.Transparent}
            Dim names() As String = {"User 1", "User 2", "User 3", "User 4"}
            For i As Integer = 0 To names.Length - 1
                Dim resource As New Telerik.WinControls.UI.Resource()
                resource.Id = New EventId(i)
                resource.Name = names(i)
                resource.Color = colors(i)
                'resource.Image = Me.imageList1.Images(i)
            Next i
            Me.RadScheduler1.GroupType = GroupType.Resource
            Me.RadScheduler1.ActiveView.ResourcesPerView = 2
        Catch ex As Exception
            MessageBoxEx.ButtonsDividerVisible = False
            MessageBoxEx.Show("An Error Occurred Loading the Database(s)!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

1 Answer, 1 is accepted

Sort by
Ivan Todorov
Telerik team
answered on 24 Oct 2011, 11:02 AM
Hello Jeff,

Thank you for writing.

I have investigated the code you have posted, however, I cannot identify the exact issues in it since there is no actual binding demonstrated in your snippet. Again, I would kindly ask you to open a new support ticket which describes the problems you are experiencing and send us a sample project which demonstrates the full source code of your approach. This will let me get familiar with your case and provide you with adequate support.

Meanwhile, you can check the Data Binding Walkthrough help article which explains data biding of RadScheduler step-by-step. You can also refer to our Data Binding example in our Demo Application.

Thank you for your understanding. Looking forward to hearing from you.

Kind regards,
Ivan Todorov
the Telerik team

Q2’11 SP1 of RadControls for WinForms is available for download (see what's new); also available is the Q3'11 Roadmap for Telerik Windows Forms controls.

Scheduler and Reminder
Asked by
Top achievements
Rank 2
Answers by
Ivan Todorov
Telerik team
Share this question