202327027

SY-BCA A

1. Develop Tic-Tac-Toe application.

→
Public Class Form1
Dim checkforXorO As Boolean = False
Dim addonetoscore = 0

Sub buttonsEnabledfalse()
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False Button5.Enabled =
False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End Sub

Sub checkforwin()
If Button1.Text = "X" And Button2.Text = "X" And Button3.Text
= "X" Then
Button1.BackColor = Color.Black
Button2.BackColor = Color.Black
Button3.BackColor = Color.Black MessageBox.Show("winner
is player X", "tic-tac-toe", MessageBoxButtons.OK,
MessageBoxIcon.Information) addonetoscore =
Convert.ToInt64(Label2.Text)
Label2.Text = Convert.ToString(addonetoscore + 1)
ButtonsEnabledfalse()

1
202327027 SY-BCA A

VB.NET DHARM
JASOLIYA
End If
If Button4.Text = "X" And Button5.Text = "X" And Button6.Text
= "X" Then
Button4.BackColor = Color.Black Button5.BackColor
=
Color.Black
Button6.BackColor = Color.Black
MessageBox.Show("winner is player X", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label2.Text) Label2.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button7.Text = "X" And Button8.Text = "X" And
Button9.Text = "X" Then
Button7.BackColor = Color.Black
Button8.BackColor = Color.Black
Button9.BackColor = Color.Black
MessageBox.Show("winner is player X", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label2.Text)
Label2.Text = Convert.ToString(addonetoscore + 1)
buttonsEnabledfalse()
End If
If Button1.Text = "X" And Button4.Text = "X" And Button7.Text
= "X" Then
Button1.BackColor = Color.Black
Button4.BackColor = Color.Black
Button7.BackColor = Color.Black

VB.NET DHARM
JASOLIYA 2
202327027 SY-BCA A

MessageBox.Show("winner is player X", "tic-tac-toe",

MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label2.Text) Label2.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button2.Text = "X" And Button5.Text = "X" And Button8.Text
= "X" Then
Button2.BackColor = Color.Black
Button5.BackColor = Color.Black
Button8.BackColor = Color.Black
MessageBox.Show("winner is player X", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label2.Text) Label2.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button3.Text = "X" And Button6.Text = "X" And Button9.Text
= "X" Then
Button3.BackColor = Color.Black
Button6.BackColor = Color.Black
Button9.BackColor = Color.Black
MessageBox.Show("winner is player X", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label2.Text) Label2.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button1.Text = "X" And Button5.Text = "X" And Button9.Text
= "X" Then
Button1.BackColor = Color.Black
Button5.BackColor = Color.Black
Button9.BackColor = Color.Black

VB.NET DHARM
JASOLIYA 3
202327027 SY-BCA A

MessageBox.Show("winner is player X", "tic-tac-toe",

MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label2.Text) Label2.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button3.Text = "X" And Button5.Text = "X" And Button7.Text
= "X" Then
Button3.BackColor = Color.Black Button5.BackColor
= Color.Black
Button7.BackColor = Color.Black MessageBox.Show("winner
is player X", "tic-tac-toe", MessageBoxButtons.OK,
MessageBoxIcon.Information) addonetoscore =
Convert.ToInt64(Label2.Text) Label2.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
'O combination'
If Button1.Text = "O" And Button2.Text = "O" And Button3.Text
= "O" Then
Button1.BackColor = Color.Black
Button2.BackColor = Color.Black
Button3.BackColor = Color.Black
MessageBox.Show("winner is player O", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label3.Text) Label3.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button4.Text = "O" And Button5.Text = "O" And Button6.Text
= "O" Then
Button4.BackColor = Color.Black Button5.BackColor
=
Color.Black
VB.NET DHARM
JASOLIYA 4
202327027 SY-BCA A

Button6.BackColor = Color.Black
MessageBox.Show("winner is player O", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label3.Text) Label3.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button7.Text = "O" And Button8.Text = "O" And Button9.Text
= "O" Then
Button7.BackColor = Color.Black
Button8.BackColor = Color.Black
Button9.BackColor = Color.Black
MessageBox.Show("winner is player O", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label3.Text) Label3.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button1.Text = "O" And Button4.Text = "O" And Button7.Text
= "O" Then
Button1.BackColor = Color.Black
Button4.BackColor = Color.Black
Button7.BackColor = Color.Black
MessageBox.Show("winner is player O", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label3.Text) Label3.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button2.Text = "O" And Button5.Text = "O" And Button8.Text
= "O" Then
Button2.BackColor = Color.Black
Button5.BackColor = Color.Black
Button8.BackColor = Color.Black
VB.NET DHARM
JASOLIYA 5
202327027 SY-BCA A

