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

Multi-User (4 Users) Databinding Problem

1 Answer 64 Views
Scheduler and Reminder
This is a migrated thread and some comments may be shown as answers.
jeff357
Top achievements
Rank 2
jeff357 asked on 22 Oct 2011, 04:16 PM
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

1 Answer, 1 is accepted

Sort by
0
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.

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