ASP-WEB-APP

Imports System.Data Imports System.Data.OleDb Public Class viewitem

Inherits System.Web.UI.Page

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Admin\Documents\shopingcart.mdb"

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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 item" da.SelectCommand = com

da.Fill(ds) con.Close()

GridView1.DataSource = ds.Tables(0) GridView1.DataBind()

End Sub

 

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As 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 item where iname like '@pname*'" com.Parameters.AddWithValue("@pname", txtsearch.Text) da.SelectCommand = com

da.Fill(ds) con.Close()

GridView1.DataSource = ds.Tables(0) GridView1.DataBind()

End Sub

 

 

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.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 item where price > @pprice" com.Parameters.AddWithValue("@pprice", txtsearchprice.Text) da.SelectCommand = com

da.Fill(ds) con.Close()

GridView1.DataSource = ds.Tables(0) GridView1.DataBind()

End Sub

 

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As 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 item where price between @lowprice and @highprice"

com.Parameters.AddWithValue("@lowprice", txtspricelow.Text) com.Parameters.AddWithValue("@highprice", txtspricehigh.Text) da.SelectCommand = com

da.Fill(ds)

con.Close()

GridView1.DataSource = ds.Tables(0) GridView1.DataBind()

End Sub

 

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As 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 Dim strq As String

 

strq = "Select * From item where price" + drpsearch.SelectedItem.Text + "@pprice" com.CommandText = strq

com.Parameters.AddWithValue("@pprice", txtsearchpricebydrp.Text) da.SelectCommand = com

da.Fill(ds) con.Close()

GridView1.DataSource = ds.Tables(0) GridView1.DataBind()

End Sub End Class

\

Imports System.Data Imports System.Data.OleDb Public Class add_item

Inherits System.Web.UI.Page

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Admin\Documents\shopingcart.mdb"

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

 

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

Dim con As New OleDbConnection Dim com As New OleDbCommand Dim strimage As String = ""

Dim strpath As String Dim strfullpath As String

con.ConnectionString = strcon con.Open()

com.Connection = con

If FileUpload1.HasFile Then strimage = FileUpload1.FileName

strpath = Server.MapPath("/image/") strfullpath = strpath + strimage FileUpload1.SaveAs(strfullpath)

End If

com.CommandText = "insert into item(iname,[image]) values (@pname,@pimage)" com.Parameters.AddWithValue("@pname", txtname.Text) com.Parameters.AddWithValue("@pimage", strimage)

com.ExecuteNonQuery() con.Close()

End Sub End Class

 

 

Imports System.Data Imports System.Data.OleDb Public Class Update_item

Inherits System.Web.UI.Page

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Admin\Documents\shopingcart.mdb"

 

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim item_id As Integer = Convert.ToInt32(Request.QueryString("item_id").ToString()) If Not (Page.IsPostBack) Then

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 item where item_id=@pitemid" com.Parameters.AddWithValue("@pitemid", item_id) da.SelectCommand = com

da.Fill(ds) con.Close()

txtid.Text = ds.Tables(0).Rows(0)("item_id").ToString txtname.Text = ds.Tables(0).Rows(0)("iname").ToString HiddenField1.Value = ds.Tables(0).Rows(0)("image").ToString Image1.ImageUrl = "~/image/" + HiddenField1.Value

End If End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

Dim item_id As Integer = Convert.ToInt32(Request.QueryString("item_id").ToString()) 'coding for update item

Dim con As New OleDbConnection Dim com As New OleDbCommand Dim strimage As String = ""

Dim strpath As String Dim strfullpath As String

con.ConnectionString = strcon con.Open()

com.Connection = con

If FileUpload1.HasFile Then strimage = FileUpload1.FileName

strpath = Server.MapPath("/image/") strfullpath = strpath + strimage FileUpload1.SaveAs(strfullpath)

Else

strimage = HiddenField1.Value End If

com.CommandText = "update item set iname=@pname and [image]=@pimage where item_id=@pitemid"

com.Parameters.AddWithValue("@pname", txtname.Text)

com.Parameters.AddWithValue("@pimage", strimage) com.Parameters.AddWithValue("@pitemid", item_id) Dim i As Integer = com.ExecuteNonQuery()

con.Close() Response.Redirect("viewitem.aspx")

 

End Sub End Class