Multi-User (4 Users) Databinding Problem

2 posts, 0 answers
  1. jeff357
    jeff357 avatar
    27 posts
    Member since:
    Apr 2008

    Posted 22 Oct 2011 Link to this post

    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

  2. Ivan Todorov
    Ivan Todorov avatar
    688 posts

    Posted 24 Oct 2011 Link to this post

    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.

Back to Top