Visual Basic - No Funciona en Red....

Life is soft - evento anual de software empresarial
   
Vista:

No Funciona en Red....

Publicado por mauricio (50 intervenciones) el 27/02/2010 22:12:05
Hola, tengo este sistema en Visual Basic 6 con ADO y Access 2010...

accedo a las BASE DE DATOS que estan en una CARPETA COMPARTIDA y cada maquina accede a esa carpata compartida (porque ahi estan las bases). No puedo hacer que los usuarios accedan a las bases unicamente SI NO ESTAN SIENDO UTILIZADAS (por eso hice las Banderas) pero por mas que haya hechos esas banderas el otro usuario puede ingresar lo mismo a las bases que despues modifico en los Forms....

SUb Main()

On Error GoTo x
ChDir App.Path
Dim BaseDatos As String
BaseDatos = "\\Pcs\Documentos compartidos\Expedientes.mdb"
Set Conex = New ADODB.Connection
Conex.CommandTimeout = 30
Conex.ConnectionTimeout = 15
Conex.CursorLocation = adUseClient
Conex.Mode = adModeUnknown
Conex.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & BaseDatos & ";" & _
"Jet OLEDB:Database"
'**********************************************************
Set BaseExp = New ADODB.Recordset
BaseExp.CursorType = adOpenDynamic
BaseExp.LockType = adLockBatchOptimistic
BaseExp.ActiveConnection = Conex
'**********************************************************
Set BaseBandera = New ADODB.Recordset
BaseBandera.CursorType = adOpenDynamic
BaseBandera.LockType = adLockBatchOptimistic
BaseBandera.ActiveConnection = Conex
BaseBandera.Open ("Select * From Bandera")
'**********************************************************
Set BaseBandera2 = New ADODB.Recordset
BaseBandera2.CursorType = adOpenDynamic
BaseBandera2.LockType = adLockBatchOptimistic
BaseBandera2.ActiveConnection = Conex
BaseBandera2.Open ("Select * From Bandera2")
'8888888888888888888888888888888888888888888888888888888888888888888888888
Set BaseInf = New ADODB.Recordset
BaseInf.CursorType = adOpenDynamic
BaseInf.LockType = adLockBatchOptimistic
BaseInf.ActiveConnection = Conex
'****************************************************************
'Me conecto a donde estan los usuarios y registro de las operaciones que se hagan
BaseDatos = "\\Pcs\Documentos compartidos\Operaciones.mdb"
Set Cnx = New ADODB.Connection
Cnx.CommandTimeout = 30
Cnx.ConnectionTimeout = 15
Cnx.CursorLocation = adUseClient
Cnx.Mode = adModeUnknown
Cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & BaseDatos & ";" & _
"Jet OLEDB:Database"
'##########################################################################
Set BaseOper = New ADODB.Recordset
BaseOper.CursorType = adOpenDynamic
BaseOper.LockType = adLockBatchOptimistic
BaseOper.ActiveConnection = Cnx
'=========================================================================
Set BaseUsu = New ADODB.Recordset
BaseUsu.CursorType = adOpenDynamic
BaseUsu.LockType = adLockBatchOptimistic
BaseUsu.ActiveConnection = Cnx
'8888888888888888888888888888888888888888888888888888888888888888888888888
Set BaseBandera3 = New ADODB.Recordset
BaseBandera3.CursorType = adOpenDynamic
BaseBandera3.LockType = adLockBatchOptimistic
BaseBandera3.ActiveConnection = Cnx

Load Principal
Principal.Show
Exit Sub
x:
MsgBox "No se pudo encontrar la Base de Datos" & vbNewLine _
& "Es posible que el servidor este inactivo", vbCritical, "SEM"
End Sub


ALGUNA RECOMENDACION ??? GRACIAS
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