Problemas con una Consulta.

[DeLiRioS]

Hola amigos, si alquien me hecha una manita. Uso Delphi 7, y MySql, Mysql Font, mi programa al darle click al boton "buscar" me muestra el registro siguiente y no el que busco, y si le hago click nuevamente recien ahi me muestra lo que buscaba. Este es mi codigo:

procedure TFrm_Editar.Button1Click(Sender: TObject);
Begin
If (DM.Expedientes.Locate('codigo',Edt_Buscar.Text,[]) = True) Then
Begin
Edt_Causante.Text := DM.Expedientes.FieldByName('Causante').DisplayText;
End;
end;


Se los voy agradecer.

[[Lepe]]

No tiene lógica, el código debería funcionar, quizás con locaseinsensitive llegue mejor al resultado en las opciones del locate.

Saludos

[DeLiRioS]

Quizas me exprese un poco mal. Lo que quiero decir es lo siguiente:
Supongamos tengo 8 registros, si busco el 2, me muestra el siguiente osea el 3. Si busco el 6 me muestra el 7 y asi. Pero si le doy 2 click encuentra el registro q busco.

1
2
3
4
5
6
7
8

Y ese codigo q puse lo use en otro programita y funciona muy bien. :S que podría ser.?

[vtdeleon]

Empezado por Lepe

No tiene lógica, el código debería funcionar,...

Lo mismo digo.

Empezado por Delirios

Quizas me exprese un poco mal. Lo que quiero decir es lo siguiente:
Supongamos tengo 8 registros, si busco el 2, me muestra el siguiente osea el 3. Si busco el 6 me muestra el 7 y asi. Pero si le doy 2 click encuentra el registro q busco.

Es extra~o el comportameinto.

[[Lepe]]

Para intentar buscarle alguna explicación, seguro que tienes algún fallo colateral, por ejemplo en el evento afterScroll haces algo que hace avanzar el registro hacia delante.... no es esta causa en sí misma, sino algo parecido lo que puede estar pasando, algo que haces en otro evento, está afectando cuando haces el locate.

Quizás lo he enredado más.... no sé ...

Saludos

[DeLiRioS]

Hola de nuevo, pues lo que dice lepe puede que tenga razon , quizas algo efecto colateral. Lo que hice por el momento es escribir 2 veces la linea del locate

If (DM.Expedientes.Locate('codigo',Edt_Buscar.Text,[]) = True) Then
If (DM.Expedientes.Locate('codigo',Edt_Buscar.Text,[]) = True) Then

Aunque sea tonto pero asi funciona. Desde ya muchas gracias amigos, les estoy agradecido por su atención saludos desde Argentina.-