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 := ALLTRIM(SUBS(cNomTab,1,8))+'.CDX' IF FILE(cPatTab+cNomArc) ...

I wanted to know if in Tdatabase I can do this sample CLASS TUtenti from TDataBase METHOD New() METHOD ToArray() ENDCLASS METHOD New( lShared ) CLASS TUtenti Default lShared := .t. ::super:New(,oApp():cExePath + "Utenti" ,, lShared) if ::use() ::setOrder(1) ::gotop() endif RETURN ...

... 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>, <aStruct>, [<cDriver>], [<lOpen>], ...

... SET SECTION "Default" ENTRY "RDD" OF oIni TO cDefRdd SET SECTION "Default" ENTRY "Shared" OF oIni TO lShared SET SECTION "Default" ENTRY "Language" OF oIni TO nLanguage SET SECTION "Default" ENTRY "Pijama" OF ...

... 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, ::cFile, ...

... the "data" folder can open with DbUseArea( [<lNewArea>] , ; [<cRddName>] , ; <cDatabase> , ; [<cAlias>] , ; [<lShared>] , ; [<lReadonly>] , ; [<cCodePage>] , ; [<nConnection>] ) --> NIL cAlias:=New_Alias(cDbf,nD) DbUseArea(.T.,cDriver,cDbf,cAlias,.T.,.F.) ...

... DBUseArea([<lNewArea>],[<cDriver>],<cName>,[<xcAlias>],[<lShared>],[<lReadOnly>],[<cCodePage>],[<nConnection>])->Nil DBZap()->Nil Default(@<varName>,<xDefaultValue>)->Nil ...

... and AnsiToOem() while reading and saving. 20. lReadOnly ( Type: "L" Default: .F. ): True if the file is opened in readonly mode. 21. lShared ( ReadOnly Type: "L" Default: ! Set(_SET_EXCLUSIVE) ): True if the DBF is used in shared mode 22. nArea ( ReadOnly Type: "N" ...

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 ...

... 2. and before reopening insert cFileName := UPPER(cPath+cFileName+cExtension) ACTIVATE DIALOG oDlg CENTER SELECT (cAlias) IF lShared USE cFileName := UPPER(cPath+cFileName+cExtension) TRY dbUseArea( .F. , cRdd , cFileName , cAlias , .T. , .F. ) CATCH MsgInfo( cFileName + CRLF ...

... persue. ------- Using Tdatabase() is new to me and the burning question is, what setup is needed to use your example in a multiuser environment. ( lShared, lBuffer ? ). Is there a sample somewhere, I could reference ? Gratefully, Bruce S. TDatabase by default is set for multiuser use and is buffered. ...

... persue. ------- Using Tdatabase() is new to me and the burning question is, what setup is needed to use your example in a multiuser environment. ( lShared, lBuffer ? ). Is there a sample somewhere, I could reference ? Gratefully, Bruce S.

REQUEST DBFCDX, DBFFPT

//*** USE EL DRIVER... RDDSETDEFAULT()

DBUSEAREA(.T.,RDDSETDEFAULT(),cPatTab+cNomTab,cAliTab,lShared,lReaOnl)

russoft ltda

... USE (cPatTab+cNomTab) ALIAS &cAliTab SHARED NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1]) ELSE DBUSEAREA(.T.,cDriVer,cPatTab+cNomTab,cAliTab,lShared,lReaOnl) ENDIF

... a database file in a work area. Syntax DbUseArea( [<lNewArea>] , ; [<cRddName>] , ; <cDatabase> , ; [<cAlias>] , ; [<lShared>] , ; [<lReadonly>] , ; [<cCodePage>] , ; [<nConnection>] ) --> NIL Arguments <lNewArea> If .T. (true) is passed ...