MessageBox.Show("winner is player O", "tic-tac-toe",

MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label3.Text) Label3.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button3.Text = "O" And Button6.Text = "O" And Button9.Text
= "O" Then
Button3.BackColor = Color.Black
Button6.BackColor = Color.Black
Button9.BackColor = Color.Black
MessageBox.Show("winner is player O", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label3.Text) Label3.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button1.Text = "O" And Button5.Text = "O" And Button9.Text
= "O" Then
Button1.BackColor = Color.Black
Button5.BackColor = Color.Black
Button9.BackColor = Color.Black
MessageBox.Show("winner is player O", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label3.Text) Label3.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
If Button3.Text = "O" And Button5.Text = "O" And Button7.Text
= "O" Then
Button3.BackColor = Color.Black Button5.BackColor
=
Color.Black

VB.NET DHARM
JASOLIYA 6
202327027 SY-BCA A

Button7.BackColor = Color.Black
MessageBox.Show("winner is player O", "tic-tac-toe",
MessageBoxButtons.OK, MessageBoxIcon.Information)
addonetoscore = Convert.ToInt64(Label3.Text) Label3.Text =
Convert.ToString(addonetoscore + 1) buttonsEnabledfalse()
End If
End Sub

Private Sub button_click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles Button9.Click, Button8.Click,
Button7.Click, Button6.Click, Button5.Click, Button4.Click,
Button3.Click, Button2.Click, Button1.Click
Dim b As Button = sender If
checkforXorO = False Then
b.Text = "X"
checkforXorO = True
Else
b.Text = "O"
checkforXorO = False End If
checkforwin()
b.Enabled = False
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal

e As
System.EventArgs) Handles Button10.Click
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
VB.NET DHARM
JASOLIYA 7
202327027 SY-BCA A

Button5.Enabled = True Button6.Enabled =

True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True

Button1.Text = ""
Button2.Text = ""
Button3.Text = ""
Button4.Text = ""

VB.NET DHARM
JASOLIYA 8
202327027 SY-BCA A

Button5.Text = ""
Button6.Text = ""
Button7.Text = ""
Button8.Text = ""
Button9.Text = ""

Button1.BackColor = Color.White
Button2.BackColor = Color.White
Button3.BackColor = Color.White
Button4.BackColor = Color.White
Button5.BackColor = Color.White Button6.BackColor =
Color.White
Button7.BackColor = Color.White
Button8.BackColor = Color.White
Button9.BackColor = Color.White

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button11.Click
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True Button7.Enabled =
True Button8.Enabled = True
Button9.Enabled = True

VB.NET DHARM
JASOLIYA
202327027 SY-BCA A

Button1.Text = ""
Button2.Text = ""
Button3.Text = "" Button4.Text
= "" Button5.Text = ""
Button6.Text = ""
Button7.Text = ""
Button8.Text = ""
Button9.Text = ""

Button1.BackColor = Color.White
Button2.BackColor = Color.White
Button3.BackColor = Color.White
Button4.BackColor = Color.White Button5.BackColor =
Color.White Button6.BackColor = Color.White
Button7.BackColor = Color.White Button8.BackColor =
Color.White
Button9.BackColor = Color.White Label2.Text = "0"
Label3.Text = "0"

