' File: http://www.garlen.net/SampleCode/Console_SQL_SqlHelper_FillDataset_DAAB.vb.txt
' (re)written By: Dan Garlen 3/21/04
'
'   CREATE PROCEDURE dbo.GetCustomers
'      AS
'	Select * From Customers
'   RETURN 

' Must first install Data Access Application Block for .NET 
' 	See: "http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnbda/html/daab-rm.asp"
' Then Add Referance to"
' 	"C:\Program Files\Microsoft Application Blocks for .NET\Data Access v2\Code\VB\Microsoft.ApplicationBlocks.Data\bin\Microsoft.ApplicationBlocks.Data.dll"

Imports Microsoft.ApplicationBlocks.Data
imports System
imports System.data
imports sql = System.Data.SqlClient

public module MyModule
	sub Main
		Console_SQL_SqlHelper_FillDataset_DAAB()
        AnyKey
	end sub

Private Sub Console_SQL_SqlHelper_FillDataset_DAAB()
		Dim strConnection as String = "user id=sa;integrated security=SSPI;data source='(local)';Database=Northwind;"
		Dim strSQL AS String = "SELECT [CompanyName] FROM [Customers]"
		Dim strStoredProc AS String = "GetCustomers"
		Dim cn As New sql.SqlConnection(strConnection)
        Dim ds As New DataSet
		Dim arrTables() As String = {"MyTableName"}
		Dim strField As String
            Try
		    	cn.Open()
				SqlHelper.FillDataset(cn, CommandType.StoredProcedure, strStoredProc, ds, arrTables)
				Dim dr as DataRow = ds.Tables("MyTableName").Rows(0)
			 	strField = dr.Item("CompanyName").ToString
            Catch ex As Exception
                Console.WriteLine("Error", ex.Message.tostring)
				strField = "Error"
            End Try
			
			Console.WriteLine("Element(0,1): " + strField)
			cn.Close()
			cn = Nothing
	End Sub

	sub AnyKey
		Console.WriteLine("")
		Console.Write("Press enter key to continue...  ")
		Console.ReadLine()
	end Sub
			
end module