Dim NOMBRE, CANTIDAD As String
Dim mensaje As Int
mensaje=Msgbox2("¿Desea eliminar un producto?", "Confirmación", "Si","","No",Null)
NOMBRE=B4XFloatTextFieldEliminar.Text
CANTIDAD=B4XPlusMinus1Cant11.MainLabel.Text & B4XPlusMinus2Cant22.MainLabel.Text&B4XPlusMinus3Cant33.MainLabel.Text
Select mensaje
Case DialogResponse.POSITIVE
sql1.ExecNonQuery("delete from inventario where NOMBRE= '"&borrarNombre&"')")
sql1.ExecNonQuery("delete from inventario where CANTIDAD= '"&borrarCantidad&"')")
ToastMessageShow("Se ha eliminado un producto", True)
StartActivity(Main)
Activity.Finish
Case DialogResponse.NEGATIVE
ToastMessageShow("Se ha cancelado la eliminacion", True)
StartActivity(Main)
Activity.Finish
End Select
' sql1.ExecNonQuery("delete from inventario WHERE NOMBRE='" & borrarNombre & "')")
' sql1.ExecNonQuery("delete from inventario WHERE CANTIDAD='" & borrarCantidad & "')")
' sql1.ExecNonQuery("Delete from inventario (NOMBRE, CANTIDAD) values ('"& NOMBRE &"', '"& CANTIDAD &"')")
MsgboxAsync("Producto Eliminado!", "OK")
Activity.RemoveAllViews
StartActivity(Main)
Activity.Finish