End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button12.Click
Dim checkforexit As DialogResult =
MessageBox.Show("conform if you want ot exit", "tic-tac-toe",
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If checkforexit = DialogResult.Yes Then
Application.Exit()
VB.NET DHARM
JASOLIYA 10
202327027 SY-BCA A

End If
End Sub
End Class

Output
-
:

2. Display value from Text box, Combo box, List box, radio
buttoncheck box and display image on picture box on
button click event in message box.
→
Public Class second

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles Button1.Click

VB.NET DHARM
JASOLIYA 11
202327027 SY-BCA A

MsgBox("textbox value: " & TextBox1.Text & Chr(13) &

"combobox value: " &
ComboBox1.SelectedItem & Chr(13) & "listbox value: " &
ListBox1.SelectedItem)
PictureBox1.Image = Image.FromFile("E:\pabitra\car.jpeg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs)

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
ListBox1.SelectedIndexChanged

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
RadioButton1.CheckedChanged
GroupBox1.BackColor = Color.Black
GroupBox1.ForeColor = Color.White
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As

VB.NET DHARM
JASOLIYA 12
202327027 SY-BCA A

System.Object, ByVal e As System.EventArgs) Handles

RadioButton2.CheckedChanged
GroupBox1.BackColor = Color.Red
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
RadioButton3.CheckedChanged
GroupBox1.BackColor = Color.Green
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
CheckBox1.CheckedChanged
Dim newfs As FontStyle
If CheckBox1.Checked = True Then newfs =
Label5.Font.Style + FontStyle.Bold
Label5.Font = New Font(Label5.Font.Name, Label5.Font.Size,
newfs)
ElseIf CheckBox1.Checked = False Then newfs
= Label5.Font.Style - FontStyle.Bold
Label5.Font = New Font(Label5.Font.Name, Label5.Font.Size,
newfs)

End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
CheckBox2.CheckedChanged
Dim newfs As FontStyle
If CheckBox2.Checked = True Then

VB.NET DHARM
JASOLIYA 13
202327027 SY-BCA A

newfs = Label5.Font.Style + FontStyle.Italic

Label5.Font = New Font(Label5.Font.Name, Label5.Font.Size,
newfs)
ElseIf CheckBox2.Checked = False Then newfs
= Label5.Font.Style - FontStyle.Italic
Label5.Font = New Font(Label5.Font.Name, Label5.Font.Size,
newfs)

End If
End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
CheckBox4.CheckedChanged
Dim newfs As FontStyle
If CheckBox4.Checked = True Then
newfs = Label5.Font.Style + FontStyle.Underline
Label5.Font = New Font(Label5.Font.Name, Label5.Font.Size,
newfs)
ElseIf CheckBox4.Checked = False Then newfs =
Label5.Font.Style - FontStyle.Underline
Label5.Font = New Font(Label5.Font.Name, Label5.Font.Size,
newfs)

End If
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
CheckBox3.CheckedChanged
Dim newfs As FontStyle If
CheckBox3.Checked = True Then newfs
VB.NET DHARM
JASOLIYA 14
202327027 SY-BCA A

= Label5.Font.Style + FontStyle.Strikeout
Label5.Font = New Font(Label5.Font.Name,
Label5.Font.Size, newfs)

ElseIf CheckBox3.Checked = False Then newfs =

Label5.Font.Style - FontStyle.Strikeout
Label5.Font = New Font(Label5.Font.Name, Label5.Font.Size,
newfs)

End If
End Sub
End Class

Output
-
:

3. Develop a simple calculator application.

→

VB.NET DHARM
JASOLIYA 15
202327027 SY-BCA A

Public Class Form1

Dim n1 As Double
Dim n2 As Double
Private Sub TextBox1_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
TextBox1.TextChanged

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs)

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button6.Click
Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button1.Click
If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
n1 =
CDbl(TextBox1.Text) n2 = CDbl(TextBox2.Text)
Else
MessageBox.Show("please enter numeric value")
Exit Sub
End If
TextBox3.Text = (n1 + n2).ToString()

VB.NET DHARM
JASOLIYA 16
202327027 SY-BCA A

End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal

e As
System.EventArgs) Handles Button2.Click
If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
n1 =
CDbl(TextBox1.Text) n2 = CDbl(TextBox2.Text)

Else
MessageBox.Show("please enter numeric value")
Exit Sub
End If
TextBox3.Text = (n1 - n2).ToString()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button3.Click
If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
n1 =
CDbl(TextBox1.Text) n2 = CDbl(TextBox2.Text)
Else
MessageBox.Show("please enter numeric value")
Exit Sub
End If
TextBox3.Text = (n1 * n2).ToString()

End Sub

VB.NET DHARM
JASOLIYA 17
202327027 SY-BCA A

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button4.Click
If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then
n1 =
CDbl(TextBox1.Text)
n2 = CDbl(TextBox2.Text)
Else
MessageBox.Show("please enter numeric value")
Exit Sub
End If
TextBox3.Text = (n1 / n2).ToString()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button5.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles Label1.Click

End Sub
End Class

Output :-

VB.NET DHARM
JASOLIYA 18
202327027 SY-BCA A

4. Create windows form application to Display random

number in Message box.
→
Public Class fourth
Shared random As New Random

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button1.Click
MsgBox(random.Next())
End Sub
End Class

Output :-

VB.NET DHARM
JASOLIYA 19
202327027 SY-BCA A

5 Develop application to use rich text box.

→.
Public Class fifth

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button1.Click
RichTextBox1.SelectionIndent -= 10
End Sub

Private Sub Button3_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button3.Click
If RichTextBox1.SelectionBullet = True Then
RichTextBox1.SelectionBullet = False
Else
RichTextBox1.SelectionBullet = True
End If
End Sub
VB.NET DHARM
JASOLIYA 20
202327027 SY-BCA A

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button4.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
End Sub

Private Sub Button5_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button5.Click
RichTextBox1.SelectionFont = New Font("arial", 20,
FontStyle.Regular) End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button6.Click
RichTextBox1.SelectionColor = Color.Green
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button7.Click
RichTextBox1.ZoomFactor += 1.0
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button8.Click
If RichTextBox1.ZoomFactor > 1 Then
RichTextBox1.ZoomFactor -= 1.0
End If
End Sub

VB.NET DHARM
JASOLIYA 21
202327027 SY-BCA A

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button2.Click
RichTextBox1.SelectionIndent += 10
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles Button9.Click

RichTextBox1.SaveFile("E:\pabitra\vb.net\rtb",RichTextBoxStreamTyp
e.RichText) End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button10.Click
RichTextBox1.LoadFile("E:\pabitra\vb.net\rtb",
RichTextBoxStreamType.RichText)
End Sub
End Class

Output :-

VB.NET DHARM
JASOLIYA 22
202327027 SY-BCA A

6. Create VB.NET application to maintain Student information.

Create following tables :
Tblstuinfo (stuNo, stuName, City, DOB, Course, fees)
Design proper form and make necessary validation.
Provide insert, update, and delete facility for above table.
Also provide search facility on StdNo,
generate report DataGridView to view details of those
Students who are in BCA Course and fee is less than 25000.
→
Imports System.Data
Imports System.Data.OleDb
Public Class sixth
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\pabitra\vb.net\journal\student.mdb"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button1.Click

VB.NET DHARM
JASOLIYA 23
202327027 SY-BCA A

Dim con As New OleDbConnection

Dim com As New OleDbCommand
con.ConnectionString = strcon
con.Open() com.Connection = con
com.CommandText = "insert into tblstuinfo
values(@pno,@pname,@pcity,@pdob,@pcourse,@pfees)"
com.Parameters.AddWithValue("@pno", TextBox1.Text)
com.Parameters.AddWithValue("@pname", TextBox2.Text)
com.Parameters.AddWithValue("@pcity", TextBox3.Text)
com.Parameters.AddWithValue("@pdob",
DateTimePicker1.Value.Date)
com.Parameters.AddWithValue("@pcourse", TextBox5.Text)
com.Parameters.AddWithValue("@pfees", TextBox6.Text)
com.ExecuteNonQuery() con.Close()
MsgBox("inserted successfully")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button2.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
con.ConnectionString = strcon
con.Open() com.Connection = con
com.CommandText = "update tblstuinfo set
stuNo=@pno,stuName=@pname,city=@pcity,dob=@pdob,course=@
pc ourse,fees=@pfees where stuNo=@pno"
com.Parameters.AddWithValue("@pno", TextBox1.Text)
com.Parameters.AddWithValue("@pname", TextBox2.Text)
com.Parameters.AddWithValue("@pcity", TextBox3.Text)
com.Parameters.AddWithValue("@pdob",

VB.NET DHARM
JASOLIYA 24
202327027 SY-BCA A

DateTimePicker1.Value.Date)
com.Parameters.AddWithValue("@pcourse", TextBox5.Text)

com.Parameters.AddWithValue("@pfees", TextBox6.Text)
com.ExecuteNonQuery() con.Close()
MsgBox("updated successfully")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button3.Click
Dim con As New
OleDbConnection Dim com As
New OleDbCommand
con.ConnectionString = strcon
con.Open() com.Connection =
con
com.CommandText = "delete from tblstuinfo where
stuNo=@pno" com.Parameters.AddWithValue("@pno",
TextBox1.Text)
com.Parameters.AddWithValue("@pname", TextBox2.Text)
com.Parameters.AddWithValue("@pcity", TextBox3.Text)
com.Parameters.AddWithValue("@pdob",
DateTimePicker1.Value.Date)
com.Parameters.AddWithValue("@pcourse", TextBox5.Text)
com.Parameters.AddWithValue("@pfees", TextBox6.Text)
com.ExecuteNonQuery() con.Close()
MsgBox("Deleted successfully")
End Sub

VB.NET DHARM
JASOLIYA 25
202327027 SY-BCA A

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button4.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim ds As New DataSet
Dim da As New OleDbDataAdapter
con.ConnectionString = strcon con.Open()
com.Connection = con com.CommandText = "select *
from tblstuinfo where stuNo=@pno"
com.Parameters.AddWithValue("@pno", TextBox1.Text)
da.SelectCommand = com
da.Fill(ds)
con.Close()
DataGridView1.DataSource = ds.Tables(0)

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e

As
System.EventArgs) Handles Button5.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
con.ConnectionString = strcon
con.Open() com.Connection = con
com.CommandText = "select * from tblstuinfo where
course='bca' and fees<25000" da.SelectCommand = com

VB.NET DHARM
JASOLIYA 26
202327027 SY-BCA A

da.Fill(ds)
con.Close()
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class

Output
-
:

7. Create a program that populate combo box with

Movie name. Once user selects particular movie name,
display corresponding details about ticket rate, number of
shows of the movie etc. also delete the record by accepting
movie no.
(movie: movieNo, moviename, directore, tickets rate,
no_of_shows)
→
VB.NET DHARM
JASOLIYA 27
202327027 SY-BCA A

Imports System.Data
Imports System.Data.OleDb
Public Class seventh
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\pabitra\vb.net\journal\movie.mdb"
Private Sub seventh_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
con.ConnectionString = strcon
con.Open() com.Connection = con
com.CommandText = "select * from moviename"
da.SelectCommand = com da.Fill(ds) con.Close()
ComboBox1.DisplayMember = "m_name"
ComboBox1.ValueMember = "m_no"
ComboBox1.DataSource = ds.Tables(0)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim ds As New DataSet

