Ingieneria

IDAT CHICLAYO
ASP .NET
CARRITO DE COMPRAS

Código Fuente:
Imports System.Data
Imports System.Data.SqlClient
Partial Class Default10
Inherits System.Web.UI.Page
Dim con As NewSqlConnection("user id=sa;data
source=(local);Initial catalog=ventas")
Dim cmd As SqlCommand
Dim dtb As New DataTable("Carrito")
Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e
AsSystem.Web.UI.WebControls.GridViewCommandEventArgs) Handles
GridView1.RowCommand
Dim f As GridViewRow = Me.GridView1.Rows(e.CommandArgument)
'Response.Write(f.Cells(0).Text)
'Obtiene el valor del campo claveDim cod As Integer =
Me.GridView1.DataKeys(e.CommandArgument).Value
'Obtiene el valor del cuadro de texto TextBox1
Dim t As TextBox = f.Cells(4).FindControl("textBox1")
If con.State =ConnectionState.Closed Then con.Open()

Ing. Juan Zevallos V.

1

IDAT CHICLAYO
cmd = New SqlCommand("select stock from productos where
codpro=" & cod & "", con)
Dim s As Integer = cmd.ExecuteScalarIf CInt(t.Text) > s Then
Me.Label2.Text = "Stock insuficiente"
Else
Dim pro As String = f.Cells(1).Text
Dim pre As String = CDbl(f.Cells(2).Text)
Dim tot As Double = pre * CDbl(t.Text)
Dim carAs New DataTable
car = Session("aux")
Dim fi As DataRow = car.NewRow
fi(0) = cod
fi(1) = pro
fi(2) = pre
fi(3) = CInt(t.Text)
fi(4) = tot
car.Rows.Add(fi)
'Response.Write(car.Rows.Count)Session("aux") = car
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim col1 As New DataColumn("Codigo",GetType(Integer))
Dim col2 As New DataColumn("Producto", GetType(String))
Dim col3 As New DataColumn("Precio", GetType(Double))
Dim col4 As New DataColumn("Cantidad", GetType(Integer))
Dim col5 As NewDataColumn("Total", GetType(Double))
dtb.Columns.Add(col1)
dtb.Columns.Add(col2)
dtb.Columns.Add(col3)
dtb.Columns.Add(col4)
dtb.Columns.Add(col5)
Session("aux") = dtb
End If
End Sub...