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

    Ivan,
    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
      
            Try
      
                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() & "]"
      
                Else
      
                    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
      
            Try
      
                Me.Sheet1TableAdapter.Fill(Me.DataSet2.Sheet1)
      
                Me.AppointmentsResourcesTableAdapter.Fill(Me.SchedulerDataSet.AppointmentsResources)
      
                Me.ResourcesTableAdapter.Fill(Me.SchedulerDataSet.Resources)
      
                Me.AppointmentsTableAdapter.Fill(Me.SchedulerDataSet.Appointments)
      
                RadSchedulerReminder1.StartReminder()
      
                Me.RadCalendar1.FocusedDate = DateTime.Today
      
                Me.RadScheduler1.FocusedDate = DateTime.Today
      
                Me.RadScheduler1.ActiveView.Equals(RadCalendar1.SelectedDate)
      
                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
      
                InitalizeTimeZones()
      
                RibbonBar1.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
      
                RadScheduler1.ActiveViewType = SchedulerViewType.Month
      
                TryCast(RadScheduler1.ActiveView, SchedulerMonthView).WeekCount = 4
      
                InitalizeTimeZones()
      
                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)
      
                    Me.RadScheduler1.Resources.Add(resource)
      
                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
    Admin
    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.

  3. UI for WinForms is Visual Studio 2017 Ready
Back to Top