VB.NET DHARM
JASOLIYA 28
202327027 SY-BCA A

con.ConnectionString = strcon
con.Open() com.Connection = con
com.CommandText = "select * from moviename where
m_no=@pno" com.Parameters.AddWithValue("@pno",
ComboBox1.SelectedValue) da.SelectCommand
= com da.Fill(ds) con.Close()
DataGridView1.DataSource = ds.Tables(0)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
Dim id As String = InputBox("enter id:")
Dim con As New OleDbConnection
Dim com As New OleDbCommand
con.ConnectionString = strcon
con.Open() com.Connection = con
com.CommandText = "delete from moviename where
m_no=@pno"
com.Parameters.AddWithValue("@pno", id)
com.ExecuteNonQuery() con.Close()
MsgBox("Deleted successfully")
End Sub
End Class

VB.NET DHARM
JASOLIYA 29
202327027 SY-BCA A

Output
-
:

8. Create VB.NET application maintains Football players record

withthe following database table. Players (name, country,
no_of_matches, no_of_runs).
Perform insert, update, and delete operation on it. Also
displaythe player‘s information according to country wise.
→
Imports System.Data
Imports System.Data.OleDb
Public Class eighth
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\pabitra\vb.net\journal\football.mdb"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection Dim com As New
OleDbCommand con.ConnectionString = strcon con.Open()
com.Connection = con com.CommandText = "insert into
players(pname,country,no_of_matches,no_of_runs)
VB.NET DHARM
JASOLIYA 30
202327027 SY-BCA A

values(@inp_name,@inp_country,@nom,@nor)"
com.Parameters.AddWithValue("@inp_name", TextBox1.Text)
com.Parameters.AddWithValue("@inp_country", TextBox2.Text)
com.Parameters.AddWithValue("@nom", TextBox3.Text)
com.Parameters.AddWithValue("@nor", TextBox4.Text)
com.ExecuteNonQuery() con.Close()
MsgBox("Record Inserted Successfully")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
con.ConnectionString = strcon
con.Open() com.Connection = con
com.CommandText = "update players set
pname=@inp_name,country=@inp_country,no_of_matches=@nom,no_of_
runs=@nor
where pname=@inp_name or country=@inp_country or
no_of_matches=@nom or no_of_runs=@nor"
com.Parameters.AddWithValue("@inp_name", TextBox1.Text)
com.Parameters.AddWithValue("@inp_country", TextBox2.Text)
com.Parameters.AddWithValue("@nom", TextBox3.Text)
com.Parameters.AddWithValue("@nor", TextBox4.Text)
com.ExecuteNonQuery() con.Close()
MsgBox("Record Updated Successfully")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
VB.NET DHARM
JASOLIYA 31
202327027 SY-BCA A

con.ConnectionString = strcon
con.Open() com.Connection = con
com.CommandText = "delete from players where
pname=@inp_name or country=@inp_country or no_of_matches=@nom
or
no_of_runs=@nor"
com.Parameters.AddWithValue("@inp_name",
TextBox1.Text)
com.Parameters.AddWithValue("@inp_country", TextBox2.Text)
com.Parameters.AddWithValue("@nom", TextBox3.Text)
com.Parameters.AddWithValue("@nor", TextBox4.Text)
com.ExecuteNonQuery() con.Close()

MsgBox("Record Deleted Successfully")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button4.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
con.ConnectionString = strcon
con.Open() com.Connection = con
com.CommandText = "select
pname,country,no_of_matches,no_of_runs from players group by
country,pname,no_of_matches,no_of_runs" da.SelectCommand =
com
da.Fill(ds)
con.Close()
DataGridView1.DataSource = ds.Tables(0)

VB.NET DHARM
JASOLIYA 32
202327027 SY-BCA A

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button5.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()

End Sub
End Class

VB.NET DHARM
JASOLIYA 33
202327027 SY-BCA A

Output
-
:

9. Create a VB.NET MDI application that has

followingfunctionalities for grocery stores.
1. Insert grocery items in grocery_master_table(item_no,
name,MRP, sell price, quantity)

VB.NET DHARM
JASOLIYA 34
202327027 SY-BCA A

2. Display data in DataGridView and ability to search

forspecific item_name.

3. Update, delete operations for updating stock quantity.

4. Listing out stock grocery item in new form.

→
Public Class grocery_store

