' ASPX_DataGrid_from_OleDbDataReader.aspx.vb.txt
'
' Written By Dan Garlen 2/04.  Last Modified 3/20/04
'
' Create a new WebForm
' Add the following Imports to top of page
    Imports db = System.Data.OleDb

 Add DataGrid Control (Leave default name: "DataGrid1")
'
'
' Add the following three Subroutines to page
'   Page_Load
'   BindDataGridViaDataReader


' -------------------------------------------------------------------------------------------
    Private Sub Page_Load(ByVal sender As System.Object, _
				ByVal e As System.EventArgs) _
				Handles MyBase.Load
        If Not Page.IsPostBack Then
            BindDataGridViaDataReader()
        End If
    End Sub
' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

' -------------------------------------------------------------------------------------------
    Private Sub BindDataGridViaDataReader()
        Dim strSQL As String = "SELECT  City, Country FROM [Customers] ORDER BY [Country]"
        Dim strMDB As String = "C:\TestData\Northwind.mdb"
        Dim strDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data source =" + strMDB + ";"
        Dim cn As New db.OleDbConnection
        cn.ConnectionString = strDB

        Try
            Dim cmd As New db.OleDbCommand ' Setup Command
            cmd.CommandText = strSQL
            cmd.Connection = cn
            cn.Open()
            Dim dr As db.OleDbDataReader = cmd.ExecuteReader
            DataGrid1.DataSource = dr
            DataGrid1.DataBind()
            dr.Close()
            cn.Close()
        Catch ex As Exception
            lblResults.Text = "Error: " + ex.Message
        End Try
    End Sub
' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

End Class