CodeXchange Monday, August 20, 2018
Home
What's it?
Download
Register
My Snippets
Add Snippet
Search
Faq
Contact Us
Sponsors

Website hosted by


Code Snippet Preview

Review the code snippet before inserting it on your project.

Snippet Metadata
Summary: Test Dataset for errors
Language: VB.NET
Author: Dwaine Wright
Author snippets RSS:
Culture: en-US
Bytes: 1810
Visual Studio 2005 Snippet:

Snippet Stats
Downloads: 0
Overall rating : 0
Average rating : Snippet rating

Snippet Preview
Code:
Public Shared Function TestDSForErrors(ByVal myDataSet As DataSet) As String
        'Shared function makes it REALLY useful for debugging from VS Immed Window!
        Dim SB As New Text.StringBuilder
        Dim DT As DataTable
        Dim DR As DataRow
        Dim DC As DataColumn
        Dim DRPos As Integer = 0
        ' Test for errors. If DataSet has errors, test each table.
        If myDataSet.HasErrors Then
            For Each DT In myDataSet.Tables
                ' If the table has errors, then print them.
                If DT.HasErrors Then
                    DRPos = 0
                    SB.Append("Testing DataTable " & DT.TableName & ":" & vbCrLf)
                    For Each DR In DT.Rows
                        If DR.HasErrors Then
                            SB.Append(vbTab & "Row # " & DRPos & " error:" & DR.RowError & vbCrLf)
                            For Each DC In DR.GetColumnsInError
                                SB.Append(vbTab & vbTab & DC.ColumnName & " = " & CStr(DR.Item(DC.ColumnName)) & vbCrLf)
                            Next
                            'output row in error
                            SB.Append(vbTab & "Row data:" & PHSQLHelper.RowToString(DR) & vbCrLf)
                            SB.Append(vbTab & "Done with Row error:" & DR.RowError & vbCrLf)
                        End If
                        DRPos += 1
                    Next
                    SB.Append("Done Testing DataTable " & DT.TableName & ":" & vbCrLf & vbCrLf)
                Else
                    SB.Append("DataTable " & DT.TableName & " has no errors." & vbCrLf)
                End If
            Next
        Else
            SB.Append("No errors detected in " & myDataSet.DataSetName & vbCrLf)
        End If
        Return SB.ToString
    End Function

Snippet Comments
Comments:
No comments for this snippet

Other snippets that may interest you..
Related Snippets
TDT - GridPage - Page_Init (C#)
CustomValitaor (C#)
(C#)
Get the file extension from a file path or file name (VB.NET)
grab record from db and subtracts it from variable (VB.NET)



Copyright ©2009-2018 CodeXchange. Server version 1.0.3720.32855 Client Version 0.9.0.0

With from Barcelona

Most Helpful members
These are the members who have received the most points for their helpful samples
Zepho Zep
Robert Wagner
Galen Taylor

All time 'Hall of fame'
Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format (C#)
INI File Access (VB.NET)
Read XML from string into DataSet (C#)
Create Manifest File for your Application (VB.NET)
Round function to avoid banker's rounding (VB.NET)
Get Short and Long Path Names (VB.NET)
Sending Mail through authenticated SMTP server (C#)
One Way Hash for strings (C#)
Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format (C#)
How do I load an image from a URI address? (VB.NET)
Use our easy to use Visual Studio.NET addin client and start sharing code snippets with the CodeXchange community!
Refreshed: Monday, August 20, 2018