>Design the window application under MS-Access and give the code for navigation

>

CODE:

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim cn As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb”)

Dim adp As New OleDbDataAdapter(“select eid, ename from t1”, cn)

Dim ds As DataSet

Dim dv As DataView

Dim cm As CurrencyManager

Private Sub Button1First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1First.Click

cm.Position = 0

End Sub

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

ds = New DataSet()

adp.Fill(ds, “t1”)

dv = New DataView(ds.Tables(“t1”))

cm = CType(Me.BindingContext(dv), CurrencyManager)

TextBox1.DataBindings.Clear()

TextBox2.DataBindings.Clear()

TextBox1.DataBindings.Add(“text”, dv, “eid”)

TextBox2.DataBindings.Add(“text”, dv, “ename”)

End Sub

Private Sub Button2Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2Next.Click

cm.Position = cm.Position + 1

End Sub

Private Sub Button3Prev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3Prev.Click

cm.Position = cm.Position – 1

End Sub

Private Sub Button4Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4Last.Click

cm.Position = cm.Count – 1

End Sub

End Class