Ver Mensaje Individual
  #13 (permalink)  
Antiguo 10/07/2012, 14:08
thetemptation7
 
Fecha de Ingreso: junio-2012
Mensajes: 12
Antigüedad: 11 años, 10 meses
Puntos: 0
De acuerdo 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