Programa en Red
Quiero hacer un programa que se pueda accesar la base de datos( .MDB ) en red, o sea instalar el programa en 4 pc y que estos simultaneamente accesen mi BD, he buscado como hacerlo pero necesito hacer la coneccion a al base de datos, manejo una pero de solo un usuario, Se que con Ado podria hacerlo pero en todos los ejemplos tengo que insertar un objeto Ado en el Form y no veo otra forma, y debe haber. por FAvor necesito ayuda
Si ya tines hecha la conexion de ADO entonces no vas a tener ningun problema, dado que ADO permite acceso simultaneo si utilizas BeginTrans y CommitTrans, de todos modos te dejo un ejemplo de acceso a base de datos de Acces con ADO:
Dim MiConexion As ADODB.Connection
Dim rstDatos As ADODB.Recordset
Set MiConexion = New ADODB.Connection
MiConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
MiConexion.Open app.path & "bd3.mdb"
Set rstDatos = New ADODB.Recordset
rstDatos.CursorType = adOpenKeyset
rstDatos.LockType = adLockOptimistic
rstDatos.Open "SELECT * FROM Articulos ", MiConexion
...
Set rstDatos = Nothing
Set MiConexion = Nothing
Saludos!!
l_island
Dim MiConexion As ADODB.Connection
Dim rstDatos As ADODB.Recordset
Set MiConexion = New ADODB.Connection
MiConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
MiConexion.Open app.path & "bd3.mdb"
Set rstDatos = New ADODB.Recordset
rstDatos.CursorType = adOpenKeyset
rstDatos.LockType = adLockOptimistic
rstDatos.Open "SELECT * FROM Articulos ", MiConexion
...
Set rstDatos = Nothing
Set MiConexion = Nothing
Saludos!!
l_island