Assignment=05
Q.1) Write a program to perform insert, update and delete in
your webform.
Coding:
Imports [Link]
Imports [Link]
Partial Class _Default
Inherits [Link]
Dim db_conn As New
OleDbConnection("Provider=[Link].4.0;Data
Source='C:\Users\ravip\Desktop\ravi prajapati\ASPNET\[Link]'")
Dim db_adepter As New OleDbDataAdapter("Select * from Table1",
db_conn)
Dim d_set As New DataSet
Dim query As String
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
db_conn.Open()
query = "Insert into Table1(Name,Address,PhoneNo) values
(@name,@add,@phone)"
Dim cmd As New OleDbCommand(query, db_conn)
[Link]("@name", [Link])
[Link]("@add", [Link])
[Link]("@phone", [Link])
[Link]()
d_set.Clear()
db_adepter.Fill(d_set, "Table1")
db_conn.Close()
[Link]()
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
db_conn.Open()
query = "update Table1 set Name=@name,PhoneNo=@phone where
Address=@add"
Dim cmd As New OleDbCommand(query, db_conn)
[Link]("@name", [Link])
[Link]("@phone", [Link])
[Link]("@add", [Link])
[Link]()
d_set.Clear()
Assignment=05
db_adepter.Fill(d_set, "Table1")
db_conn.Close()
[Link]()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
db_conn.Open()
query = "update Table1 set Name=@name,PhoneNo=@phone where
Address=@add"
Dim cmd As New OleDbCommand(query, db_conn)
[Link]("@name", [Link])
[Link]("@phone", [Link])
[Link]("@add", [Link])
[Link]()
d_set.Clear()
db_adepter.Fill(d_set, "Table1")
db_conn.Close()
[Link]()
End Sub
End Class
Output:
Insert:
Assignment=05
Update:
Delete: