Untitled

Imports SqlToolBox
Imports System.Data.SqlClient
Imports System.Configuration

Module Module1

    Sub Main(ByVal sArgs() As String)

        Dim r As RSSFEEDS = New RSSFEEDS()

        Dim ds As DataSet = New DataSet()
        r.GetAll(ds)

        For Each dt In ds.Tables
            ' Table info
            Console.Write(dt.TableName)
            Console.WriteLine(" has " & dt.Rows.Count & " rows")
            Console.Write("Primary Key: ")
            For Each pk In dt.PrimaryKey
                Console.Write(pk.ColumnName)
            Next
            Console.WriteLine()

            ' Column Info
            For Each dc In dt.Columns
                Console.Write(dc.ColumnName & " ")
                Console.Write(dc.DataType.ToString & " ")
                Console.Write(dc.AllowDBNull & " ")
                Console.WriteLine(dc.Unique)
            Next
            Console.WriteLine()

            ' Data
            For Each dr In dt.Rows
                For Each dc In dt.Columns
                    Console.Write(dc.ColumnName & ":")
                    Console.WriteLine(dr.Item(dc))
                Next
            Next

        Next

        Console.ReadLine()
    End Sub
End Module