Conexion Paradox con Visual basic
¿Estas son las cadenas de conexión que utilizo para hacer la conexión a las tablas de paradox si conecta bien puedo ver las tablas y los campos pero el problema que tengo es que el programa original que maneja estas tablas las abre me da un error y ya no puedo consultar las tablas hasta que las cierren en el otro programa entonces mi preguntas es que puedo hacer? Solo quiero consultarlas para armar un reporte por tu respuesta muy agradecido.
'Set db = DBEngine(0).OpenDatabase(LocalDatos, 0, 0, "Paradox 5.x;PWD=nordicaspel;")
'Set db = OpenDatabase(LocalDatos, False, False, "Paradox 4.x;")
'Conn.Open ("Driver={Microsoft Paradox Driver (*.db )};ParadoxNetPath=C:\AspelCache;Mode=Read;DriverID=538;Fil=Paradox 5.X;DefaultDir=" + LocalDatos + ";Dbq=" + LocalDatos + ";CollatingSequence=ASCII;ParadoxNetPath=y:\;")
'Conn.Open ("Driver={Microsoft Paradox Driver (*.db)};DriverID=538;Fil=Paradox 5.X;ParadoxUserName=aspelservidor;ParadoxNetPath=Y:\;ParadoxNetStyle=5.x;DefaultDir=" + LocalDatos + ";Dbq=" + LocalDatos + ";CollatingSequence=ASCII;")
'Conn.Open ("Provider=MSDASQL.1;Persist Security Info=False;PageTimeOut=5;ParadoxNetPath=c:\AspelCache;Mode=Read;Extended Properties='DSN=Paradox;DriverId=538;FIL=Paradox 5.X;ParadoxNetPath=Y:\;MaxBufferSize=2048;PageTimeout=600;';Initial Catalog=" + LocalDatos + ";")
'Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Data Source=" + LocalDatos + ";Extended Properties=Paradox 5.x;")
With Conn
.CursorLocation = adUseClient
.Provider = "MSDASQL.1"
.ConnectionString = "Persist Security Info=False;Extended Properties='" & _
"Driver={Microsoft Paradox Driver (*.db )}" & _
";DriverId=538" & _
";FIL=Paradox 5.X" & _
";DefaultDir=" + LocalDatos & _
";CollatingSequence=ASCII" & _
"'"
. Open
End With
'Set db = DBEngine(0).OpenDatabase(LocalDatos, 0, 0, "Paradox 5.x;PWD=nordicaspel;")
'Set db = OpenDatabase(LocalDatos, False, False, "Paradox 4.x;")
'Conn.Open ("Driver={Microsoft Paradox Driver (*.db )};ParadoxNetPath=C:\AspelCache;Mode=Read;DriverID=538;Fil=Paradox 5.X;DefaultDir=" + LocalDatos + ";Dbq=" + LocalDatos + ";CollatingSequence=ASCII;ParadoxNetPath=y:\;")
'Conn.Open ("Driver={Microsoft Paradox Driver (*.db)};DriverID=538;Fil=Paradox 5.X;ParadoxUserName=aspelservidor;ParadoxNetPath=Y:\;ParadoxNetStyle=5.x;DefaultDir=" + LocalDatos + ";Dbq=" + LocalDatos + ";CollatingSequence=ASCII;")
'Conn.Open ("Provider=MSDASQL.1;Persist Security Info=False;PageTimeOut=5;ParadoxNetPath=c:\AspelCache;Mode=Read;Extended Properties='DSN=Paradox;DriverId=538;FIL=Paradox 5.X;ParadoxNetPath=Y:\;MaxBufferSize=2048;PageTimeout=600;';Initial Catalog=" + LocalDatos + ";")
'Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Data Source=" + LocalDatos + ";Extended Properties=Paradox 5.x;")
With Conn
.CursorLocation = adUseClient
.Provider = "MSDASQL.1"
.ConnectionString = "Persist Security Info=False;Extended Properties='" & _
"Driver={Microsoft Paradox Driver (*.db )}" & _
";DriverId=538" & _
";FIL=Paradox 5.X" & _
";DefaultDir=" + LocalDatos & _
";CollatingSequence=ASCII" & _
"'"
. Open
End With
1 Respuesta
Respuesta de Roberto Alvarado
Hola Buen Día, gracias por tu respuesta pero estas en lo correcto el único problema que el otro sistema que abre las tablas paradox es el ASPEL-SAE, entonces no puedo decirle que no las bloquee el programa porque estés es un programa cerrado, mi pregunta es entonces conoces alguna forma de poder accesar a las tablas paradox mientras SAE las este utilizando, pues parece que utiliza dos tipos de archivos para bloquear las tablas paradox que son PDOXUSRS.NET y PDOXUSES.LCK, como puedo tener acceso a las tablas por medio de estos archivos. Por tu respuesta muy agradecido
Lo siento pero hace mucho que no trabajado Paradox, así que no puedo ayudarte.
