Solved

How do I read my SQL dataset and update the Dotnetbar Schedule control ?

Posted on 2010-11-09
8
1,380 Views
Last Modified: 2012-05-10
Hi I can read in an xml file and update Devcomponents schedule control with below code., but how can I do the same with my SQL Dataset as it does not seem to work.

XML code

Try
            If File.Exists(Application.StartupPath & "\Appointments.xml") Then
                Dim xml As New Xml.Reader(Application.StartupPath & "\Appointments.xml")
                For Each node As Xml.Node In xml.Root.Nodes
                    Dim appointment As New Appointment()

                    appointment.OwnerKey = node.Attributes("owner").Value
                    appointment.StartTime = node.Attributes("start").ValueDateTime
                    appointment.EndTime = node.Attributes("end").ValueDateTime
                    appointment.Tag = node.Attributes("preremind").ValueInt
                    appointment.Subject = node.Attributes("subject").Value
                    appointment.Description = node.Attributes("description").Value
                    appointment.Tooltip = appointment.Description
                    appointment.CategoryColor = node.Attributes("color").Value
                    appointment.TimeMarkedAs = node.Attributes("timemarker").Value
                    Me.CalendarView1.CalendarModel.Appointments.Add(appointment)
                Next

SQL CODE THAT IS NOT WORKING.

 Private Sub ButtonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem2.Click
        'Me.ScheduleTableAdapter.Fill(Me.Inspections_Schedule_DataSet.Schedule)
        Me.ScheduleTableAdapter.Fill(Inspections_Schedule_DataSet.Schedule)
        For Each dr As DataRow In Inspections_Schedule_DataSet.Schedule.Rows

            Dim appointment As New Appointment()

            appointment.StartTime = dr("starttime")
            appointment.EndTime = dr("endtime")
            appointment.OwnerKey = dr("owner")
            appointment.Tag = dr("tag")
            appointment.Subject = dr("subject")
            appointment.Description = dr("description")
            appointment.CategoryColor = dr("categorycolor")
            appointment.Tooltip = appointment.Description

            Me.CalendarView1.CalendarModel.Appointments.Add(appointment)



        Next


        MessageBox.Show("data import finished!")
    End Sub

The control is availible for trial download from here  http://www.devcomponents.com/dotnetbar/download.aspx
 
0
Comment
Question by:rhill52
  • 5
  • 3
8 Comments
 
LVL 83

Expert Comment

by:CodeCruiser
ID: 34100291
Are all the values same in SQL and XML? You have missed one line in SQL code which may make a difference

appointment.TimeMarkedAs = node.Attributes("timemarker").Value
0
 

Author Comment

by:rhill52
ID: 34100385
Hi Code Cruiser, looking at the data in the xml file created it does not seem to matter if the timemarker value is there or not. am I looping through the rows correctly ?
0
 
LVL 83

Expert Comment

by:CodeCruiser
ID: 34100428
Yes loop seems fine. Step through the code to see whether its executing or not (The dataset may be empty!).
0
 

Author Comment

by:rhill52
ID: 34100786
all seems fine when steping through the code, the dataset is loaded and the results change as expected,  I suspect it is this line that is causing the issue but I am not sure why.
Me.CalendarView1.CalendarModel.Appointments.Add(appointment)

0
Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

 
LVL 83

Expert Comment

by:CodeCruiser
ID: 34100961
Enclose it in try catch block and see if you get any errors.
0
 

Author Comment

by:rhill52
ID: 34101054
still do not see any problems, think it might be best to try the sample and see if you can reproduce ?
0
 

Accepted Solution

by:
rhill52 earned 0 total points
ID: 34145066
The issue was down to extra spaces when trying to read appointment.OwnerKey = dr("owner")
from the dataset.

0
 

Author Closing Comment

by:rhill52
ID: 34182374
Found the issue myself
0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
powershell and sql server - alerting 7 77
Vb.net dynamic formulas in runtime 11 62
C# Single Form 8 28
Advice in Xamarin 21 57
Hi all, It is important and often overlooked to understand “Database properties”. Often we see questions about "log files" or "where is the database" and one of the easiest ways to get general information about your database is to use “Database p…
Ever needed a SQL 2008 Database replicated/mirrored/log shipped on another server but you can't take the downtime inflicted by initial snapshot or disconnect while T-logs are restored or mirror applied? You can use SQL Server Initialize from Backup…
Migrating to Microsoft Office 365 is becoming increasingly popular for organizations both large and small. If you have made the leap to Microsoft’s cloud platform, you know that you will need to create a corporate email signature for your Office 365…
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now