Private Sub InsertItemToolStripMenuItem_Click_1(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
InsertItemToolStripMenuItem.Click insert.MdiParent = Me insert.Show()
End Sub

Private Sub DisplayDataToolStripMenuItem_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
DisplayDataToolStripMenuItem.Click display.MdiParent = Me display.Show()
End Sub

Private Sub UpdateAndDeleteToolStripMenuItem_Click_1(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
UpdateAndDeleteToolStripMenuItem.Click ud.MdiParent = Me ud.Show()
End Sub

Private Sub ListOutItemToolStripMenuItem_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
ListOutItemToolStripMenuItem.Click listout.MdiParent = Me listout.Show()
End Sub
End Class

VB.NET DHARM
JASOLIYA 35
202327027 SY-BCA A

Output:-

Insert item:-
Imports System.Data

Imports System.Data.OleDb

Public Class insert

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\

pabitra\vb.net\journal\grocery.mdb"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand con.ConnectionString
= strcon con.Open() com.Connection = con
com.CommandText = "insert into grocery_master_table values
(@ino,@iname,@imrp,@isp,@iquantity)" com.Parameters.AddWithValue("@ino",
Val(TextBox1.Text)) com.Parameters.AddWithValue("@iname",
TextBox2.Text) com.Parameters.AddWithValue("@imrp", Val(TextBox3.Text))
com.Parameters.AddWithValue("@isp", Val(TextBox4.Text))

VB.NET DHARM
JASOLIYA 36
202327027 SY-BCA A

com.Parameters.AddWithValue("@iquantity", Val(TextBox5.Text))
com.ExecuteNonQuery() con.Close()
MsgBox("inserted succefully")

End Sub

End Class
Output:-

Display data:-
Imports System.Data
Imports System.Data.OleDb
Public Class display
Dim strcon As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\pabitra\vb.net\journal\grocery.mdb"
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim ds As New DataSet con.ConnectionString =
strcon con.Open() com.Connection = con
If TextBox1.Text = "" Then

VB.NET DHARM
JASOLIYA 37
202327027 SY-BCA A

com.CommandText = "select * from grocery_master_table"

Else com.CommandText = "select * from grocery_master_table
where
g_name=@iname"
End If
com.Parameters.AddWithValue("@iname", TextBox1.Text)
da.SelectCommand = com da.Fill(ds) con.Close()
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class

Output:-

Update and Delete:-

Imports System.Data
VB.NET DHARM
JASOLIYA 38
202327027 SY-BCA A

Imports System.Data.OleDb
Public Class ud
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\pabitra\vb.net\journal\grocery.mdb"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click Dim
con As New OleDbConnection Dim com
As New OleDbCommand
con.ConnectionString = strcon con.Open() com.Connection
= con
com.CommandText = "update grocery_master_table set
item_no=@ino,g_name=@iname,MRP=@imrp,sell_price=@isp,quantity=@iqu antity where
item_no=@ino or g_name=@iname or MRP=@imrp or sell_price=@isp or
quantity=@iquantity" com.Parameters.AddWithValue("@ino", Val(TextBox1.Text))
com.Parameters.AddWithValue("@iname", TextBox2.Text)
com.Parameters.AddWithValue("@imrp", Val(TextBox3.Text))
com.Parameters.AddWithValue("@isp", Val(TextBox4.Text))
com.Parameters.AddWithValue("@iquantity", Val(TextBox5.Text)) com.ExecuteNonQuery()
con.Close()
MsgBox("record updated")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click Dim
con As New OleDbConnection Dim com
As New OleDbCommand
con.ConnectionString = strcon con.Open() com.Connection
= con
com.CommandText = "delete from grocery_master_table where
item_no=@ino or g_name=@iname or MRP=@imrp or sell_price=@isp or
quantity=@iquantity" com.Parameters.AddWithValue("@ino", Val(TextBox1.Text))
com.Parameters.AddWithValue("@iname", TextBox2.Text)
com.Parameters.AddWithValue("@imrp", Val(TextBox3.Text))
com.Parameters.AddWithValue("@isp", Val(TextBox4.Text))
com.Parameters.AddWithValue("@iquantity", Val(TextBox5.Text))
com.ExecuteNonQuery() con.Close()
MsgBox("record deleted")
End Sub
End Class

VB.NET DHARM
JASOLIYA 39
202327027 SY-BCA A

Output:-

List out item:- Imports

System.Data

Imports System.Data.OleDb

Public Class listout

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=E:\pabitra\vb.net\journal\grocery.mdb"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button1.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand

Dim da As New OleDbDataAdapter

Dim ds As New DataSet con.ConnectionString = strcon con.Open() com.Connection =
con com.CommandText = "select * from grocery_master_table" da.SelectCommand
= com da.Fill(ds) con.Close()
DataGridView1.DataSource = ds.Tables(0)

End Sub

End Class

VB.NET DHARM
JASOLIYA 40
202327027 SY-BCA A

Output:-

10. Develop a VB.NET application to manage bank

information with the following entities:
Account_master (Account_no, Customer_name,
Balance) and Transaction_history (Transaction_id,
Account_no, Transaction_type, Amount, Transaction_date).
Implement the following functionalities:

a. Provide insert, update, delete, and display facilities for

managing
account information and transaction history.

b. Display account number, customer name, and balance

in ascending
order based on the account balance.

c. Display customer names, their account numbers, and

the total balance
customer-wise.
→
Imports System.Data

VB.NET DHARM
JASOLIYA 41
202327027 SY-BCA A

Imports System.Data.OleDb

Public Class BMS

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=E:\pabitra\vb.net\journal\transaction.mdb"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click account.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles Button2.Click transaction.Show()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand

Dim da As New OleDbDataAdapter

Dim ds As New DataSet con.ConnectionString = strcon con.Open()
com.Connection = con com.CommandText = "select * from
account_master order by balance asc" da.SelectCommand = com

da.Fill(ds) con.Close()

DataGridView1.DataSource = ds.Tables(0) End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button4.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand

Dim da As New OleDbDataAdapter

Dim ds As New DataSet

con.ConnectionString = strcon

con.Open() com.Connection = con

VB.NET DHARM
JASOLIYA 42
202327027 SY-BCA A

com.CommandText = "select cust_name,acc_no,balance as totalbalance from

account_master" da.SelectCommand = com

da.Fill(ds) con.Close()
DataGridView1.DataSource = ds.Tables(0)

End Sub

End Class

VB.NET DHARM
JASOLIYA 43
202327027 SY-BCA A

Output:-

Account Details:-
Imports System.Data

Imports System.Data.OleDb

Public Class account

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=E:\pabitra\vb.net\journal\transaction.mdb"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim con As New OleDbConnection Dim com

As New OleDbCommand con.ConnectionString =
strcon con.Open() com.Connection = con
com.CommandText = "insert into
account_master(acc_no,cust_name,balance)
values(@inpid,@inpname,@inpbalance)"
com.Parameters.AddWithValue("@inpid",
TextBox1.Text)
com.Parameters.AddWithValue("@inpname",
TextBox2.Text)

com.Parameters.AddWithValue("@inpbalance",
TextBox3.Text) com.ExecuteNonQuery() con.Close()
VB.NET DHARM
JASOLIYA 44
202327027 SY-BCA A

MsgBox("Record Inserted")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button4.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand

Dim da As New OleDbDataAdapter

Dim ds As New DataSet con.ConnectionString = strcon con.Open()
com.Connection = con com.CommandText = "select * from account_master"
da.SelectCommand = com da.Fill(ds) con.Close()
DataGridView1.DataSource = ds.Tables(0)

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As

System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
DataGridView1.CellContentClick

Dim con As New OleDbConnection

Dim com As New OleDbCommand

Dim da As New OleDbDataAdapter

Dim ds As New DataSet con.ConnectionString = strcon con.Open()
com.Connection = con com.CommandText = "select * from account_master"
da.SelectCommand = com da.Fill(ds) con.Close()
DataGridView1.DataSource = ds.Tables(0)

TextBox1.Text =

DataGridView1.Rows(e.RowIndex).Cells("acc_no").Value

TextBox2.Text =
DataGridView1.Rows(e.RowIndex).Cells("cust_name").Value

TextBox3.Text =
VB.NET DHARM
JASOLIYA 45
202327027 SY-BCA A

DataGridView1.Rows(e.RowIndex).Cells("balance").Value

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand
con.ConnectionString = strcon con.Open()
com.Connection = con
com.CommandText = "update account_master set
cust_name=@inpname,balance=@inpbalance where acc_no=@inpid"
com.Parameters.AddWithValue("@inpname", TextBox2.Text)
com.Parameters.AddWithValue("@inpbalance", TextBox3.Text)
com.Parameters.AddWithValue("@inpid", TextBox1.Text) com.ExecuteNonQuery()
con.Close()
MsgBox("Record Updated")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand con.ConnectionString
= strcon con.Open() com.Connection = con
com.CommandText = "delete from account_master where acc_no=@inpid"

com.Parameters.AddWithValue("@inpid", TextBox1.Text) com.ExecuteNonQuery()

con.Close()

MsgBox("Record Deleted")

End Sub

VB.NET DHARM
JASOLIYA 46
202327027 SY-BCA A

End Class

Output:-

Transaction Details:-
Imports System.Data

Imports System.Data.OleDb

Public Class transaction

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\

pabitra\vb.net\journal\transaction.mdb"

Shared random As New Random

Private Sub transaction_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

Dim con As New OleDbConnection

Dim com As New OleDbCommand

Dim da As New OleDbDataAdapter

Dim ds As New DataSet con.ConnectionString = strcon con.Open()
com.Connection = con com.CommandText = "select * from account_master"
da.SelectCommand = com da.Fill(ds) con.Close()
VB.NET DHARM
JASOLIYA 47
202327027 SY-BCA A

ComboBox1.DisplayMember = "cust_name"

ComboBox1.ValueMember = "acc_no"

ComboBox1.DataSource = ds.Tables(0)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand con.ConnectionString
= strcon con.Open() com.Connection = con
com.CommandText =
"insert into transaction_history(tra_id,acc_no,tra_type,amount,tra_date)
values(@inpid,@acid,@inptype,@inpamount,@inpdate)"
com.Parameters.AddWithValue("@inpid", random.Next())
com.Parameters.AddWithValue("@acid", ComboBox1.SelectedValue)
com.Parameters.AddWithValue("@inptype", ComboBox2.SelectedItem)
com.Parameters.AddWithValue("@inpamount", TextBox2.Text)
com.Parameters.AddWithValue("@inpdate", DateTimePicker1.Value.Date)
com.ExecuteNonQuery() con.Close() callme()

MsgBox("Record Inserted")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button4.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand

Dim da As New OleDbDataAdapter

VB.NET DHARM
JASOLIYA 48
202327027 SY-BCA A

Dim ds As New DataSet con.ConnectionString = strcon con.Open() com.Connection

= con com.CommandText = "select * from transaction_history" da.SelectCommand

= com da.Fill(ds) con.Close()

DataGridView1.DataSource = ds.Tables(0)

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As

System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
DataGridView1.CellContentClick

Dim con As New OleDbConnection

Dim com As New OleDbCommand

Dim da As New OleDbDataAdapter

Dim ds As New DataSet con.ConnectionString = strcon con.Open() com.Connection
= con com.CommandText = "select * from transaction_history" da.SelectCommand
= com da.Fill(ds) con.Close()

DataGridView1.DataSource = ds.Tables(0)

TextBox1.Text =
DataGridView1.Rows(e.RowIndex).Cells("tra_id").Value

ComboBox1.Text =
DataGridView1.Rows(e.RowIndex).Cells("acc_no").Value ComboBox2.Text =
DataGridView1.Rows(e.RowIndex).Cells("tra_type").Value

TextBox2.Text =
DataGridView1.Rows(e.RowIndex).Cells("amount").Value

DateTimePicker1.Text =
DataGridView1.Rows(e.RowIndex).Cells("tra_date").Value

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

VB.NET DHARM
JASOLIYA 49
202327027 SY-BCA A

System.EventArgs) Handles Button2.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand con.ConnectionString
= strcon con.Open() com.Connection = con
com.CommandText = "update transaction_history set
acc_no=@acid,tra_type=@inptype,amount=@inpamt,tra_date=@inpdat e where
tra_id=@inpid" com.Parameters.AddWithValue("@acid",
ComboBox1.SelectedValue)
com.Parameters.AddWithValue("@inptype", ComboBox2.SelectedItem)
com.Parameters.AddWithValue("@intamt", TextBox2.Text)
com.Parameters.AddWithValue("@inpdate", DateTimePicker1.Value.Date)
com.Parameters.AddWithValue("@tra_id", TextBox1.Text) com.ExecuteNonQuery()
con.Close()

