FiveTech Software tech support forums

cDriVer := "DBFCDX" // PARAMETRO DE LA FUNCION DBUSEAREA(.T.,cDriVer,cPatTab+cNomTab,cAliTab,lShared,lReaOnl) IF ( cDriVer == "DBFCDX" .OR. cDriVer == "ADS" ) .AND. !EMPTY(cPatTab) cNomArc := ...

... para DB serán con el RDD de ADS, pero también tienes la opción de utilizar por ejemplo la apertura de una DB DBUSEAREA( [<lNewArea>], [<cDriver>], <cName>, [<xcAlias>],[<lShared>], [<lReadonly>]) y también al crear una nueva DB, DBCREATE( <cDatabase>, ...

... with the errormessage and crashes on exit-button. Opening as a single user it is Ok. I think the problem belongs to : METHOD Open( cAlias, cFile, cDriver, lShared, lReadOnly, cPassword ) CLASS TDataBase ::Use() METHOD Use() CLASS TDataBase ... ... if ::td_ExecLoop( { || dbUseArea( .t., ::cDriver, ...

... [<lShared>] , ; [<lReadonly>] , ; [<cCodePage>] , ; [<nConnection>] ) --> NIL cAlias:=New_Alias(cDbf,nD) DbUseArea(.T.,cDriver,cDbf,cAlias,.T.,.F.) in your opinion, it could be configured to be able to use an archive and at the same time reopen it from another part I'm ...

... DBSeek(<expKey>,[<lSoftSeek>])->lFound DBSelectArea(<nArea>|<cAlias>)->Nil DBSetDriver([<cDriver>])->cCurrentDriver DBSetFilter(<bCondition>,[<cCondition>])->Nil DBSetIndex(<cIndexName>)->Nil DBSetOrder(<nOrdernum>)->Nil ...

... after oDbf:Blank() invariably appends the data, whether or not oDbf:Append() is called. - New CONSTRUCTOR METHOD Create( cDbf, aStruct, [cDriver], ; [cIndexfields] ) --> Self - Now uses new protected method NewAlias() for generating new alias names. - Methods Activate() and DeActivate() ...

... . 11. cAlias ( ReadOnly Type: "C" Default: "" ): Alias() of DBF 12. Cargo ( Type: "U" ): For programmer's use 13. cDriver ( ReadOnly Type: "C" ): RDD name of DBF 14. cFile ( ReadOnly Type: "C" Default: "" ): File name of DBF with full ...

Ruben, As Enrico stated you have to open it for exclusive use (set lShared to .f., it defaults to .t.). Method New( cAlias, cFile, cDriver, lShared, lReadOnly ) Class TData The reason you can't just do an flock() on a shared database is that other users could have it open and even be editing ...

Hi, I think the best option is when you definied the object, the same concept as now but initialized data ::cDriver correctly METHOD New( ncArea, cFile, cDriver, lShared, lReadOnly ) CLASS TDataBase   if PCount() > 1      if ValType( ncArea ) == 'C'  ...

El problema viene de esta línea:

DATA cDriver AS CHARACTER INIT RddSetDefault()

Por lo que se ve, esa cláusula INIT no se actualiza

Podria considerarse un bug de Harbour creo

Américo,

Pruéba asi:

? tdatabase():New( ,, "DBFNTX" ):cDriver

REQUEST DBFCDX
rddsetdefault( "DBFCDX" )

? tdatabase():New( ,, "DBFCDX" ):cDriver

Antonio Si solo hacemos esto el resultado es correcto REQUEST DBFCDXrddsetdefault( "DBFCDX" )//y hacemos tdatabase():cDriver // resultado 'DBFCDX -> resultado correcto  Pero, si hacemos esto //hacemos esto primero? tdatabase():cDriver  //Resultado 'DBFNTX'//definimos ...

Buenas, A alguien le sucede esto: #include "FiveWin.ch" function Main() ? TDataBase():cdriver //Resultado: 'DBFNTX' REQUEST DBFCDX rddsetdefault( "DBFCDX" ) ? RddSetDefault(), TDataBase():cdriver // Resultado: "DBFCDX", 'DBFNTX', este ultimo ...

... con otras propias como es mi caso. Para solucionar este problema, Harbour cuenta con un parámetro extra al abrir una dbf: DBUSEAREA ( lNuevaArea, cDriver, cNombre, cAlias, lCompartido, lSoloLectura, cCodePage) En este último campo que oficialmente no viene documentado, es donde tenemos que indicar ...

... con otras propias como es mi caso. Para solucionar este problema, Harbour cuenta con un parámetro extra al abrir una dbf: DBUSEAREA ( lNuevaArea, cDriver, cNombre, cAlias, lCompartido, lSoloLectura, cCodePage) En este último campo que oficialmente no viene documentado, es donde tenemos que indicar ...