Mensaje enviado por "N. Planchart" <nplanchart@cantv.net> el 30/04/2002

Saludos. Como están?

Mira:
Esto lo saque de MSDN.

La propiedad Index se utiliza junto con el método Seek. Si el proveedor
seleccionado no admite la propiedad Index, y tampoco el método Seek, utilice
el método Find. Determine si el objeto Recordset admite índices con el
método Supports(adIndex).

 Si esto:
 boolean = recordset.Supports(adSeek)
te retornara verdadero.
pudieras pero no es tu caso y la MSDN te recomienda usar el Find

Me parece que te ayudara a decidirte por el Find

Funciona asi.
con el método Support podemos determinar otras cosas las pongo aquí por si
mas adelante nos hacen falta.
----------------------------------------------------------------------------
-------------
Supports, método

Determina si un objeto Recordset especificado admite un tipo de
funcionalidad en particular.

Sintaxis:

boolean = recordset.Supports(CursorOptions)
----------
Valor devueltos
Devuelve un valor Boolean que indica si el proveedor admite todas las
características identificadas por el argumento CursorOptions.
---------
Parámetros
CursorOptions Expresión Long que consiste en uno o varios de los
siguientes valores CursorOptionEnum.

Constante------------------ Descripción

adAddNew Puede usar el método AddNew para agregar nuevos registros.
adApproxPosition Puede leer y establecer las propiedades AbsolutePosition y
AbsolutePage.
adBookmark Puede usar la propiedad Bookmark para tener acceso a registros
específicos.
adDelete Puede usar el método Delete para eliminar registros.
adHoldRecords Puede recuperar más registros o cambiar la posición de
recuperación siguiente sin efectuar todos los cambios pendientes.
adMovePrevious Puede usar los métodos MoveFirst y MovePrevious, y los
métodos Move o GetRows para desplazar hacia atrás la posición del registro
actual sin que se requiera marcadores.
adResync Puede actualizar el cursor con los datos visibles en la base de
datos subyacente, usando el método Resync.
adUpdate Puede usar el método Update para modificar datos existentes.
adUpdateBatch Puede usar actualización por lotes (métodos UpdateBatch y
CancelBatch) para transmitir grupos de cambios al proveedor.
adIndex Puede utilizar la propiedad Index para dar nombre a un índice.
adSeek Puede utilizar el método Seek para encontrar una fila en un
Recordset.



Comentarios

Use el método Supports para determinar con qué tipos de funcionalidad es
compatible un objeto Recordset. Si el objeto Recordset es compatible con las
características cuyas constantes correspondientes están en CursorOptions, el
método Supports devuelve el valor True. Si no, devuelve False.

Nota Aunque el método Supports puede devolver True para una funcionalidad
determinada, eso no garantiza que el proveedor pueda hacer que la
característica esté disponible bajo cualquier circunstancia. El método
Supports devuelve simplemente si el proveedor puede admitir la funcionalidad
especificada, dando por supuesto que se reúnen determinadas condiciones. Por
ejemplo, el método Supports puede indicar que un objeto Recordset admite
actualizaciones aunque el cursor se base en una unión de múltiples tablas,
de las que algunas columnas no son actualizables.


Chao suerte!!!
y cuidado con mandar un OT
Como ven sigo un poco resentido por lo del OT que mande sin querer a la
lista y los "Padres Virtules" que tengo me regañaron. y me van a desheredar
:-)

____________________
 nplanchart@cantv.net
 planchart@hotmail.com
 AG Consultores, C.A.

Mensaje enviado por Roberto Carlos Cano Rios <rcano@cosapisoft.com.pe> el 30/04/2002

Hola listeros esto tambien encontre en el MSDN

Ejemplo de la propiedad Optimize (VB)

Este ejemplo muestra la propiedad dinámica Optimize del objeto Field. El
campo zip de la tabla Authors de la base de datos Pubs no está indizado. Al
establecer la propiedad Optimize a True en el campo zip se autoriza a ADO a
generar un índice que mejora el rendimiento del método Find.


Sub Main()
    OptimizeX
End Sub

Public Sub OptimizeX()
Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient 'Habilita la creación de índices
rst.Open "SELECT * FROM Authors", _
            "DSN=Pubs;Provider=MSDASQL;", _
            adOpenStatic, adLockReadOnly, adCmdText
rst!zip.Properties("Optimize") = True 'Crea el índice
rst.Find "zip = '94595'" 'Busca Akiko Yokomoto
Debug.Print rst!au_fname & " " & rst!au_lname & " " & _
            rst!address & " " & rst!city & " " & rst!State
rst!zip.Properties("Optimize") = True 'Crea el índice

rst.Close
End Sub