MsgBox("Record Updated")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click

Dim con As New OleDbConnection

Dim com As New OleDbCommand con.ConnectionString
= strcon con.Open() com.Connection = con
com.CommandText = "delete from transaction_history where tra_id=@inpid"
com.Parameters.AddWithValue("@inpid", TextBox1.Text)
com.ExecuteNonQuery() con.Close()
MsgBox("Record Deleted")

End Sub

Public Sub callme()

Dim con As New OleDbConnection

Dim com As New OleDbCommand

VB.NET DHARM
JASOLIYA 50
202327027 SY-BCA A

Dim da As New OleDbDataAdapter Dim ds As New DataSet Dim i As

Integer con.ConnectionString = strcon con.Open() com.Connection = con

com.CommandText = "select * from transaction_history" da.SelectCommand = com

da.Fill(ds) con.Close() i = ds.Tables(0).Rows.Count - 1

Dim str As String = ds.Tables(0).Rows(i)("tra_type").ToString If

String.Compare(str, "CREDIT") = 0 Then con.Open() com.Connection = con
com.CommandText = "update account_master set balance=balance+@inpamt
where acc_no=@inpid" com.Parameters.AddWithValue("@inpamt",

TextBox2.Text) com.Parameters.AddWithValue("@inpid",
ComboBox1.SelectedValue) com.ExecuteNonQuery() con.Close()
ElseIfString.Compare(str, "DEBIT") = 0 Then con.Open()
com.Connection = con
com.CommandText = "update account_master set balance=balance-
@inpamt where acc_no=@inpid"

com.Parameters.AddWithValue("@inpamt", TextBox2.Text)
com.Parameters.AddWithValue("@inpid", ComboBox1.SelectedValue)
com.ExecuteNonQuery()
con.Close()

End If

End Sub

End Class

VB.NET DHARM
JASOLIYA 51
202327027 SY-BCA A

Output:-

VB.NET DHARM
JASOLIYA 52