10/07/2012, 14:08
|
| | Fecha de Ingreso: junio-2012
Mensajes: 12
Antigüedad: 12 años, 6 meses Puntos: 0 | |
Respuesta: carrito d compras asp.net hola otra vez
les cuento q ya quedó
y les dejo el código x si alguien tiene el mismo problema Cita: Try
Dim comando As MySqlCommand = New MySqlCommand
comando.CommandText = "select max(NotaId) from tbl_notas"
comando.Connection = oCnn
Dim inc As Integer
inc = comando.ExecuteScalar() + 1
If DropDownList1.SelectedIndex = -1 Then
MsgBox("Debe seleccionar un cliente", vbInformation, "Aviso")
End If
Dim strSql As String = "insert into tbl_notas(NotaId,ClienteId,FechaHora) values ('" & inc & "', '" _
& DropDownList1.SelectedValue.ToString & "',now())"
Dim Comand As MySqlCommand = New MySqlCommand(strSql, oCnn)
Comand.ExecuteNonQuery()
Dim cor As Integer
Dim cmd2 As New MySqlCommand("select max(NotaId) from tbl_notas", oCnn)
cor = cmd2.ExecuteScalar()
For Each row As GridViewRow In GridView1.Rows
Dim Consulta As String = "insert into tbl_detallenotas (NotaId,ProductoId,Producto,Precio,Cantidad,Total) values('" & cor & "','" & row.Cells(1).Text & "','" & row.Cells(2).Text & "','" & CDec(row.Cells(3).Text) & "','" & CInt(row.Cells(4).Text) & "','" & CDec(row.Cells(5).Text) & "')"
Dim Comando2 As MySqlCommand = New MySqlCommand(Consulta, oCnn)
Comando2.ExecuteNonQuery()
Next
MsgBox("Su venta ha sido aceptada Generándose el número de nota : " & cor, vbInformation, "Confirmación")
Catch ex As Exception
MsgBox(ex.Message)
Finally
oCnn.Close()
End Try en el insert se debe concatenar entre apóstrofes y comillas si no marcarcará error y oCnn es donde tengo la cadena d conexión obviamente tendrán q colocar la suya según sea el caso, y lo d q no tomaba el valor del campo cantidad era xq en el grid d la página CarritoCompra.aspx lo tenía como templatefield con el textbox, solo lo cambié x boundfield y listo con eso ya tomó el valor
nuevamente gracias x tomarse el tiempo para responder |