Findkey en ADO !!!

[vpepen]

Hola Foro !!!

Por favor, me gustaría saber si existe una función en el componente ADOTable que sea similar al Findkey del componente Table. De ser así cuál sería el procedimiento de usarla?

Las gracias anticipadas,

Víctor.-

[marcoszorrilla]

De la propia ayuda de Delphi:

KeyValues is the value to search for or multiple values if the index is based on multiple fields.

ADODataSet1.Seek(VarArrayOf([90030, 90020]), soFirstEQ);

SeekOption specifies the type of comparison made in determining whether the search was successful. SeekOption can be one of the six constants:

Seek Option Meaning

soFirstEQ Record pointer positioned at the first matching record, if one is found, or at the end of the dataset if one is not found.
soLastEQ Record pointer positioned at the last matching record, if one is found, or at the end of the dataset if one is not found.
soAfterEQ Record pointer positioned at matching record, if found, or just after where that matching record would have been found.
soAfter Record pointer positioned just after where a matching record would have been found.

soBeforeEQ Record pointer positioned at matching record, if found, or just before where that matching record would have been found.
soBefore Record pointer positioned just before where a matching record would have been found.

Un Saludo.

[vpepen]

If ADOTable2.Seek(ADOTable1Codigo.Value, soFirstEQ) = True Then
ShowMessage('El cliente ya existe !!!')
else
ADOTable1.Post;

Al ejecutar el código de arriba se produce el siguiente error:

'The operation requested by the application is not supported by the provider'

[Cabanyaler]

Hola, aunque un tanto mas lento, pero tampoco tanto, puedes utilizar el metodo Locate.

P.e.

DM.ADOQuery_Nombre.Locate('NombreCampoDondeBusca',VariableConValorABuscar,[loCaseInsensitive]))

Suerte