GridView

saya ingin menampilkan data dari database dalam bentuk tabel pada ASP.Net,
dalam ASP.Net ada yang namanya GridView untuk mengabulkan keinginan tersebut.
sebenarnya sih kita tinggal tarik saja pada Visual Studio,
tapi disini saya gak menampilkan tarik menariknya melainkan dalam bentuk source.
dan disini juga gak menjelaskan fungsi-fungsi dari code tersebut,
bukan gak mau menjelaskan…
ya, lebih baik dicoba jalankan dulu dan cari tau sendiri dulu fungsi-fungsi tersebut 😉
oh ya, disini saya menggunakan database MS.Access (simple aja ya :D)

code GridView.aspx

	<div>
    <asp:GridView id="myGridView" runat="server" CellPadding="3" 
        GridLines="Horizontal" AllowPaging="True" PageSize="15" BackColor="White" 
            BorderColor="#E7E7FF" BorderStyle="None" BorderWidth="1px">
        <FooterStyle BackColor="#B5C7DE" ForeColor="#4A3C8C" />
        <RowStyle BackColor="#E7E7FF" ForeColor="#4A3C8C" />
        <PagerStyle BackColor="#999999" ForeColor="Black" HorizontalAlign="Center" />
        <SelectedRowStyle BackColor="#738A9C" Font-Bold="True" ForeColor="#F7F7F7" />
        <HeaderStyle BackColor="#4A3C8C" Font-Bold="True" ForeColor="#F7F7F7" />
        <AlternatingRowStyle BackColor="#F7F7F7" />
    </asp:GridView>
    </div>

code GridView.vb

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Imports System.Configuration
Imports System.Web
Imports System.IO

Partial Public Class GridView
    Inherits System.Web.UI.Page

    Dim dstam As New DataSet
    Dim objConn As OleDbConnection
    Dim objCmd As OleDbCommand

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strConnString As String
        strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dataku.mdb") & ""
        objConn = New OleDbConnection(strConnString)

        Try
            objConn.Open()

            Dim strSQL As String

            dstam = New DataSet

            strSQL = "SELECT nik,nama,alamat,email,telp FROM karyawan order by nik"

            Dim tabel As OleDbDataAdapter
            tabel = New OleDbDataAdapter(strSQL, objConn)
            tabel.Fill(dstam, "karyawan")

            myGridView.DataSource = dstam.Tables(0)
            myGridView.DataMember = "nik"
            myGridView.DataBind()

        Catch myException As Exception
            Response.Write("Error...")
        Finally
            objConn.Close()
        End Try

    End Sub
	
	Sub Page_UnLoad()
        objConn.Close()
        objConn = Nothing
    End Sub
	
	Protected Sub myGridView_PageIndexChanged(ByVal sender As Object, _
           ByVal e As System.EventArgs) Handles myGridView.PageIndexChanged
        LoadGrid()
    End Sub
    Protected Sub myGridView_PageIndexChanging(ByVal sender As Object, _
           ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles myGridView.PageIndexChanging
        myGridView.PageIndex = e.NewPageIndex
    End Sub

    Private Sub LoadGrid()
        Dim strSQL As String

        dstam = New DataSet

        strSQL = "SELECT nik,nama,alamat,email,telp FROM karyawan order by nik"

        Dim tabel As OleDbDataAdapter
        tabel = New OleDbDataAdapter(strSQL, objConn)
        tabel.Fill(dstam, "karyawan")

        myGridView.DataSource = dstam.Tables(0)
        myGridView.DataMember = "nik"
        myGridView.DataBind()

    End Sub

silahkan mencoba dan mengembangkannya 🙂