Visual Basic - PROGRAMA VISUAL BASIC DE MONOUSUARIO A MULTIUSUARI

Life is soft - evento anual de software empresarial
 
Vista:

PROGRAMA VISUAL BASIC DE MONOUSUARIO A MULTIUSUARI

Publicado por miguel angel (7 intervenciones) el 30/03/2009 18:07:44
Tengo un programa hecho en Visual Basic 6.0 contra bases de datos en
Access 97. El programa usa la BBDD para consultas con DAO y con
controles datacontrol para cargar DBCOMBO. En monousuario funciona
perfectamente pero cuando lo ejecuto en red, me dice que..

"El motor de base de datos Microsoft Jet no puede abrir el archivo
pc001programabdd.mdb". Está abierto en modo exclusivo por otro
usuario o bien necesita permiso para ver sus datos. "

La máquina servidor y cliente son Windows XP con SP2

Dentro del Access 97, voy a Herramientas - Opciones -- y en la
pestaña "Avanzadas" está elegido como "Modo predeterminado de
apertura" la opción de Compartido y en "Bloqueo predeterminado de
registros" está legido "sin bloquear"

Cuando arranca el programa y donde da el error es cuando ejecuta la
siguiente orden

datacontrol1.databasename=app.path & "bdd.mdb"

¿Como se puede cambiar el programa o como se debe de configurar el
programa visual basic y el programa access, para poder hacer el
programa multiusuario? ¿como se debe usar la propiedad databasaname en
el control data?
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

RE:PROGRAMA VISUAL BASIC DE MONOUSUARIO A MULTIUSU

Publicado por P3L30N2009 (699 intervenciones) el 30/03/2009 19:24:02
Lo que pones en las opciones de Access no tiene nada que ve de cómo abras la conexión a la bd por código.

Mira así:

Dim db As DAO.Database
Dim sql As String
Set db = OpenDatabase(App.Path & "\bdd.mdb")
sql = "Select * From NombreTabla"
With Datacontrol1
.DatabaseName = db.Name
.Exclusive = False
.RecordsetType = adLockPessimistic
.RecordSource = sql
.Refresh
End With
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PROGRAMA VISUAL BASIC DE MONOUSUARIO A MULTIUSU

Publicado por miguel aNGEL (7 intervenciones) el 31/03/2009 09:45:00
Te comento el codigo que tengo.
En las propiedades del datacontrol tengo seleccionadas

(nombre) datacontrol1
connect: access
defaulttype = 2-usejet
exclusive= false
readonly=false
recordsettype=2-snapshot

Luego en el programa como código

PRIVATE SUB Form_Load()
'** Abrimos la tabla de forma compatida
With datacontrol1
.Visible = False
.DatabaseName = App.Path & " abla.mdb"
.Exclusive = False
.ReadOnly = False
.DefaultType = dbUseJet
.RecordSource = ("SELECT * FROM EMPLEADOS")
End With
end sub

pues si ejecuto el programa desde otro sitio sigue fallando, diciéndome que la bbdd está abierta en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar