Variable session a DB

estlui · #1 (**permalink**) 23/04/2009, 11:11

Buenas, gracias por toda la ayuda que me otorgan...

Tengo una especie de carrito de compras, la diferencia es que el usuario captura en unos textbox lo que requiere, mas bien es una orden de compra .....

Con la ayuda de este foro me recomendaron usar variables de session para ir mostrando en un gridview lo que el usuario va capturando (como partidas en un formato), lo que no se como hacer es: como enviar a una tabla de la base de datos todo el contenido de la variables de session, puede ser desde una fila hasta N filas, para que se guarde la informacion de lo que esta requiriendo.

Esta es mi funcion para crear el carrito:

Código:

Function carrito()
        objDT = New System.Data.DataTable("myCarrito")
        'objDT.Columns.Add("ID", GetType(Integer))
        'objDT.Columns("ID").AutoIncrement = True
        'objDT.Columns("ID").AutoIncrementSeed = 1
        objDT.Columns.Add("numero_carrito", GetType(String))
        objDT.Columns.Add("descripcion", GetType(String))
        objDT.Columns.Add("unidad_medida", GetType(String))
        objDT.Columns.Add("cantidad", GetType(Integer))
        objDT.Columns.Add("precio_unitario", GetType(Double))
        objDT.Columns.Add("total_mx", GetType(Double))
        objDT.Columns.Add("total_us", GetType(Double))
        objDT.Columns.Add("centro_costos", GetType(String))
        objDT.Columns.Add("cuenta_gl", GetType(String))
        objDT.Columns.Add("cuenta", GetType(String))
        Session("myCarrito") = objDT
    End Function

Y este es mi codigo para ir agregando al datatable lo que el usuario requiere:

Código:

Protected Sub btn_agregar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_agregar.Click
        objDT = Session("myCarrito")
        objDR = objDT.NewRow
        objDR("numero_carrito") = Me.lb_carrito.Text
        objDR("descripcion") = Me.tb_desc.Text
        objDR("unidad_medida") = Me.ddl_unidad.SelectedValue
        objDR("cantidad") = Me.tb_cantidad.Text
        objDR("precio_unitario") = Decimal.Parse(Me.tb_precio.Text)
        objDR("total_mx") = Decimal.Parse(Me.lb_totalMX.Text)
        objDR("total_us") = Decimal.Parse(Me.lb_totalUS.Text)
        objDR("centro_costos") = Me.ddl_centrocostos.SelectedValue
        objDR("cuenta_gl") = Me.ddl_cuentaGL.SelectedValue
        objDR("cuenta") = Me.lb_cuenta.Text
        objDT.Rows.Add(objDR)
        Session("myCarrito") = objDT
        Me.GV_carrito.DataSource = objDT
        Me.GV_carrito.DataBind()
        Me.lb_ODC_pesos.Text = "$" & total_mx()
        Me.lb_ODC_dolares.Text = "$" & total_dlls()
        Me.tb_desc.Text = ""
        Me.ddl_unidad.SelectedIndex = 0
        Me.tb_cantidad.Text = ""
        Me.tb_precio.Text = ""
        Me.lb_totalMX.Text = ""
        Me.lb_totalUS.Text = ""
        Me.ddl_centrocostos.SelectedIndex = 0
        Me.ddl_cuentaGL.SelectedIndex = 0
        Me.tb_desc.Focus()
    End Sub

Muchisimas gracias a todos!!!

Trulala de cordoba · #2 (**permalink**) 23/04/2009, 17:50

Hola como te va.

La idea es que en tu variables de sessión guardes un datatable y o un dataset ¿Si?
Bueno, una vez que ya tienes todo listo para guardar en realidad ya no necesitas usar la variables de session, sino que necesitas convertir tu variable de session a una datatable (o dataset) osea una cast (conversion) de datos.

En vb.net creo que era algo así:

