Visual Basic - Conexcion de Visual Basic 6.0 con Access en RED

Life is soft - evento anual de software empresarial
 
Vista:

Conexcion de Visual Basic 6.0 con Access en RED

Publicado por Miguel (1 intervención) el 09/01/2003 01:42:45
Hola Que tal, lo que pasa es que implemente un Programa hecho en Visual Basic 6.0 con Access en red, en tres maquinas( 1 Servidor, 2 maquinas como clientes , todas tienen Win98),pero me sigue saliendo el mensaje "ERROR EL ARCHIVO YA ESTA SIENDO USADO", es decir el programa no se puede usar a la vez en las tres pc's, no se si la conexion que uso lo abre de modo exclusivo, es esta......no se si alguien de uds. tiene una conexion que no tenga problemas para trabajar en red.

Bueno espero contar con tu ayuda...te agradezco te antemano...

Saludos.

Christian.
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:Conexcion de Visual Basic 6.0 con Access en RED

Publicado por Mariano (21 intervenciones) el 09/01/2003 15:49:58
Proba con esto:

Public Function CONECCION() As Boolean
'On Error GoTo err

levantar_path_de_base
sBase = path & "tsd.mdb"
Set cn = New ADODB.Connection
cn.Mode = adModeReadWrite
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase & ";" & _
"Jet OLEDB:Database Password=XXX;User ID=Admin"
CONECCION = True
Exit Function
err:
resp = MsgBox(" Hubo un Error al querer conectarse con la base " & path & "tsd.mdb" & Chr(13), vbCritical, " ERROR DE CONEXION ")
CONECCION = False
End Function
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