Imports System.Data
Imports System.Data.SqlClient

Public Class WebForm1
    Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region
    Dim connString As String

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Ustaw łańcuch połączenia
        connString = "server=(local);database=Nowinki;TRUSTED_CONNECTION=Yes"
        ' Użyte w powyższym łańcuchu połączenia informacje
        ' wystarczą do uzyskania połączenia z bazą danych.
        ' Jeśli komuś kiedykolwiek uda się znaleźć ten plik
        ' w surowym formacie, nie będzie mógł użyć tych
        ' informacji do prawidłowego zalogowania się do bazy
        ' danych.

        ' Użyj metody Intern dla łańcucha połączenia. W ten 
        ' sposób można wymusić na środowisku uruchomieniowym
        ' sprawdzenie, czy dany łańcuch istnieje w stosie pamięci.
        ' Jeśli nie, środowisko stworzy taki łańcuch; w przeciwnym
        ' przypadku, zamiast tworzenia nowego łańcucha, zostanie
        ' użyty egzemplarz, który już istnieje w pamięci.
        String.Intern(connString)
        ShowCustomers()
    End Sub

    Private Sub ShowCustomers()
        ' Jest to bardzo prosta funkcja wprowadzająca
        ' w świat rozwiązań ASP.NET — uzyskujemy i
        ' wyświetlamy zbiór danych składowany w tabeli
        ' tblKlienci. W pierwszej kolejności inicjalizujemy
        ' obiekt połączenia z naszym łańcuchem połączenia.
        Dim conn As New SqlConnection(connString)
        ' Inicjalizujemy także obiekt polecenia z kodem
        ' języka SQL, który ma zostać wykonany na bazie danych.
        Dim cmd As New SqlCommand("SELECT * FROM tblKlienci", conn)
        conn.Open()
        Dim dReader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
        While dReader.Read
            Response.Write(dReader.GetString(1))
            Response.Write("&nbsp;" & dReader.GetString(2))
            Response.Write("<BR>")
        End While
        dReader.Close()
        conn.Close()
    End Sub
End Class
