|
No me llega a funcionar pongo como sql lo siguiente:
select * from CLIENTES where codigo like:a
Luego en Código lo siguiente, lo tengo puesto que al pulsar return, se posicione la tabla en ese registro y pueda ver todos sus campos en los distintos edit's,
procedure TFormClientes.EditCodigoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{var
Busqueda:boolean;
Opcion:tlocateoptions;}
var
a,resultado:integer;
begin
if key=vk_return then
begin
a:=strtoint(EditCodigo.Text);
MyQuery.close;
Myquery.ParamByName('CODIGO').AsInteger:=a ;
Myquery.Open;
if Myquery.RecordCount > 0 then
begin
Resultado := Myquery.FIeldByName('Codigo').asInteger;
end
else
Resultado := -1;
MYquery.close;
end;
Pero me sale como error que el Parametro Codigo no found, luego si anulo la línea "Resultado := Myquery.FIeldByName('Codigo').asInteger;" me dice que el Field a not found.
He hecho programas complejos y siempre utilizaba en las búsqueda locates, pero esto me está costando, y sólo pretendo que se posicione en un registro de la tabla.
|