<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Configuration" %>
Protected Sub Page_Load(ByVal sender As Object, _
ByVal e As System.EventArgs)
If Not Page.IsPostBack Then
Dim MyConnection As SqlConnection
Dim MyCommand As SqlCommand
Dim MyAdapter As SqlDataAdapter
Dim MyTable As DataTable = New DataTable()
MyConnection = New SqlConnection()
MyConnection.ConnectionString = ConfigurationManager.ConnectionStrings("DSN_Northwind").ConnectionString
MyCommand = New SqlCommand()
MyCommand.CommandText = " SELECT TOP 5 * FROM CUSTOMERS "
MyCommand.CommandType = CommandType.Text
MyCommand.Connection = MyConnection
MyAdapter = New SqlDataAdapter()
MyAdapter.SelectCommand = MyCommand
MyAdapter.Fill(MyTable)
gvCustomers.DataSource = MyTable.DefaultView
gvCustomers.DataBind()
MyAdapter.Dispose()
MyCommand.Dispose()
MyConnection.Dispose()
End If
End Sub
File: Web.config
providerName="System.Data.SqlClient" />