Cómo crear un nuevo grupo de trabajo
Por Enrique Martínez Montejo
Última revisión: 18/05/2003
 

Cuando se crea un nuevo archivo de información de grupo de trabajo, por defecto se crean dos grupos: el grupo de administradores (Admins) y el grupo de usuarios (Users). Si posteriormente deseamos crear nuevos grupos en dicho archivo de información, a fin de otogar los permisos necesarios de acceso a datos para los usuarios integrados en el mismo, necesitaremos utilizar el método Append, de la colección Groups, perteneciente al objeto Catalog de la biblioteca de extensiones de ADOX.

Es necesario especificar en la cadena de conexión, la ruta del archivo de información de grupo de trabajo donde se va a añadir los nuevos grupos de trabajo. Asimismo, el usuario que desee crear un nuevo grupo de trabajo, debe pertenecer de antemano al grupo Admins, o a cualquier otro grupo que disponga de los permisos necesarios para poder crear nuevos grupos, de lo contrario, obtendremos el correspondiente error.

Dim cat As ADOX.Catalog
Dim grp As ADOX.Group

' Creo un objeto Catalog
Set cat = New ADOX.Catalog

' Establezco una conexión
cat.ActiveConnection = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
                       "Data Source = " & App.Path & "\System.mdw;" & _
                       "Jet OLEDB:System Database = " & App.Path & "\System.mdw;" & _
                       "User Id = Admin;" & _
                       "Password ="

' Agregamos un nuevo grupo de trabajo
cat.Groups.Append "Mi Grupo de Trabajo"

' Recorro la colección de grupos de trabajo
For Each grp In cat.Groups
    MsgBox grp.Name, , "Grupos de Trabajo"
Next

El lector habrá observado que en la cadena de conexión se ha establecido, como valor de la propiedad Data Source, el nombre del archivo de información de grupo de trabajo. La razón de su utilización es para indicar la indiferencia existente entre utilizar el nombre de una base de datos o el del archivo de información, como valor de la propiedad Data Source.

En el supuesto de que se tenga abierta una conexión con un origen de datos, mediante el objeto Connection de la biblioteca de datos de ADO, también se puede crear un nuevo grupo de trabajo, si asignamos el objeto Connection abierto a la propiedad ActiveConnection del objeto Catalog:

cat.ActiveConnection = objConnection

Es necesario que en la cadena de conexión del objeto Connection, se haya establecido la ruta del archivo de información de grupo de trabajo, así como el identificador de un usuario que tenga asignado los permisos necesarios para crear nuevos grupos de trabajo.

Por último indicar, que la longitud del nombre del nuevo grupo de trabajo, no puede exceder de veinte caracteres.

 

Otros enlaces de interés:

Cómo crear un nuevo archivo de información de grupos de trabajo

Cómo eliminar un grupo de trabajo

Cómo crear un nuevo usuario

Cómo eliminar un usuario de un grupo de trabajo

Colección de ejemplos de la biblioteca de ADOX


Enrique Martínez Montejo - 2003

NOTA: La información contenida en este artículo, así como el código fuente incluido en el mismo, se proporciona COMO ESTÁ, sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo explicado, recomendado o sugerido en el presente artículo.

NOTE: The information contained in this article and source code included therein, is provided AS IS without warranty of any kind, and confers no rights. You assume any risk to implement, use or run it explained, recommended or suggested in this article.