En una funcion de VB 6 como se usa el Seek (ejemplos por favor) para buscar un registro y no repetirlo?

En VB Seek existe como método para buscar un registro en un recordsetde una tabla abierta con DAO y también como instrucción para leer un registro de un archivode tipo texto abierto en forma aleatoria


Si pudieras concretar un poco más lo que quieres...


Saludos

Hago la busqueda con esta funcion, pero como veras en en forma secuencial, quisiera algo mas rapido y pensaba en el Seek o otra cosa


Function BuscarID(X As Integer) As Boolean
BuscarID = False
If DErubros.rsCargaRubros.RecordCount > 0 Then
DErubros.rsCargaRubros.MoveFirst
Do While Not DErubros.rsCargaRubros.EOF
If X = DErubros.rsCargaRubros!IdRubro.Value Then
BuscarID = True
Exit Do
Else
DErubros.rsCargaRubros.MoveNext
End If
Loop
End If
End Function

Lo que nesecito es un ejemplo como usar Seek


Peron las molestias

Para que funcione el método Seek en DAO debe reunir una serie de condiciones como que el recordset esté indexado y que esté abierto como tipo Table, el campo a buscar sea una clave principaly además sólo trabaja con espacios Microsoft Jet


Para evitar todo esto puedes utilizar el método "FindFirst" que es mas sencillo y no es necesario que el campo a buscar esté indexado ni que sea un campo clave.


Tu función quedaría así: (Entiendo que DErubros es un control Data y rsCargaRubros su RecordSource)

Código:

Function BuscarID(X As Integer) As Boolean
 DErubros.rsCargaRubros.FindFirst "IdRubro =" & X
 If DErubros.rsCargaRubros.NoMatch Then
 BuscarID = False
 Else
 BuscarID = True
 End If
End Function

Como verás he eliminado la condición If.. .RecordCount en la función ya que sería mas lógico ponerla al cargar el recordset.


Saludos

gRACIAS, MUCHAS GRACIAS