Imports System.Data Imports System.Data.SqlClient Public Class List Inherits System.Web.UI.Page #Region " Web Form µðÀÚÀ̳ʿ¡¼­ »ý¼ºÇÑ ÄÚµå " 'ÀÌ È£ÃâÀº Web Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù. Private Sub InitializeComponent() End Sub Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid 'Âü°í: ´ÙÀ½ÀÇ ÀÚ¸® Ç¥½ÃÀÚ ¼±¾ðÀº Web Form µðÀÚÀ̳ÊÀÇ Çʼö ¼±¾ðÀÔ´Ï´Ù. '»èÁ¦Çϰųª ¿Å±âÁö ¸¶½Ê½Ã¿À. Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: ÀÌ ¸Þ¼­µå È£ÃâÀº Web Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù. 'ÄÚµå ÆíÁý±â¸¦ »ç¿ëÇÏ¿© ¼öÁ¤ÇÏÁö ¸¶½Ê½Ã¿À. InitializeComponent() End Sub #End Region Dim intPage As Integer = 0 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then DataGrid1.PageSize = 5 Listing() End If End Sub Private Sub Listing() Dim objCon As SqlConnection Dim objCmd As SqlCommand objCon = New SqlConnection("server=localhost;user id=dotnetnote;password=dotnetnote;database=dotnetnote") objCon.Open() objCmd = New SqlCommand("Select Num, Title, Name, PostDate, ReadCount From DotnetNoteBasicVB" & _ " Order By Num Desc", objCon) Dim objDa As SqlDataAdapter = New SqlDataAdapter objDa.SelectCommand = objCmd Dim objDs As DataSet = New DataSet objDa.Fill(objDs, "DotnetNoteBasicVB") DataGrid1.DataSource = objDs.Tables("DotnetNoteBasicVB").DefaultView DataGrid1.DataBind() End Sub Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged DataGrid1.CurrentPageIndex = e.NewPageIndex Listing() End Sub End Class