Mensajes

Puedes hacerlo así:

Código (vb) [Seleccionar] Expandir

Dim buscado as string, criterio as string

buscado =  InputBox("Ingrese criterio a buscar")
if buscado = "" then exit sub
criterio = "campo_basededatos LIKE '%" & buscado & "%'  [notadekarmany]Es para decir que contiene. Si es para decir comienza hay que quitar el primer %. Y si es exactamente la búsqueda hay que quitar los dos %. Si trabajas con DAO tienes que cambiar los % por *.[/notadekarmany]

ado01.Recordset.MoveFirst
ado01.Recordset.Find criterio
if ado01.Recordset.EOF then
  ado01.Recordset.Movelast
  msgbox "no existe"
end if

Pon el código exacto y el nombre de los campos. Tiene que ser algo sencillo.

[04 de junio de 2010 - Actualización OllyDBG version 2 final release]

04 de junio de 2010 - Actualización OllyDBG version 2 final release

Aunque poco a poco, ya salió por fin la versión 2 de OllyDBG esperadísima. El día 02 de junio hizo su aparición y dos días después tuvo que corregir algunos errores.
Veremos si esta nueva versión planta cara en un futuro a la versión 1.10.

Su página web:
http://www.ollydbg.de/

Gracias y felicidades a los dos por el trabajo.
He guardado el Crackme en mi DD.

Gracias Dreamaker por la ayuda. Al final sigo utilizando la mía que no falla.

He probado tu ejemplo pero no siempre funciona.
Por ejemplo, a dos decimales:


INICIAL         FINAL
=====================
3.123    -->    3,12   Correcto
3.128    -->    3,12   Correcto
3.12     -->    3,11   No correcto
3.19     -->    3,19   Correcto
3.002    -->    3      Correcto
3.009    -->    3      Correcto
3.03     -->    3,02   No correcto
3.09     -->    3,08   No correcto
3.2      -->    3,2    Correcto
3.9      -->    3,9    Correcto

He probado tu ejemplo con la función CSng en vez de Val, pero hace lo mismo. Pienso que la solución es manejar la cantidad como una String.

Es posible también también que el error se produzca, no porque un campo esté vacío sino porque el campo sea nulo. Este error es muy común, más cuando se trabaja con fechas. Cuando trabajes con valores nulos, haz lo siguiente:
Text1.Text = "" & textonulo 'evitas el error
valor = val("0" & texto_de_valornulo) 'Val, Csng etc... trabajar con valores numéricos.

Un manual muy básico por ej. aquí:
http://www.frro.utn.edu.ar/repositorio/catedras/electrica/2_anio/fundamentos_informatica/apuntes/Conectar_a_base_de_datos.pdf

Luego, uno muy bueno que yo recomiendo cuando ya se sabe es éste:
http://www.scribd.com/doc/5780550/Capitulo-14-Visual-Basic

Yo programo usando ADO y utilizando reportes con Data Report es sencillo y el Data Report es gratuito.

Después de buscar y rebuscar y de probar he encontrado la solución.
Primeramente decir que no he encontrado ninguna función en VB que trunque los decimales. Ni FormatNumber, ni Format, ni Round ni ninguna otra funcionan, así que he tenido que convertir el número en cadena y después trabajar con él.

Pongo el código para ver si a alguien le puede ayudar:

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim WithEvents formato As StdDataFormat

Private Sub DataReport_Initialize()
    Set formato = New StdDataFormat
    Set Sections("detalle").Controls("Texto4").DataFormat = formato
End Sub

Private Sub formato_Format(ByVal DataValue As StdFormat.StdDataValue)
    Dim i As Integer, cadena As String
    cadena = DataValue.Value
    i = InStr(cadena, ",")
    If i Then DataValue.Value = Left(cadena, i + 2)
End Sub

Para gente que no sabe descomprimir un UPX hay programas que lo hacen automáticamente, por ejemplo PEExplorer tiene un plugin muy bueno.

También es posible intentarlo con el mismo UPX.

Hace unos días salió una nueva herramienta que también te lo descomprime automáticamente:
Faster Universal Unpacker, se puede descargar desde:
http://code.google.com/p/fuu/

En consola tampoco he visto la opción...

De todos modos me parece algo raro ya que la ruta mis documentos\data no es una ruta común de molebox. Por eso yo sigo pensando que se trata del juego.

Yo haría pruebas; usa molebox solamente con el exe del juego, no lo comprimas ni lo encriptes para hacer pruebas. Verifica también si el juego (antes de comprimir con molebox) tiene alguna opción de ruta para guardar los save.lsd. Mira a ver si el juego tiene algún archivo ini o similar, ya que si se extrae en otro directorio es posible que pueda modificar el patch del juego...
Incluye sólo archivos ocx dll etc.. en un primer momento, no incluyas otros tipos de archivo...