Sub ActualizarCodVerificacion(iCodigo As Int, iUsuario As String, iEmail As String) As Boolean
Dim contador As Int
Main.objBBDD.BeginTransaction
Try
'Execute the sql statements.
Main.objBBDD.ExecNonQuery2("update usuarios set cod_verificacion=? where userid=? and email=?",Array As Object(iCodigo,iUsuario,iEmail))
contador=Main.objBBDD.ExecQuerySingleResult("select changes() as xval")
Main.objBBDD.TransactionSuccessful
If contador=0 Then
miResultado=false
Else
miResultado=true
End If
Catch
miResultado=False
End Try
Main.objBBDD.EndTransaction
Return miResultado
End Sub