ADO.
NET Connection Module with Move Operations
Imports System.Data.OleDb
'Object Linking and Embedding Database
Public Class Form1
Dim cn As New OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim adp As New OleDbDataAdapter
Dim ds As New DataSet
Dim no As Integer
Dim drow As DataRow
Public Sub display()
ds.Clear()
adp = New OleDbDataAdapter("select * from stud", cn)
adp.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;DataSource=
C:\Users\nidhidesai\Documents\Visual Studio 2010\Projects\0 ND NET
Programs\DBConnection\Student.accdb"
cn.Open()
no = 0
display()
cn.Close()
End Sub
Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnInsert.Click
Try
cn.Open()
cmd = New OleDbCommand("insert into Stud values(" & txtRollNo.Text & ",'" &
txtName.Text & "'," & txtSem.Text & ") ", cn)
cmd.ExecuteNonQuery()
MsgBox("Record Inserted")
display()
Catch ex As Exception
MsgBox("Insert Details")
End Try
cn.Close()
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnUpdate.Click
Try
cn.Open()
cmd = New OleDbCommand("update Stud set
Name='"&txtName.Text&"',Sem="&txtSem.Text&"
where Rno="&txtRollNo.Text&"", cn)
cmd.ExecuteNonQuery()
MsgBox("Record Updated")
display()
Catch ex As Exception
MsgBox("Update Details")
End Try
cn.Close()
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnDelete.Click
Try
cn.Open()
cmd = New OleDbCommand("delete from Stud where Rno=" & txtRollNo.Text & "", cn)
cmd.ExecuteNonQuery()
MsgBox("Record Deleted")
display()
Catch ex As Exception
MsgBox("Delete Details")
End Try
cn.Close()
End Sub
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnSearch.Click
Try
cn.Open()
cmd = New OleDbCommand("select * from Stud where Rno=" & txtRollNo.Text & "", cn)
dr = cmd.ExecuteReader()
While dr.Read()
txtName.Text = dr.Item(1)
txtSem.Text = dr.Item(2)
End While
Catch ex As Exception
MsgBox(ex.ToString, , "Record Not Found")
End Try
cn.Close()
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnClear.Click
txtRollNo.Clear()
txtName.Clear()
txtSem.Clear()
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnClose.Click
Me.Close()
End Sub
Sub showdata()
drow = ds.Tables(0).Rows(no)
txtRollNo.Text = drow.Item(0)
txtName.Text = drow.Item(1)
txtSem.Text = drow.Item(2)
End Sub
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnFirst.Click
no = 0
showdata()
display()
End Sub
Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnPrevious.Click
no = no – 1
If no < 0 Then
no = ds.Tables(0).Rows.Count - 1
End If
showdata()
display()
End Sub
Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnnext.Click
no = no + 1
If no > ds.Tables(0).Rows.Count - 1 Then
no = 0
End If
showdata()
display()
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnLast.Click
no = ds.Tables(0).Rows.Count - 1
showdata()
display()
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Dim i As Integer
i = DataGridView1.CurrentRow.Index
txtRollNo.Text = DataGridView1.Item(0, i).Value
txtName.Text = DataGridView1.Item(1, i).Value
txtSem.Text = DataGridView1.Item(2, i).Value
End Sub
End Class
