Una clase para gestionar datos. Servidor de datos DLL ActiveX

A continuacin se describen y codifican las propiedades que utiliza la clase MGDatos.

.BookMark

Descripcin: Marca un registro para una futura localizacin o devuelve una marca de registro.

Cdigo:

' *********************************************
' PROPIEDAD : BookMark
' Propiedad BOOKMARK del recordset.
' *********************************************
Public Property Let BookMarck(ByVal vData As Variant)
    If HaySeleccionAbierta Then
        On Error GoTo ErrorBookMark
            Datos.Bookmark = vData
        On Error GoTo 0
    Else ' No hay una seleccin abierta.
        RaiseEvent MGError(120, "No hay una seleccin abierta.")
    End If

SalirBookMark:
    Exit Property
    
ErrorBookMark:
    RaiseEvent MGError(410, "Error al intentar devolver un registro marcado. " 
    + vbCrLf + Str$(Err.Number) + " - " + Err.Description)
    Resume SalirBookMark
End Property

Public Property Get BookMarck() As Variant
    If HaySeleccionAbierta Then
        On Error GoTo ErrorBookMark
            BookMarck = Datos.Bookmark
        On Error GoTo 0
    Else ' No hay una seleccin abierta.
        RaiseEvent MGError(120, "No hay una seleccin abierta.")
    End If
    
SalirBookMark:
    Exit Property
    
ErrorBookMark:
    RaiseEvent MGError(400, "Error al intentar marcar el registro. " 
    + vbCrLf + Str$(Err.Number) + " - " + Err.Description)
    Resume SalirBookMark
End Property

.CadenaConexion

Descripcin: Devuelve la cadena de parmetros utilizada para abrir la conexin.

Cdigo:

' *********************************************
' PROPIEDAD : CadenaConexion
' Devuelve la cadena de conexin activa.
' *********************************************
Public Property Get CadenaConexion() As String
    CadenaConexion = mvarCadenaConexion
End Property

.CamposCount

Descripcin: Devuelve el nmero de campos de la seleccin abierta.

Cdigo:

' *********************************************
' PROPIEDAD : CamposCount
' Numero de campos de la seleccin.
' *********************************************
Public Property Get CamposCount() As Integer
    If HaySeleccionAbierta Then
        CamposCount = Datos.Fields.Count
    Else
        RaiseEvent MGError(120, "No hay una seleccin abierta.")
    End If
End Property

.DBDirMDB y DBNombreDBDSN

Descripcin: Devuelve o establece el directorio de acceso a la base de datos, (DBDirMDB), y el nombre de la base de datos o la configuracin, (DSN), ODBC, (DBNombreDBDSN).

Cdigo:

' *********************************************
' PROPIEDAD : DBDirMDB
' Directorio de la base de datos Access, (mdb)
' *********************************************
Public Property Let DBDirMDB(ByVal vData As String)
    If HayConexionAbierta Then
        RaiseEvent MGError(100, "Hay una conexin abierta. 
        No puede manipular las propiedades de origen de los datos.")
    Else
        mvarDirMDB = vData
    End If
End Property

Public Property Get DBDirMDB() As String
    DBDirMDB = mvarDirMDB
End Property

' *********************************************
' PROPIEDAD : DBNombreDBDSN
' Nombre de la base de datos.
' *********************************************
Public Property Let DBNombreDBDSN(ByVal vData As String)
    If HayConexionAbierta Then
        RaiseEvent MGError(100, "Hay una conexin abierta. 
        No puede manipular las propiedades de origen de los datos.")
    Else
        mvarNombreDBDSN = vData
    End If
End Property

Public Property Get DBNombreDBDSN() As String
    DBNombreDBDSN = mvarNombreDBDSN
End Property

.DBPassWord y DBUser

Descripcin: Devuelve o establece el nombre de usuario, (DBUser), y la contrasea, (DBPassWord), de acceso a la base de datos.

Cdigo:

' *********************************************
' PROPIEDAD : DBUser
' Usuario, (login) de la base de datos.
' *********************************************
Public Property Let DBUser(ByVal vData As String)
    mvarDBUser = vData
End Property

Public Property Get DBUser() As String
    DBUser = mvarDBUser
End Property

' *********************************************
' PROPIEDAD : DBPassword
' Password de la base de datos.
' *********************************************
Public Property Let DBPassword(ByVal vData As String)
    mvarDBPassword = vData
End Property

Public Property Get DBPassword() As String
    DBPassword = mvarDBPassword
End Property

.EsBOF y EsEOF

Descripcin: Devuelve si el cursor ha llegado al final de la base de datos, (EsEOF), o al principio de la misma, (EsBOF).

Cdigo:

' *********************************************
' PROPIEDAD : EsEOF
' Est el cursor al final de la seleccin?
' *********************************************
Public Property Get EsEOF() As Boolean
    If HaySeleccionAbierta Then
        EsEOF = Datos.EOF
    Else
        RaiseEvent MGError(120, "No hay una seleccin abierta.")
    End If
End Property

' *********************************************
' PROPIEDAD : EsBOF
' Est el cursor al principio de la seleccin?
' *********************************************
Public Property Get EsBOF() As Boolean
    If HaySeleccionAbierta Then
        EsBOF = Datos.BOF
    Else
        RaiseEvent MGError(120, "No hay una seleccin abierta.")
    End If
End Property

.HayConexionAbierta

Descripcin: Devuelve si hay una conexin abierta, (funcin : AbrirConexion).

Cdigo:

' *********************************************
' PROPIEDAD : HayConexionAbierta
' Hay una conexin abierta?
' *********************************************
Private Property Let HayConexionAbierta(ByVal vData As Boolean)
    mvarHayConexionAbierta = vData
End Property

Public Property Get HayConexionAbierta() As Boolean
    HayConexionAbierta = mvarHayConexionAbierta
End Property

.HaySeleccionAbierta

Descripcin: Devuelve si hay una seleccin abierta, (funcin : AbrirSeleccion).

Cdigo:

' *********************************************
' PROPIEDAD : HaySeleccionAbierta
' Hay una seleccin abierta?
' *********************************************
Private Property Let HaySeleccionAbierta(ByVal vData As Boolean)
    mvarHaySeleccionAbierta = vData
End Property

Public Property Get HaySeleccionAbierta() As Boolean
    HaySeleccionAbierta = mvarHaySeleccionAbierta
End Property

.InfoCampo

Descripcin: Devuelve un objeto ADODB.Field con la informacin de un campo vlido con la seleccin abierta.

Cdigo:

' *********************************************
' PROPIEDAD : InfoCampo
' Devuelve la coleccin FIELD del campo solicitado.
' *********************************************
' Parmetros :
'   Index : Indice o literal del campo a devolver.
' *********************************************
Public Property Get InfoCampo(Index) As ADODB.Field
    If HaySeleccionAbierta Then
        Set InfoCampo = Datos.Fields(Index)
    Else
        RaiseEvent MGError(120, "No hay una seleccin abierta.")
    End If
End Property

.NumRegistrosSel

Descripcin: Devuelve el nmero de registros, (filas), de la seleccin abierta.

Cdigo:

' *********************************************
' PROPIEDAD : NumRegistrosSel
' Devuelve el nmero de registros de la seleccin.
' *********************************************
Public Property Get NumRegistrosSel() As Long
    If HaySeleccionAbierta Then
        NumRegistrosSel = Datos.RecordCount
    Else
        RaiseEvent MGError(120, "No hay una seleccin abierta.")
    End If
End Property

COMPARTE ESTE ARTÍCULO

ENVIAR A UN AMIGO
COMPARTIR EN FACEBOOK
COMPARTIR EN TWITTER
COMPARTIR EN GOOGLE +
¡SÉ EL PRIMERO EN COMENTAR!
Conéctate o Regístrate para dejar tu comentario.