Dim myTabla As DataTable= CType(session("miCarrito", DataTable)

Eso lo que te estaría haciendo es convertir tu session a un DataTable. Ahora solo debe recorrer tu DataTable con un for Each recorriendo los registros (DataTable.Rows) y guardarlo en la base o lo que sea.

Incluso a esto del Ctype lo deberías usar para obtener el dataTable (o dataSet) para despues pasarcelo al datasource de la grilla que muestra el carrito.

Esa es la idea, cualquier duda avisa. Suerte.

Trulala de cordoba · #3 (**permalink**) 23/04/2009, 18:56

Te paso un ejemplo que te puede servir, tiene los metodos para agregar y quitar productos, fijate que también si ya existe el producto y agregas un producto existente suma la cantidad. También veras que toma el id del producto que viene en este caso de la grilla, vos lo podes adaptar o usar o comparar con el tuyo a tu gusto.

Código:

    Protected Sub AgregarCarrito(ByVal index)
        Dim id As Integer = grid1.DataKeys.Item(index).Value
        If Session("carrito") Is Nothing Then
            CrearCarrito()
        End If
        Dim tabla As DataTable = Session("carrito")
        If tabla.Rows.Contains(id) Then
            tabla.Rows.Find(id).Item("prod_cantidad") += 1
        Else
            Dim fila As DataRow = tabla.NewRow
            fila("id_producto") = id
            fila("prod_nombre") = CType(grid1.Rows(index).FindControl("lblNombre"), Label).Text
            fila("prod_cantidad") = 1
            tabla.Rows.Add(fila)
        End If
    End Sub
    Protected Sub CrearCarrito()
        Dim Tabla As New DataTable
        Tabla.Columns.Add("id_producto", GetType(Integer))
        Tabla.Columns.Add("prod_nombre", GetType(String))
        Tabla.Columns.Add("prod_cantidad", GetType(Integer))
        Tabla.Columns.Add("prod_alquilar", GetType(Boolean)).DefaultValue = 0
        Dim Clave() As DataColumn = {Tabla.Columns("id_producto")}
        Tabla.PrimaryKey = Clave
        Session("carrito") = Tabla
    End Sub

    Protected Sub ComandoControlar(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles grid1.RowCommand
        If e.CommandName = "CarritoAgregar" Then
            AgregarCarrito(e.CommandArgument)
        Else
            PeliculaAlquilar(e.CommandArgument)
        End If
    End Sub
    Protected Sub PeliculaAlquilar(ByVal index)
        If Session("carrito") Is Nothing Then
            CrearCarrito()
        End If
        Dim tabla As DataTable = Session("carrito")
        Dim id As Integer = grid1.DataKeys.Item(index).Value
        If tabla.Rows.Contains(id) Then
            tabla.Rows.Find(id).Item("prod_cantidad") += 1
        Else
            Dim fila As DataRow = tabla.NewRow
            fila("id_producto") = id
            fila("prod_nombre") = CType(grid1.Rows(index).FindControl("lblNombre"), Label).Text
            fila("prod_cantidad") = 1
            fila("prod_alquilar") = 1
            tabla.Rows.Add(fila)
        End If
    End Sub

Protected Sub CarritoQuitar(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs)
        Try
            Dim tabla As DataTable = Session("carrito")
            Dim id As Integer = GridCarrito.DataKeys.Item(e.RowIndex).Value
            If tabla.Rows.Find(id).Item("prod_cantidad") > 1 Then
                tabla.Rows.Find(id).Item("prod_cantidad") -= 1
            Else
                tabla.Rows.Find(id).Delete()
            End If
            GridCarrito.DataSource = tabla
            GridCarrito.DataBind()
        Catch ex As Exception
            Response.Write("A ocurrido un error: " & ex.Message)
        End Try
    End Sub

Recorrer los registros de una datatable:

For Each xRegistro As DataRow In tabla.Rows

Next

estlui · #4 (**permalink**) 27/04/2009, 15:25

Gracias de nuevo Trulala de cordoba....

he intentado hacer los tutos que me enviaste, pero no me sale lo de eliminar algun articulo, en mi programa no importa que haya articulos repetidos.

me sale este error, y no se porque, ya he buscado informacion en internet pero no he encontrado algo que me ayude:

The GridView 'GV_carrito' fired event RowDeleting which wasn't handled

Gracias

Trulala de cordoba · #5 (**permalink**) 27/04/2009, 17:09

"The GridView 'GV_carrito' fired event RowDeleting which wasn't handled"

Hola. Ese error te estas diciendo que estas invocando ese evento pero no lo has creado el manejador, es decir que desde algún botón estás llamando a que se ejecute ese evento pero no esta creado. Para ello hace clic en tu gridview y dale propiedades y en la ventanita de propiedades anda a eventos y hace doble clic en el evento dicho "RowDeleting" para que te genere el visual el evento (como cuando hace doble clic a un botón) y ahi debe manejar lo que queres hace al eliminar
Ojo, no te confundas con otro evento parecido RowDeleted sino usa RowDeleting.
Avisa cualquier cosa.

estlui · #6 (**permalink**) 07/05/2009, 09:59

Trulala de cordoba...!!!

Excelente ayuda, muchisimas gracias....

......con tu ayuda he avanzado mucho en mejorar mi proyecto.

Me ha servidor bastante tu ayuda.

Gracias!!

estlui · #7 (**permalink**) 14/05/2009, 09:02

Hola Trulala de cordoba, muchas gracias por tu ayuda....

Un ultimo tip, por favor..... ya termine la mejora a mi aplicacion y al estar probandolo note un comportamiento medio raro en el gridview que se llena con un datatable.....

vamos por pasos....:

- Al cargar la pagina, se crea el carrito contenedor en una variable de session que va llenando un DataTable con las columnas que necesito.

- Despues con un boton voy agregando registros al DataTable Session y los voy mostrando en un GridView.

- Dentro del GridView puse un boton, que se repite en cada registro del Grid, que sirve para eliminar el registro que se seleccione.

-->> Lo raro del asunto es que en ocaciones despues de llenar el Grid y quiero eliminar algun registro me manda este error: ERROR: There is no row at position 0, y digo que en ocaciones porque a veces funciona muy bien.... puede madar el error cuando tiene uno o varios registros..... y puede aparecer ERROR: There is no row at position 1.

Que sucedera?

Este es mi codigo para agregar al datatable el registro capturado:

Código:

Protected Sub btn_agregar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_agregar.Click
        Try
            Me.lb_error_partida.Text = ""
            objDT = Session("myCarrito")
            objDR = objDT.NewRow
            Me.labelerror.Text = objDT.Rows.Count
            objDR("numero_carrito") = Me.lb_carrito.Text
            objDR("descripcion") = Me.tb_desc.Text
            If Me.ddl_unidad.SelectedValue = "" Then
                Me.lb_error_partida.Text = "Debe seleccionar la unidad de medida."
                Exit Sub
            Else
                objDR("unidad_medida") = Me.ddl_unidad.SelectedValue
            End If
            objDR("cantidad") = Me.tb_cantidad.Text
            objDR("precio_unitario") = Decimal.Parse(Me.tb_precio.Text)
            objDR("total_mx") = Decimal.Parse(Me.lb_totalMX.Text)
            objDR("total_us") = Decimal.Parse(Me.lb_totalUS.Text)
            If Me.ddl_centrocostos.SelectedValue = "" Then
                Me.lb_error_partida.Text = "Debe seleccionar el centro de costos."
                Exit Sub
            Else
                objDR("centro_costos") = Me.ddl_centrocostos.SelectedValue
                objDR("depto") = Me.lb_depto.Text
            End If
            If Me.ddl_cuentaGL.SelectedValue = "" Then
                Me.lb_error_partida.Text = "Debe seleccionar la cuenta GL."
                Exit Sub
            Else
                objDR("cuenta_gl") = Me.ddl_cuentaGL.SelectedValue
            End If
            objDR("cuenta") = Me.lb_cuenta.Text
            objDT.Rows.Add(objDR)
            Session("myCarrito") = objDT
            Me.GV_carrito.DataSource = objDT
            Me.GV_carrito.DataBind()
            Me.lb_ODC_pesos.Text = FormatCurrency(total_mx())
            Me.lb_ODC_dolares.Text = FormatCurrency(total_dlls())
            Me.lb_odc_2.Text = FormatCurrency(total_2())
            Me.lb_odc_3.Text = FormatCurrency(total_3())
            Me.lb_odc_5.Text = FormatCurrency(total_5())
            Me.lb_odc_9.Text = FormatCurrency(total_9())
            Me.lb_saldo_2.Text = FormatCurrency(saldo_2())
            Me.lb_saldo_3.Text = FormatCurrency(saldo_3())
            Me.lb_saldo_5.Text = FormatCurrency(saldo_5())
            Me.lb_saldo_9.Text = FormatCurrency(saldo_9())
            Me.tb_desc.Text = ""
            Me.ddl_unidad.SelectedIndex = 0
            Me.tb_cantidad.Text = ""
            Me.tb_precio.Text = ""
            Me.lb_totalMX.Text = ""
            Me.lb_totalUS.Text = ""
            Me.ddl_centrocostos.SelectedIndex = 0
            Me.ddl_cuentaGL.SelectedIndex = 0
            Me.tb_desc.Focus()
            Me.Enviar.Enabled = True
            Me.GV_carrito.DataBind()
        Catch ex As Exception
            Beep()
            Me.lb_error_partida.Text = "*** Debe de llenar todos los campos de la partida y los datos deben de ser los adecuados. ***"
        End Try
    End Sub

Y este es para eliminar el registro al darle clic en su boton:

Código:

Protected Sub GV_carrito_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GV_carrito.RowDeleting
        Try
            objDT = Session("myCarrito")
            objDT.Rows(e.RowIndex).Delete()
            Session("myCarrito") = objDT
            Me.GV_carrito.DataSource = objDT
            Me.GV_carrito.DataBind()
            Me.lb_ODC_pesos.Text = total_mx()
            Me.lb_ODC_dolares.Text = total_dlls()
            Me.lb_odc_2.Text = total_2()
            Me.lb_odc_3.Text = total_3()
            Me.lb_odc_5.Text = total_5()
            Me.lb_odc_9.Text = total_9()
            Me.lb_saldo_2.Text = saldo_2()
            Me.lb_saldo_3.Text = saldo_3()
            Me.lb_saldo_5.Text = saldo_5()
            Me.lb_saldo_9.Text = saldo_9()
        Catch ex As Exception
            Me.labelerror.Text = "ERROR: " & ex.Message
        End Try


    End Sub

Muchisimas gracias!!!

Trulala de cordoba · #8 (**permalink**) 16/05/2009, 16:41

Hola.
Seguramente el error te debe saltar aca:
objDT.Rows(e.RowIndex).Delete()

Lo que pasa es que primero no estas preguntado si tiene datos y además le estás mandando como indice el número de fila de la grilla para eliminar. Deberías buscar primero en el datatable por código del campo a eliminar. Fijate como está el ejemplo del eliminar que te puse arriba de todo:

Dim tabla As DataTable = Session("carrito")
Dim id As Integer = GridCarrito.DataKeys.Item(e.RowIndex).Value
If tabla.Rows.Find(id).Item("prod_cantidad") > 1 Then
tabla.Rows.Find(id).Item("prod_cantidad") -= 1
Else
tabla.Rows.Find(id).Delete()
End If

Es distinto como está ell tuyo, pero fijate que lo importante ahí que se busca primero si existe el campo a eliminar y usa como parametro el dato a eliminar.

estlui · #9 (**permalink**) 18/05/2009, 08:23

de nuevo gracias....

Sabes, modifique el codigo y asi quedo:

Código:

Dim tabla As DataTable = Session("myCarrito")
Dim id As Integer = Me.GV_carrito.DataKeys.Item(e.RowIndex).Value
tabla.Rows.Find(ID).Delete()
Me.GV_carrito.DataSource = tabla
Me.GV_carrito.DataBind()

En Me.GV_carrito.DataKeys.Item(e.RowIndex).Value me carga el valor de RowIndex, pero no me pasa el valor a la variable Id, en ves de eso me pone: _page y me manda a la seccion de Catch ex As Exception.

Gracias

Trulala de cordoba · #10 (**permalink**) 19/05/2009, 19:00

Hola.
Lo que pasa es que en tu grilla tenes que poner el datakey a usar:

<asp: GridView ID="GridView1" runat="server" DataKeyNames="ProductoID"

También en tu variable de sessión de carrito debes tener este campo para poder buscar por el mismo.

Suerte!!

spike1411 · #11 (**permalink**) 18/10/2009, 15:32

Hola Trulala de cordoba!!!
buscando respuesta para desarrollar un carritode compra me di con tus respuestas, bueno en si algunas cosas ya las avias aplicado pero otras no!, me doi cuenta que sabs mucho de codigo bueno te paso mi correo [email protected]..... me gustaria que me agregaras bueno pa poder compatir conocimiento y dudas! bueno gracias x tu respuesta cuidate mcho Johan

bacter · #12 (**permalink**) 20/10/2009, 20:52

Hola soy nuevo en el mundo de asp me he encontrado con este post y pues tengo el mismo problema solo tengo una duda donde y como declaras la variable de sesion cono la asignas a un datatable y como la guardas para posteriormente utilizarla de ante mano gracias

Cita:

Iniciado por estlui

Hola Trulala de cordoba, muchas gracias por tu ayuda....

Un ultimo tip, por favor..... ya termine la mejora a mi aplicacion y al estar probandolo note un comportamiento medio raro en el gridview que se llena con un datatable.....

vamos por pasos....:

- Al cargar la pagina, se crea el carrito contenedor en una variable de session que va llenando un DataTable con las columnas que necesito.

- Despues con un boton voy agregando registros al DataTable Session y los voy mostrando en un GridView.

- Dentro del GridView puse un boton, que se repite en cada registro del Grid, que sirve para eliminar el registro que se seleccione.

-->> Lo raro del asunto es que en ocaciones despues de llenar el Grid y quiero eliminar algun registro me manda este error: ERROR: There is no row at position 0, y digo que en ocaciones porque a veces funciona muy bien.... puede madar el error cuando tiene uno o varios registros..... y puede aparecer ERROR: There is no row at position 1.

Que sucedera?

Este es mi codigo para agregar al datatable el registro capturado:

Código:

Protected Sub btn_agregar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_agregar.Click
        Try
            Me.lb_error_partida.Text = ""
            objDT = Session("myCarrito")
            objDR = objDT.NewRow
            Me.labelerror.Text = objDT.Rows.Count
            objDR("numero_carrito") = Me.lb_carrito.Text
            objDR("descripcion") = Me.tb_desc.Text
            If Me.ddl_unidad.SelectedValue = "" Then
                Me.lb_error_partida.Text = "Debe seleccionar la unidad de medida."
                Exit Sub
            Else
                objDR("unidad_medida") = Me.ddl_unidad.SelectedValue
            End If
            objDR("cantidad") = Me.tb_cantidad.Text
            objDR("precio_unitario") = Decimal.Parse(Me.tb_precio.Text)
            objDR("total_mx") = Decimal.Parse(Me.lb_totalMX.Text)
            objDR("total_us") = Decimal.Parse(Me.lb_totalUS.Text)
            If Me.ddl_centrocostos.SelectedValue = "" Then
                Me.lb_error_partida.Text = "Debe seleccionar el centro de costos."
                Exit Sub
            Else
                objDR("centro_costos") = Me.ddl_centrocostos.SelectedValue
                objDR("depto") = Me.lb_depto.Text
            End If
            If Me.ddl_cuentaGL.SelectedValue = "" Then
                Me.lb_error_partida.Text = "Debe seleccionar la cuenta GL."
                Exit Sub
            Else
                objDR("cuenta_gl") = Me.ddl_cuentaGL.SelectedValue
            End If
            objDR("cuenta") = Me.lb_cuenta.Text
            objDT.Rows.Add(objDR)
            Session("myCarrito") = objDT
            Me.GV_carrito.DataSource = objDT
            Me.GV_carrito.DataBind()
            Me.lb_ODC_pesos.Text = FormatCurrency(total_mx())
            Me.lb_ODC_dolares.Text = FormatCurrency(total_dlls())
            Me.lb_odc_2.Text = FormatCurrency(total_2())
            Me.lb_odc_3.Text = FormatCurrency(total_3())
            Me.lb_odc_5.Text = FormatCurrency(total_5())
            Me.lb_odc_9.Text = FormatCurrency(total_9())
            Me.lb_saldo_2.Text = FormatCurrency(saldo_2())
            Me.lb_saldo_3.Text = FormatCurrency(saldo_3())
            Me.lb_saldo_5.Text = FormatCurrency(saldo_5())
            Me.lb_saldo_9.Text = FormatCurrency(saldo_9())
            Me.tb_desc.Text = ""
            Me.ddl_unidad.SelectedIndex = 0
            Me.tb_cantidad.Text = ""
            Me.tb_precio.Text = ""
            Me.lb_totalMX.Text = ""
            Me.lb_totalUS.Text = ""
            Me.ddl_centrocostos.SelectedIndex = 0
            Me.ddl_cuentaGL.SelectedIndex = 0
            Me.tb_desc.Focus()
            Me.Enviar.Enabled = True
            Me.GV_carrito.DataBind()
        Catch ex As Exception
            Beep()
            Me.lb_error_partida.Text = "*** Debe de llenar todos los campos de la partida y los datos deben de ser los adecuados. ***"
        End Try
    End Sub

Y este es para eliminar el registro al darle clic en su boton:

Código:

Protected Sub GV_carrito_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GV_carrito.RowDeleting
        Try
            objDT = Session("myCarrito")
            objDT.Rows(e.RowIndex).Delete()
            Session("myCarrito") = objDT
            Me.GV_carrito.DataSource = objDT
            Me.GV_carrito.DataBind()
            Me.lb_ODC_pesos.Text = total_mx()
            Me.lb_ODC_dolares.Text = total_dlls()
            Me.lb_odc_2.Text = total_2()
            Me.lb_odc_3.Text = total_3()
            Me.lb_odc_5.Text = total_5()
            Me.lb_odc_9.Text = total_9()
            Me.lb_saldo_2.Text = saldo_2()
            Me.lb_saldo_3.Text = saldo_3()
            Me.lb_saldo_5.Text = saldo_5()
            Me.lb_saldo_9.Text = saldo_9()
        Catch ex As Exception
            Me.labelerror.Text = "ERROR: " & ex.Message
        End Try


    End Sub

Muchisimas gracias!!!