Solved

Need help dynamically adding columns to a dataset's datatable, for export to xml

Posted on 2008-10-01
2
562 Views
Last Modified: 2008-10-01
I am pulling data from the company database.  The addresses are then geo-coded via the google geocoding service.
Since my dataset does not contain lat and long columns, i am trying to add them through code.  I am also removing rows where the LatLong could not be returned.

HOWEVER I find that the XML file does not contain the fields i have added. Please help!
Public Function DataSetToXML(ByVal oDS As DataSet) As DataSet
 
 
 

        '*Add columns to the datatable if they do not already exist

        If Not ColumnExists(oDS.Tables(0), "ProjectLat") Then

            'Doesnt exist, add the column

            oDS.Tables(0).Columns.Add(New Data.DataColumn("ProjectLat", Type.GetType("System.Decimal")))

            oDS.Tables(0).AcceptChanges()

        End If
 

        If Not ColumnExists(oDS.Tables(0), "ProjectLong") Then

            'Doesnt exist, add the column

            oDS.Tables(0).Columns.Add(New Data.DataColumn("ProjectLong", Type.GetType("System.Decimal")))

            oDS.Tables(0).AcceptChanges()

        End If
 
 

        'For Each orow As DataRow In oDS.Tables(0).Rows

        Dim i As Integer

        For i = oDS.Tables(0).Rows.Count - 1 To 0 Step -1
 
 

            Dim oitem As New GoogleSkunkWorksData.PCLSite

            Dim strPointCoOrd As String = ""
 

            With oitem

                .ProjectAddress1 = objDALHelper.NothingIfNull(oDS.Tables(0).Rows(i).Item("Address 1"))

                .ProjectAddress2 = objDALHelper.NothingIfNull(oDS.Tables(0).Rows(i).Item("Address 2"))

                .ProjectAddress3 = objDALHelper.NothingIfNull(oDS.Tables(0).Rows(i).Item("Address 3"))

                .ProjectCity = objDALHelper.NothingIfNull(oDS.Tables(0).Rows(i).Item("City"))

                .ProjectCountry = objDALHelper.NothingIfNull(oDS.Tables(0).Rows(i).Item("Country"))

                'Grab the geocoded address

                strPointCoOrd = GeoCode(oDS.Tables(0).Rows(i))
 
 

                Dim arrNewSplit As String() = Nothing

                arrNewSplit = strPointCoOrd.Split(",")

                Dim bSuccess As Boolean = True

                For Each s As String In arrNewSplit

                    If Not s <> "" Then

                        'Next iteration, the address cant be geo-coded!

                        'remove the row from the Dataset

                        oDS.Tables(0).Rows.RemoveAt(i)

                        oDS.Tables(0).AcceptChanges()

                        

                        bSuccess = False

                    Else

                        .ProjectLat = CDbl(arrNewSplit(0))

                        .ProjectLong = CDbl(arrNewSplit(1))

                    End If

                Next
 

              

            End With

        Next

        oDS.Tables(0).AcceptChanges()

        oDS.Tables(0).WriteXml(XMLDataPath, XmlWriteMode.IgnoreSchema)

        

        Return oDS

Open in new window

0
Comment
Question by:peterdidow
2 Comments
 
LVL 47

Accepted Solution

by:
Wayne Taylor (webtubbs) earned 500 total points
ID: 22619132
When writing a Dataset to XML, any columns which contain no data are ignored. When you are looping through the rows, you will need to add something (possibly an empty string) to the columns for them to be exported to the XML file.

Wayne
0
 

Author Comment

by:peterdidow
ID: 22619410
Thanks webtubbs!

it turned out that I DID have null values....for ALL of the co-ords.
In case your curious, here is what I had:

For Each s As String In arrNewSplit
                    If Not s <> "" Then
                        'Next iteration, the address cant be geo-coded!
                        'remove the row from the Dataset
                        oDS.Tables(0).Rows.RemoveAt(i)
                        oDS.Tables(0).AcceptChanges()
                       
                        bSuccess = False
                    Else
                        .ProjectLat = CDbl(arrNewSplit(0))
                        .ProjectLong = CDbl(arrNewSplit(1))
                    End If
                Next
I CHANGED TO:
For Each s As String In arrNewSplit
                    If Not s <> "" Then
                        'Next iteration, the address cant be geo-coded!
                        'remove the row from the Dataset
                        oDS.Tables(0).Rows.RemoveAt(i)
                        oDS.Tables(0).AcceptChanges()
                       
                        bSuccess = False
                    Else

                        oDS.Tables(0).Rows(i).Item("ProjectLat") = CType(arrNewSplit(0), Double)
                        .ProjectLat = objDALHelper.NothingIfNull(oDS.Tables(0).Rows(i).Item("ProjectLat"))

                        oDS.Tables(0).Rows(i).Item("ProjectLong") = CType(arrNewSplit(1), Double)
                        .ProjectLong = CType(arrNewSplit(1), Double)

                    End If
                Next

So thanks, i found the solution shortly after your comment!
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Turn on intranet settings 1 42
Close form "before" open 3 28
Get Client IP on RDS - VB.NET 15 30
C# guarantee sql connection close 6 32
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
Today I had a very interesting conundrum that had to get solved quickly. Needless to say, it wasn't resolved quickly because when we needed it we were very rushed, but as soon as the conference call was over and I took a step back I saw the correct …
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
In this video I am going to show you how to back up and restore Office 365 mailboxes using CodeTwo Backup for Office 365. Learn more about the tool used in this video here: http://www.codetwo.com/backup-for-office-365/ (http://www.codetwo.com/ba…

863 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

18 Experts available now in Live!

Get 1:1 Help Now