Hechen un ojo este codigo...........
Private Sub txtCodigo_KeyPress(Keyascii As Integer)
Dim porCien As Double
Dim elemento As ListItem
Dim dblNum As Double
Dim codProd As String
Dim nomProd As String
Dim precioProd As String
Dim cantProd As Integer
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
If Keyascii = 13 Then 'vbKeyReturn
db.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
db.Open sPathBase
'sql = "SELECT cod,producto,precio FROM " & idioma & " where cod like '" & txtCod.Text & "'"
sql = "SELECT cod,producto,precio FROM ESP where cod like '" & txtCodigo.Text & "'"
Set rs = db.Execute(sql)
If rs.BOF = True And rs.EOF = True Then
'Si no hay codigo de plato
MsgBox "Wala ang kodigo mong ipinasok.Seguraduhin mong tama.!", vbOKOnly, "Kodigo Spanish!"
txtCodigo.Text = "" 'limpiamos campo
Else
'Asignamos datos a variables
cantProd = InputBox("Ilan ang plato??", "Ilang ang plato??", 1)
codProd = rs.Fields("cod")
nomProd = rs.Fields("producto")
precioProd = rs.Fields("precio") 'No es necesario
sql = ""
'Miramos si ya han pedido
sql = "Select idMesa,idProducto,cantidad,idioma from Mesa where idMesa=" & txtMesa.Text & " and idProducto=" & txtCodigo.Text & ""
Set rs = db.Execute(sql)
'si no ha pedido ya
If rs.BOF = True And rs.EOF = True Then
sql = ""
sql = "Insert into Mesa (idMesa,idProducto,cantidad,idioma) values('" & numMesa & "','" & codProd & "','" & cantProd & "','" & idioma & "')"
Set rs = db.Execute(sql)
Else ' si ya han pedido hacemos update
sql = ""
cantProd = cantProd + rs.Fields("cantidad")
sql = "UPDATE Mesa set cantidad=" & cantProd & ""
sql = sql & " Where idMesa=" & txtMesa.Text & " and idProducto=" & codProd & ""
Set rs = db.Execute(sql)
End If
txtCodigo.Text = ""
Refresh 'No sirve
End If
Keyascii = 0 ' No pita
verDatosMesa factESP 'Llamo funcion para visualizar todos los platos que han pedido
Refresh
End If
Refresh
verDatosMesa factESP
End Sub
La funcion verDatosMesa -> hace un listado de lo que hay en la tablaMesa.
Pero lo que pasa en este codigo e q cuando se insierta el plato no se visualiza hasta el siguiente plato q agrego
es decir .....si agrego el codigo 1 no se visulizara hasta q no inserte otro plato.
Y el segundo no se visualizara hasta q se inserte el 3º
El problema es como si no hiciera un refresh.No se si el refresh es la mejor solucion....je je.
Simplemente el problema es al visualizar los datos lo que agrego.
Muchas gracias..
Ayuda por favor llevo toda la tarde intentando buscar informacion en el MSDN
