Reading Records one by one from database to Gridview using VB.NET

1. Create a java script in .aspx page Java Script(Between head reason):

script type="text/javascript"

function NameFun()
{
alert('Enter Name to search');
}
/script

2. ShowRecords_Click() Event

Protected Sub ShowRecords_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFind.Click

Dim name As String = TextBox1.Text
If (TextBox1.Text = "") Then
Page.ClientScript.RegisterStartupScript(Me.GetType(), "Javascript", "javascript: NameFun(); ", True)
Else
Dim index As Integer = 0
ViewState("I") = index.ToString()
bind(index)

ViewState("I") = index
End If
End Sub

3.bind() method

Protected Sub bind(ByVal index As Integer)

If (index > 0) Then
ButtonPrevious.Visible = True
End If

If (index < 0) Then
ButtonNext.Visible = False
End If

Dim name As String = TextBox1.Text

Dim con As New SqlConnection(Your ConnectionString)
Dim search As String = "SELECT * FROM EmployeeMaster WHERE EmpName LIKE '%" & Replace(name, "'", "''") & "%' " & "OR EmpName LIKE '%" & Replace(name, "'", "''") & "%' " & "; "

con.Open()
Dim cmd As New SqlCommand(search, con)
cmd.Parameters.AddWithValue("@name", name)
Dim da As New SqlDataAdapter(cmd)
da.Fill(ds)
dt = ds.Tables(0)

If (dt.Rows.Count >= 0) Then
ViewState("last") = dt.Rows.Count - 1

If (index <= ViewState("last")) Then
ButtonNext.Visible = True
Else
ButtonNext.Visible = False
End If


Dim l As Integer = dt.Rows.Count - 1
If (index > dt.Rows.Count - 1) Then
index = dt.Rows.Count - 1
Else
index = index
End If
If (index < 0) Then
index = 0
Else
index = index
End If

Label5.Text = ViewState("last").ToString() + "Matches found"
Label1.Text = "Name :" + dt.Rows(index)(1).ToString()
Label2.Text = "Mobile:" + dt.Rows(index)(6).ToString()
Label3.Text = "Emp Id:" + dt.Rows(index)(0).ToString()
Label4.Text = "Department:" + dt.Rows(index)(12).ToString()

Else
Label1.Text = "No Search found, Spell correctly"
End If
End Sub

4. ButtonNext_Click and ButtonPrevious_Click events


Protected Sub ButtonPrevious_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton9.Click
Dim index As Integer = ViewState("I")
index = index - 1
bind(index)
ViewState("I") = index
End Sub

Protected Sub ButtonNext_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton10.Click

Dim index As Integer = ViewState("I")
index = index + 1
bind(index)
ViewState("I") = index
End Sub