Abrir BD Access en red -
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!
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.
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.
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
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