Ayuda con visual basic

[Zkaporci]

Estoy teniendo problemas con la funcion FindFirst para laburar en access a traves de visual basic.

Estoy tratando de que el programa encuentre en la tabla a los que se llamen Juan y le sume 100 anios a la edad.

Probe varias combinaciones, ahora la que tengo puesta es esta, que hace que se trabe todo.

Do While cons.Recordset.EOF = False
cond = "Paciente Like '*" & Juan & "*'"
cons.Recordset.FindFirst cond
    Do While cons.Recordset.NoMatch = False
    
    cons.Recordset.Edit
    cons.Recordset.Fields("Edad") = cons.Recordset.Fields("Edad").Value + 100
    cons.Recordset.Update
    cons.Recordset.FindNext cond
    Loop
Loop

el tema es que me suma 100 a todos, como que no me reconoce bien el Juan

[Zkaporci]

bueno logre que les sume solo a los juanes, pero les suma 32600..

Do While cons.Recordset.EOF = False
buscado = "Juan"
cond = "Paciente Like '*" & buscado & "*'"
cons.Recordset.FindFirst cond
    Do While cons.Recordset.NoMatch = False
    cons.Recordset.Edit
    cons.Recordset.Fields("Edad").Value = cons.Recordset.Fields("Edad").Value + 100
    cons.Recordset.Update
    cons.Recordset.FindNext cond
    Loop

Loop

[Zkaporci]

bueno logre que les sume solo a los juanes, pero les suma 32600..

Do While cons.Recordset.EOF = False
buscado = "Juan"
cond = "Paciente Like '*" & buscado & "*'"
cons.Recordset.FindFirst cond
    Do While cons.Recordset.NoMatch = False
    cons.Recordset.Edit
    cons.Recordset.Fields("Edad").Value = cons.Recordset.Fields("Edad").Value + 100
    cons.Recordset.Update
    cons.Recordset.FindNext cond
    Loop

Loop

[Gori]

mmm nunca trabaje asi con visual...
capaz es medio rustico, pero yo haria a full sql a ver si entendes la idea, algo asi...

sql="update (nombre de la tabla) set edad = edad + 100 where nombre = 'juan'"
conexion.execute(sql)
//o sea estas operando directamente con la tabla y no con el recordset(tabla en memoria)


conexion es:

Set conexion = CreateObject("adodb.connection")
conexion.Open "dsn=sistemas_uy", Usuario, UsuPass
//usuario es una variable con el nombre de usuario, usupass la contraseña. Estoy trabajando con DNS de sistema


entendes la idea?

[Zkaporci]

tengo que hacerlo SI O SI con findfirst en el visual
gracias igual

[Gori]

dale, mil perdones no te puedo ayudar, hace como 1 año q di visual nunca mas lo toque. foros de programacion son la movida boludo... o si no pones findfirst visual basic examples en google y te tienen q salir una plagaa mal

[.:·Rodri-Go·:.]

Desde mi conocimiento de "no entender nada", no debe ser algo con el tipo de datos? y suma 32000 porque 2^15= 32768bytes..
Fijate en access el tipo de datos del campo edad de la tabla y cambialo