Propiedades
A continuación se describen y codifican las propiedades que utiliza la clase MGDatos.
BookMark
Descripción: Marca un registro para una futura localización o devuelve una marca de registro.
Código:
' *********************************************
' 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 selección abierta.
RaiseEvent MGError(120, "No hay una selección 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 selección abierta.
RaiseEvent MGError(120, "No hay una selección 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
Descripción: Devuelve la cadena de parámetros utilizada para abrir la conexión.
Código:
' *********************************************
' PROPIEDAD : CadenaConexion
' Devuelve la cadena de conexión activa.
' *********************************************
Public Property Get CadenaConexion() As String
CadenaConexion = mvarCadenaConexion
End Property
CamposCount
Descripción: Devuelve el número de campos de la selección abierta.
Código:
' *********************************************
' PROPIEDAD : CamposCount
' Numero de campos de la selección.
' *********************************************
Public Property Get CamposCount() As Integer
If HaySeleccionAbierta Then
CamposCount = Datos.Fields.Count
Else
RaiseEvent MGError(120, "No hay una selección abierta.")
End If
End Property
DBDirMDB y DBNombreDBDSN
Descripción: Devuelve o establece el directorio de acceso a la base de datos, (DBDirMDB), y el nombre de la base de datos o la configuración, (DSN), ODBC, (DBNombreDBDSN).
Código:
' *********************************************
' 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 conexión 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 conexión 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
Descripción: Devuelve o establece el nombre de usuario, (DBUser), y la contraseña, (DBPassWord), de acceso a la base de datos.
Código:
' *********************************************
' 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
Descripción: Devuelve si el cursor ha llegado al final de la base de datos, (EsEOF), o al principio de la misma, (EsBOF).
Código:
' *********************************************
' PROPIEDAD : EsEOF
' ¿Está el cursor al final de la selección?
' *********************************************
Public Property Get EsEOF() As Boolean
If HaySeleccionAbierta Then
EsEOF = Datos.EOF
Else
RaiseEvent MGError(120, "No hay una selección abierta.")
End If
End Property
' *********************************************
' PROPIEDAD : EsBOF
' ¿Está el cursor al principio de la selección?
' *********************************************
Public Property Get EsBOF() As Boolean
If HaySeleccionAbierta Then
EsBOF = Datos.BOF
Else
RaiseEvent MGError(120, "No hay una selección abierta.")
End If
End Property
HayConexionAbierta
Descripción: Devuelve si hay una conexión abierta, (función : AbrirConexion).
Código:
' *********************************************
' PROPIEDAD : HayConexionAbierta
' ¿Hay una conexión abierta?
' *********************************************
Private Property Let HayConexionAbierta(ByVal vData As Boolean)
mvarHayConexionAbierta = vData
End Property
Public Property Get HayConexionAbierta() As Boolean
HayConexionAbierta = mvarHayConexionAbierta
End Property
HaySeleccionAbierta
Descripción: Devuelve si hay una selección abierta, (función : AbrirSeleccion).
Código:
' *********************************************
' PROPIEDAD : HaySeleccionAbierta
' ¿Hay una selección abierta?
' *********************************************
Private Property Let HaySeleccionAbierta(ByVal vData As Boolean)
mvarHaySeleccionAbierta = vData
End Property
Public Property Get HaySeleccionAbierta() As Boolean
HaySeleccionAbierta = mvarHaySeleccionAbierta
End Property
InfoCampo
Descripción: Devuelve un objeto ADODB.Field con la información de un campo válido con la selección abierta.
Código:
' *********************************************
' PROPIEDAD : InfoCampo
' Devuelve la colección FIELD del campo solicitado.
' *********************************************
' Parámetros :
' 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 selección abierta.")
End If
End Property
NumRegistrosSel
Descripción: Devuelve el número de registros, (filas), de la selección abierta.
Código:
' *********************************************
' PROPIEDAD : NumRegistrosSel
' Devuelve el número de registros de la selección.
' *********************************************
Public Property Get NumRegistrosSel() As Long
If HaySeleccionAbierta Then
NumRegistrosSel = Datos.RecordCount
Else
RaiseEvent MGError(120, "No hay una selección abierta.")
End If
End Property
Tutoriales
