Método Eof

Comprueba si la posición actual del cursor se encuentra al final de RecordSet.

Sintaxis

Object.Eof

Argumentos: Object: necesario. Siempre es el nombre del objeto ADODB RecordSet.

Devuelve

True si la posición actual del cursor no está al final de RecordSet; de lo contrario, False.

Observaciones

En el siguiente ejemplo se muestra el uso del método Eof.

Ejemplo 1:

'Create ADODB.Connection Object
Dim ConnObj   ' Create a variable.
Set ConnObj = CreateObject("ADODB.Connection")
ConnObj.Open("ConnectionString") 'Creates DB Connection by Using Connection String

Dim RecSetObj
Dim CmdTxt
CmdTxt = "SELECT * FROM EMPLOYEE_DETAILS WHERE ID = 101"
Set RecSetObj = ConnObj.Execute(CmdTxt) 'Returns RecordSet

If Not RecSetObj.Eof Then
'Fetch the Column Value from the Record Set Object
End If

RecSetObj.Close()
ConnObj.Close()
Set RecSetObj = Nothing
Set ConnObj = Nothing