Rongu
05 de Mayo del 2005

Hola !!!!
Acabo de empezar en esto y con esfuerzo he conseguido hacer una aplicación con VB60 y Access.
Hasta ahora trabajaba con la aplicación en una sola máquina. Ahora se ha añadido un nuevo usuario y he de ejecutar la aplicación en dos puestos a la vez.
Como he de abrir la base de datos para que ambos usuarios puedan acceder a ella¿?

Set BD = OpenDatabase("\MaquinaBBDD")¿?

Cuando lo hago así, desde la máquina que no tiene alojada la BD me da un erro indicándome que la tabla está abierta en modo exclusivo por otro usuario. Hay que añádir algún parámetro más al OpenDatabase¿?

Gracias!

fredi
05 de Mayo del 2005

Utilizas DAO ó ADO.
Te mando el código de ADO.Set db2 = New
Dim db2 As ADODB.Connection
Dim r2 As ADODB.Recordset

ADODB.Connection
Set r2 = New ADODB.Recordset

With db2
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\ServidorCarpetaBaseDatos.mdb;Persist Security Info=False"
.Open
End With

SQL = "Select * from Tabla1"

r2.Open SQL, db2, adOpenKeyset, adLockOptimistic

Luego enlazas un Visualizador de Datos... ó lo que vayas a utilizar.

fredi
05 de Mayo del 2005

Utilizas DAO ó ADO.
Te mando el código de ADO.

Dim db2 As ADODB.Connection
Dim r2 As ADODB.Recordset

ADODB.Connection
Set r2 = New ADODB.Recordset

With db2
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\ServidorCarpetaBaseDatos.mdb;Persist Security Info=False"
.Open
End With

SQL = "Select * from Tabla1"

r2.Open SQL, db2, adOpenKeyset, adLockOptimistic

Luego enlazas un Visualizador de Datos... ó lo que vayas a utilizar.

fredi
05 de Mayo del 2005

Utilizas DAO ó ADO.
Te mando el código de ADO.

Dim db2 As ADODB.Connection
Dim r2 As ADODB.Recordset

Set db2 = New ADODB.Connection
Set r2 = New ADODB.Recordset

With db2
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Servidor\Carpeta\BaseDatos.mdb;Persist Security Info=False"
.Open
End With

SQL = "Select * from Tabla1"

r2.Open SQL, db2, adOpenKeyset, adLockOptimistic

Luego enlazas un Visualizador de Datos... ó lo que vayas a utilizar.


Olvidate de lo anterior... que faltaban datos