Scribd
Upload
9 views6 pages

ADONETConnection Module With Move Operation

Uploaded by

shobhitdamwala
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
9 views6 pages

ADONETConnection Module With Move Operation

Uploaded by

shobhitdamwala
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 6

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

You might also like