' File: http://www.garlen.net/SampleCode/Console_SQL_DataSet_Fill_Via_DataAdapter.vb.txt
' (re)written By: Dan Garlen 3/21/04

imports System
imports System.data
imports sql = System.Data.SqlClient

public module MyModule
	sub Main
		Console_SQL_DataSet_Fill_Via_DataAdapter()
        AnyKey
	end sub

Private Sub Console_SQL_DataSet_Fill_Via_DataAdapter()
		Dim strDB as String = "user id=sa;integrated security=SSPI;data source='(local)';Database=Northwind;"
		Dim strSQL as String = "SELECT * FROM [Customers]"

		' One line method using SqlConnection Overloaded Contructor: 
		' Dim cn AS new sql.SqlConnection(strDB)
		' Or 

		Dim cn AS new sql.SqlConnection
		cn.ConnectionString = strDB

		cn.Open()

		Try
			' Setup DataAdapter
			'Dim da as sql.SqlDataAdapter
			'da = new sql.SqlDataAdapter(strSQL, cn)
			' 
			' or
			'
			Dim da as sql.SqlDataAdapter = new sql.SqlDataAdapter(strSQL, cn)

			' Setup DataSet
			Dim ds as New DataSet
			da.Fill(ds, "MyTableName")
			
			Dim strField As String = ds.Tables("MyTableName").Rows(0).Item(1).ToString
			WL("Element(0,1)",strField)
			
			da = Nothing
			cn.Close()
			cn = Nothing
		Catch ex As Exception 
			Console.WriteLine("Error", ex.Message.tostring)
		End Try
	End Sub

	sub WL(strItem as string, objValue as Object) ' paramarray 
		Dim strValue As String = CType(objValue, String)
		Console.WriteLine(strItem & ": [" & strValue & "]")
	end sub

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