El proyecto TestServConexion
El proyecto TestServConexion.VBP es el proyecto de prueba del componente DLL ActiveX MGAD.VBP.
Probar el servidor de datos con esta aplicación de test
Configuraciones preliminares
A continuación se muestra como declarar y utilizar la clase MGDatos de la biblioteca MGAD.
Para declarar la biblioteca primero ha de adjuntarla a la lista de referencias de su aplicación. Para ello abra la opción Referencias del menú Proyecto. Seguidamente busque la referencia "Servidor de conexiones a bases de datos" en la lista de referencias. Si no la encuentra en la lista pulse sobre Examinar y seleccione el archivo MGAD.DLL.
Para utilizar las clases MGDatos y Utileria ha de declararla de la forma :
' Declaración de los objetos del servidor.
Dim WithEvents BDDatos As MGAD.MGDatos
Dim Utiles As MGAD.Utileria
La cláusula WithEvents indica que la variable objeto BDDatos es susceptible de recibir eventos de la clase MGDatos.
Abrir una conexión: El ejemplo siguiente abre una conexión en la clase MGDatos :
' Activa los objetos del servidor de datos.
Set BDDatos = New MGAD.MGDatos
Set Utiles = New MGAD.Utileria
' Prepara para abrir una conexión.
BDDatos.DBDirMDB = App.Path ' Localización de la base de datos.
BDDatos.DBNombreDBDSN = "Amelia.mdb" ' Nombre de la base de datos o DSN de acceso.
BDDatos.DBUser = "Admin" ' Usuario de la base de datos.
BDDatos.DBPassword = "" ' Contraseña de la base de datos.
BDDatos.AddCadenaConexion bcJet
' Generar la cadena de conexión, (como OLEDB.jet), para abrir la conexión.
Cerrar la conexión y la colección MGAD: Para cerrar las clases MGDatos debe antes invocar a la función CerrarConexion. Tal y como muestra el ejemplo siguiente :
BDDatos.CerrarConexion
Set BDDatos = Nothing
Set Utiles = Nothing
End
Movimiento y navegación entre registros.
A continuación se muestra como utilizar la clase MGDatos para navegar entre los registros, (filas), de una selección abierta.
Movimiento entre registros: Para mover al anterior, siguiente, último o primer registro de la selección utilize :
BDDatos.MoverAnterior
BDDatos.MoverSiguiente
BDDatos.MoverUltimo
BDDatos.MoverInicio
Busqueda de registros: Para buscar un registro determinado y situar el cursor sobre el utilice :
BDDatos.BuscarRegistro("Campo =" & Expresion, TipoBusqueda)
Explorar la colección FIELD
Para explorar cualquier propiedad del objeto FIELD de un campo válido de la selección utilice :
BDDatos.InfoCampo(Campo).Name
Acciones sobre la base de datos.
A continuación se muestra como añadir, modificar y eliminar registros con la clase MGDatos.
Añadir y modificar registros: Para añadir o modificar registros de la tabla de empresas de prueba debe declarar antes el tipo definido MGADRegEmpresas. Con este tipo obtendrá una plantilla de los datos requeridos para una empresa.
Dim Registro As MGADRegEmpresas ' Registro para la transacción.
' Cumplimenta el registro.
With Registro
.CodEmpresa = Val(cCodEmpresa.Text)
.Nombre = cNombre.Text
.Direccion1 = cDireccion1.Text
.Direccion2 = cDireccion2.Text
.Direccion3 = cDireccion3.Text
.ContadorRecibos = Val(cContadorRecibos.Text)
.RegMercantil = cRegMercantil.Text
End With
' Realiza el alta/modificación.
BDDatos.AddModRegEmpresa Registro
Eliminar registros: Para eliminar el registro actual de la base de datos utilice :
BDDatos.EliminarRegistro
Para eliminar utilizando una sentencia SQL utilice :
BDDatos.EliminarRegistro SentenciaSQL
Tutoriales
