Problemas buscando registro con Fibplus
Wenasss, estoy intentando buscar un registro con Fibplus en una base de datos Firebird, lo he intentado con SQL y con Locate, la busqueda la hago en un page en el cual tengo varios dbedits y varios botones, last, prior, next etc.
Con SQL uso este código:
FPuntvenda.Fdataartic1.SelectSQL.Clear;
FPuntvenda.Fdataartic1.SelectSQL.Add('SELECT * FROM ARTICLES WHERE CODIC ='+ cod);
FPuntvenda.Fdataartic1.AutoUpdateOptions.UpdateTableName := 'ARTICLES';
FPuntvenda.Fdataartic1.Open;
me lo hace perfecto pero despues la base de datos se me queda solo con este registro y yo solo quiero que lo busque no que me filtre la base de datos.
con locate uso este codigo:
if FPuntvenda.Fdataartic.LocatePrior('CODIC',cod,[loCaseInsensitive, loPartialKey])then
else
Application.MessageBox('No se encuentra'),
'Informaciò', MB_OK + MB_ICONINFORMATION);
tambien me lo hace bien,pero solo la primera vez¡¡ despues ya no hace nada, y no se porque, en fin os agradeceria vuestra opinion, muchas gracias a todos.
|