Acceso a DBF
Publicado por Pizarro Gabriel (8 intervenciones) el 13/03/2003 17:09:45
Buenas...
El problema que tengo es el acceso compartido a una tabla fox pro
utilizando ADO-JET. el siguiente ejemplo realiza dicha conexión, funcionando correctamente en el caso de que ninguna aplicacion mas tenga el archivo dbf abierto.
El problema es: como debo abrir este archivo en modo compartido (shared en foxPro).
Gracias por su interes
Gabriel
FoxConexion:=TAdoConnection.Create(nil);
FoxConexion.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + sPathFox + ';' +
'Extended Properties=' + 'dBase IV;' + ';';
FoxConexion.Open; //Sin problemas
AdsAux:=TAdoDataSet.Create(nil);
AdsAux.Connection:=FoxConexion;
AdsAux.CursorType:=ctKeyset;
AdsAux.CursorLocation:=clUseClient;
AdsAux.CommandText:='Select * from Movcaj where 0=1';
AdsAux.Open; //Produce la excepcion de proteccion
El problema que tengo es el acceso compartido a una tabla fox pro
utilizando ADO-JET. el siguiente ejemplo realiza dicha conexión, funcionando correctamente en el caso de que ninguna aplicacion mas tenga el archivo dbf abierto.
El problema es: como debo abrir este archivo en modo compartido (shared en foxPro).
Gracias por su interes
Gabriel
FoxConexion:=TAdoConnection.Create(nil);
FoxConexion.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + sPathFox + ';' +
'Extended Properties=' + 'dBase IV;' + ';';
FoxConexion.Open; //Sin problemas
AdsAux:=TAdoDataSet.Create(nil);
AdsAux.Connection:=FoxConexion;
AdsAux.CursorType:=ctKeyset;
AdsAux.CursorLocation:=clUseClient;
AdsAux.CommandText:='Select * from Movcaj where 0=1';
AdsAux.Open; //Produce la excepcion de proteccion
Valora esta pregunta
0