web 2.0

ASP.NET(vb.net) & MySQL List Rows Record Paging/Pagination

ASP.NET(vb.net) & MySQL List Rows Record Paging/Pagination - This isĀ  example scripts how to use ASP.NET get rows data record from MySQL database and view show all result in paging/pagination.

ShotDev Focus:
- ASP.NET(vb.net) & MySQL List Rows Record Paging/Pagination



<%@ import Namespace="System.Data" %>
<%@ import Namespace="MySql.Data.MySqlClient" %>
<%@ Page Language="VB" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
IF Not Page.IsPostBack() Then
End IF
End Sub

Sub BindData()

Dim objConn As New MySqlConnection
Dim objCmd As New MySqlCommand
Dim dtAdapter As New MySqlDataAdapter
Dim ds As New DataSet
Dim strConnString,strSQL As String

strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
strSQL = "SELECT * FROM customer"

objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd


'*** BindData to GridView ***'
myGridView.DataSource = ds

dtAdapter = Nothing
objConn = Nothing

End Sub

Sub myGridView_RowDataBound(sender As Object, e As GridViewRowEventArgs)
'*** CustomerID ***'
Dim lblCustomerID As Label = CType(e.Row.FindControl("lblCustomerID"),Label)
IF Not IsNothing(lblCustomerID) Then
lblCustomerID.Text = e.Row.DataItem("CustomerID")
End IF

'*** Name ***'
Dim lblName As Label = CType(e.Row.FindControl("lblName"),Label)
IF Not IsNothing(lblName) Then
lblName.Text = e.Row.DataItem("Name")
End IF

'*** Email ***'
Dim lblEmail As Label = CType(e.Row.FindControl("lblEmail"),Label)
IF Not IsNothing(lblEmail) Then
lblEmail.Text = e.Row.DataItem("Email")
End IF

'*** CountryCode ***'
Dim lblCountryCode As Label = CType(e.Row.FindControl("lblCountryCode"),Label)
IF Not IsNothing(lblCountryCode) Then
lblCountryCode.Text = e.Row.DataItem("CountryCode")
End IF

'*** Budget ***'
Dim lblBudget As Label = CType(e.Row.FindControl("lblBudget"),Label)
IF Not IsNothing(lblBudget) Then
lblBudget.Text = FormatNumber(e.Row.DataItem("Budget"),2)
End IF

'*** Used ***'
Dim lblUsed As Label = CType(e.Row.FindControl("lblUsed"),Label)
IF Not IsNothing(lblUsed) Then
lblUsed.Text = FormatNumber(e.Row.DataItem("Used"),2)
End IF
End Sub

Sub ShowPageCommand(s As Object, e As GridViewPageEventArgs)
myGridView.PageIndex = e.NewPageIndex
End Sub
<title>ShotDev.Com Tutorial</title>
<form id="form1" runat="server">
<asp:GridView id="myGridView" PageSize="2"
AutoGenerateColumns="False" AllowPaging="True" runat="server">
<HeaderStyle BackColor="#cccccc"></HeaderStyle>
<AlternatingRowStyle BackColor="#e8e8e8"></AlternatingRowStyle>


<asp:TemplateField HeaderText="CustomerID">
<asp:Label id="lblCustomerID" runat="server"></asp:Label>

<asp:TemplateField HeaderText="Name">
<asp:Label id="lblName" runat="server"></asp:Label>

<asp:TemplateField HeaderText="Email">
<asp:Label id="lblEmail" runat="server"></asp:Label>

<asp:TemplateField HeaderText="CountryCode">
<asp:Label id="lblCountryCode" runat="server"></asp:Label>

<asp:TemplateField HeaderText="Budget">
<asp:Label id="lblBudget" runat="server"></asp:Label>

<asp:TemplateField HeaderText="Used">
<asp:Label id="lblUsed" runat="server"></asp:Label>




ASP.NET(vb.net) & MySQL List Rows Record Paging/Pagination
Download this script.

1 Star2 Stars3 Stars4 Stars5 Stars6 Stars7 Stars8 Stars9 Stars10 Stars (No Ratings Yet)
Loading ... Loading ...

Leave a Reply

You must be logged in to post a comment.