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