NAVIGATION CODE IN VB.NET

NAVIGATION CODE IN VB.NET

Database.vb

Imports System.Data.SqlClient

Public Class Database

    Dim con As New SqlConnection("Data Source=G20;Initial Catalog=Me;Integrated Security=True")

    Public Sub cnopen()

        If con.State = ConnectionState.Open Then

            con.Close()

        End If

        con.Open()

    End Sub

    Public Sub cnclose()

        If con.State <> ConnectionState.Closed Then

            con.Close()

        End If

    End Sub

    Public Function Displaygrid(ByVal query As String) As DataTable

        Dim dt As New DataTable()

        cnopen()

        Dim cmd As New SqlCommand(query, con)

        Dim da As New SqlDataAdapter(cmd)

        da.Fill(dt)

        Return dt

    End Function

FORM.vb

Imports System.Data

Public Class Form3

    Dim a As Integer

    Dim db As New Database

    Dim dt As New DataTable

 Sub DisplayGrid()

        dt = db.Displaygrid("select * from login")

        DataGridView1.DataSource = dt

 End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DisplayGrid()

        Bind()

End Sub

Sub Bind()

        TextBox1.DataBindings.Add("text", dt, "id")

        TextBox2.DataBindings.Add("text", dt, "uname")

        TextBox3.DataBindings.Add("text", dt, "password")

End Sub

Sub clearbind()

        TextBox1.DataBindings.Clear()

        TextBox2.DataBindings.Clear()

        TextBox3.DataBindings.Clear()

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click {<<}

        Me.BindingContext(dt).Position = 0

 End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click     {<}

        Me.BindingContext(dt).Position -= 1

End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click   {>}

        Me.BindingContext(dt).Position += 1

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click   {>>}

        Me.BindingContext(dt).Position = Me.BindingContext(dt).Count – 1

    End Sub

End Class