Detectar el recordset vacio

[lucius]

He visto varias formas pero no se cual es la diferencia entre estas:
If (.EOF Or .BOF) Then msgbox "No hay registros" 'Logicamente aqui es True por default osea If (.EOF Or .BOF) = True Then..
If (.BOF And .EOF) Then msgbox "No hay registros"
If .RecordCount = 0 Then msgbox "No hay registros"
If .RecordCount = Empty Then msgbox "No hay registros"

Que alguien me explique?

[raul338]

Yo uso esto

Código: (vb) [Seleccionar]

Public Function SQL_Ejecutar(consulta As string, rs As RecordSet) As Long
    Set rs = ..... ' Abris/mandas a ejecutar la consulta
    If Not rs Is Nothing Then
         SQL_Ejecutar = 1 ' Funciono, pero no hay registros
         If rs.State = adStateOpen Then
             If rs.RecordCount <> 0 Then
                 SQL_Ejecutar = 2 ' Funciono y hay registros :)
             End If
         End If
    End If
End Function
Te recomiendo usar constantes o una enumeracion para los valores devueltos
0 - Error
1 - Sin registros
2 - OK

[lucius]

Esta buena la funcion con eso ya solucione, deje abandonado el tema pero aqui estoy, saludos