VB .NET

VB .NET

Slip25

Q.1) 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) [Marks 20] 

Solution

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