ADO.NET.txt

Imports System.Data.SqlClient
Imports System.Data
Imports System
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        
        Try
            Dim conn As SqlConnection = New SqlConnection()
                conn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename= C:\SQL Server 2000 Sample Databases\NORTHWND.MDF ;Integrated Security=True;Connect Timeout=30;User Instance=True"
                Dim objSqlCommand As SqlCommand = New SqlCommand()
                objSqlCommand.Connection = conn
                objSqlCommand.CommandType = SqlDataSourceCommandType.Text
                objSqlCommand.CommandText = "SELECT * FROM Categories ORDER BY CategoryID"
                Dim dataAdap As SqlDataAdapter = New SqlDataAdapter()
                Dim dataSet As DataSet = New DataSet()
                dataAdap.SelectCommand = objSqlCommand
                dataAdap.Fill(dataSet)
                GridView1.DataSource = dataSet
                GridView1.DataBind()
                conn.Open()
                'Label1.Text = "Liczba wierszy: " + (objSqlCommand.ExecuteScalar()).ToString()
                conn.Close()
        Catch ex As Exception
            Response.Write("Wyst?pi? b??d: " + ex.Message)
        End Try




    End Sub
End Class