Erro no FindKey!!!

Delphi

29/07/2003

Esta rotina esta assim:

if Tab_Forma.FindKey([Q_Pedido.fieldByname(´PedForma´).asinteger]) then

Q_Pedido.FieldByName(´FormaFinal´).asstring:= Tab_PedidoForma.FieldByname(´Descricao´).asstring;

A mensagem de erro é:
[Error] Modulo.pas(142): Undeclared identifier: ´FindKey´

A tabela que estou usando é accsess com conexão ADO.

OQue esta errado?


Marciobrignol

Marciobrignol

Curtidas 0

Respostas

Josh_bsb

Josh_bsb

29/07/2003

A função FindKey não existe nos componentes ADO...
Use a função Locate do ADOTable ou ADOQuery

Locate(x, y, [a, b])

onde:
x - nome do campo na tabela
y - valor a ser localizado
a b - são opcionais de busca...
a - loPartialKey -> busca sem ter preenchido todo o nome
ex: Ana Maria Bragra... se colocar apenas Ana Ma já encontraria...
b - loCaseInsensitive -> desconsidera a diferença entre maiusculas e minusculas...

exemplo da função:

query.Locate(´NOME´, ´Josh´, [loPartialKey, loCaseInsensitive])


Abraços


GOSTEI 0
POSTAR