Visual Basic - Grupos trabajo en Access y Visual Basic

Life is soft - evento anual de software empresarial
 
Vista:

Grupos trabajo en Access y Visual Basic

Publicado por Mar (4 intervenciones) el 22/03/2001 09:43:25
Tengo un problema con los grupos de trabajo en Access y mi programa en visual basic
Tengo unas bases de datos que están en un grupo de trabajo ‘Ayudas.mdw’,
Pero no quiero utilizar la utilidad ‘wrkgadm.exe’ para unirme a este grupo, porque sino cada vez que abro Access para cualquier cosa me pide usuario y contraseña.

El grupo de trabajo lo utilizo desde dentro del programa y no tengo problemas en algunos sitios, pero en otros sí:

Aquí funciona:

Global DB_0 As Database 'Puntero a la Base de Datos (otra).
Global rs_1 As Recordset 'Puntero Recordset 1.
Global WS_1 As Workspace 'Workspace
Global SECUR_USER as string ‘usuario del grupo de trabajo
Global SECUR_PSSWRD as string ‘pasw. Del grupo de trabajo
‘’’’
PATH_DB = “C:\AYUDAS\BASE\" + BD_ACTIVA

DBEngine.SystemDB = "C:\AYUDAS\BASE\AYUDAS.MDW"

Set WS_1 = DBEngine.CreateWorkspace("", SECUR_USER, SECUR_PSSWRD)
Set DB_0 = WS_1.OpenDatabase(PATH_DB)
SQL = "SELECT * FROM C_XTITULOS WHERE CODIGO = 1"
Set rs_1 = DB_0.OpenRecordset("C_XTITULOS", dbOpenSnapshot)

Esto lo hace perfectamente porque no tiene que abrir Access, sólo hacer selecciones, inserciones, etc.
Pero más adelante necesito ejecutar Formularios e Informes de Access,
para ello me creo una variable “Access.Application” y es aquí cuando me coge el grupo de trabajo del sistema “System.mdw” y no me deja ejecutar nada

Dim ACC As Access.Application

SendKeys SECUR_PSS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder