Tengo mi Aplicacion y en esta pantalla recojo los datos contenidos para actualizarlos. hago el update mediante el codigo.
Algo me falla que no Actualiza, porque cuando verifico los registros continua con los datos originales, alguien puede verificar mi codigo para encontrar el posible error? muchas gracias a todos.
B4X:
Sub Siguiente_Click
Dim IndiceMax, IDActualN As Int
IndiceMax=ListaLista.Size
IDActualN=ListaLista.SelectedIndex + 1
If IndiceMax = IDActualN Then
Activity.Finish
StartActivity(Activa_Camara)
Else
ListaLista.SelectedIndex=IDActualN
ObtenerNombreParametros
DefinirValorPar
ActualizaRegistro
End If
End Sub
Sub ActualizaRegistro
SQL1.ExecNonQuery("UPDATE t_extintor_det SET valor='" & Valor.Text & "' WHERE EMPRESA = '" & Variables.EXT_EMPRESA & "' AND folio='" & Variables.EXTIT_folio & "'")
End Sub
Algo me falla que no Actualiza, porque cuando verifico los registros continua con los datos originales, alguien puede verificar mi codigo para encontrar el posible error? muchas gracias a todos.