Imports System.Data
Imports System.Data.SqlClient

Partial Class SimpleADONetGridView
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        ' 1. Tworzymy ciąg znakowy połączenia oraz ciąg znakowy polecenia.
        Dim connectionString As String = "Data Source=(local)\sql2k5;Initial Catalog=AdventureWorksLT;Integrated Security=True"

        Dim commandString As String = "Select [CustomerId], [FirstName], [LastName], [EmailAddress]  from SalesLT.Customer"

        ' 2. Przekazujemy ciągi konstruktorowi SqlDataAdapter.
        Dim dataAdapter As New SqlDataAdapter(commandString, connectionString)

        ' 3. Tworzymy obiekt DataSet.
        Dim dataSet As New DataSet()
        ' 4. Wypełniamy obiekt DataSet.        
        dataAdapter.Fill(dataSet, "Customers")

        ' 5. Pobieramy tabelę ze zbioru danych.         
        Dim dataTable As DataTable = dataSet.Tables("Customers")

        ' 6. Dołączamy tabelę do kontrolki Gridview.         
        GridView1.DataSource = dataTable
        GridView1.DataBind()
    End Sub


End Class
