Ready Project |BCA Project | MCA Project | BBA Project | MBA Project |INDIA'S BIGGEST COLLEGE PROJECT STORE



Public Class frmMovie

Dim cn As New OleDb.OleDbConnection

Dim cmd As New OleDb.OleDbCommand

Dim dt As New DataTable

Dim dataadapter As New OleDb.OleDbDataAdapter

Dim str As String

Dim n As Integer


Private Sub cmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNew.Click

txtMv_Name.Clear()

txtRel_Year.Clear()

txtDirector.Clear()

txtMv_Name.Focus()

End Sub


Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click

cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\VB.NET\slip25\movie.accdb")

cn.Open()

str = "insert into movie values('" & txtMv_Name.Text & "'," & CInt(txtRel_Year.Text) & ",'" & txtDirector.Text & "')"

cmd = New OleDb.OleDbCommand(str, cn)

 n = cmd.ExecuteNonQuery

If (n > 0) Then

MsgBox("Record Inserted Successfully")

End If

cn.Close()

End Sub


Private Sub cmdShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdShow.Click

DataGridView1.DataSource = Nothing

cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\VB.NET\slip25\movie.accdb")

cn.Open()

str = "select * from movie"

cmd = New OleDb.OleDbCommand(str, cn)

dataadapter = New OleDb.OleDbDataAdapter(cmd)

dataadapter.Fill(dt)

DataGridView1.DataSource = dt

End Sub


Private Sub cmdDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDel.Click

DataGridView1.DataSource = Nothing

cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\VB.NET\slip25\movie.accdb")

cn.Open()

�str = "delete * from movie where Release_year=2015"

cmd = New OleDb.OleDbCommand(str, cn)

�n = cmd.ExecuteNonQuery()

�If n > 0 Then

�MsgBox("Record Deleted Successfully")

�End If

�cn.Close()

�End Sub

End Class

25)Write a VB.NET program to create movie table (Mv_Name, Release_year, Director). Insert the records(Max: 5). Delete the records of movies whose release year is 2015 and display appropriate message in messagebox.(Use MS Access to create db)

Search

Project Categories

Recent Posts

Sign In