FiveTech Software tech support forums

Sr. Nages,

? VALTYPE( DBINFO( DBI_ISREADONLY ))

RETURN: U

... let me know this. After opening the file through SQLRDD Please insert this line and let me know the result you are getting with your version. ? DBINFO( DBI_READONLY ), VALTYPE( DBINFO( DBI_READONLY ) When I checked with SQLRDD also this is returning a logical value. I have checked xbrowse 13.08 ...

... 9050 or 9223 do not contain any code that relates to the kind of error shown in the log. ( where nil is used as logical ) erro: ( ::cAlias )->( DbInfo( DBI_ISREADONLY ) ) METHOD SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows ) CLASS TXBrowse ... ::lReadOnly := ( ::cAlias )->( DbInfo( DBI_ISREADONLY ...

... using modified version of xbrowse? I am asking because the code in the line numbers in the original versions do not correspond to the error. 4. if DBINFO( DBI_ISREADONLY ) .or. oCol:lReadOnly There is no chance of oCol:lReadOnly not being logical in the original version of the code.

here the error:
::oBrw:lReadOnly


and here erro:

static function SetColFromRDD( oCol, uData )

if DBINFO( DBI_ISREADONLY ) .or. oCol:lReadOnly
oCol:bOnPostEdit := { || nil }
else
...

... project I studied a bit the topic encryption. I have come to these conclusions: - non memo fields in dbf table - usage of clause #include "Dbinfo.ch" SELECT 0 USE cust_critted DBINFO( DBI_PASSWORD, "19610312" ) :D from this point every actions in the table is totally transparent ...

... introdujeron la posibilidad de cambiar este valor, pero la verdad es que nunca lo probé. FPT tiene un tamaño de bloque tambien variable (ver dbinfo() y funciones similares) pero por defecto es de 64, con lo cual resulta siempre mas ajustado. Tambien tiene algunas ventajas en cuanto a la reutilización ...

Enrico,

I tried SET AUTOOPEN OFF but it errors out with a syntax error. I tried including dbinfo.ch and it still errors out. I searched my entire hard disk for AUTOOPEN and only found it in dbinfo.ch.

Regards,
James

James, HiPer-SEEK is available in free xharbour too. You can search a string over several fields. Here is a sample (from xharbour) #include "dbinfo.ch" //REQUEST RMDBFCDX PROCEDURE Main() FIELD FIRST, LAST, STREET, CITY LOCAL n, hs if ascan( rddList(1), "RMDBFCDX" ) != 0 rddSetDefault( ...

... que hacer... Se me ocurre que habria que grabar el estado de todas las areas de trabajo y despues restaurarlas... ardua labor o no quizas usando dbinfo() y otras db..info()... vale.. las podemos salvar, pero y que pasa si durante el proceso de cierre de las areas hay algun usuario que te "pilla" ...

Ollie,

I guess that you could use:

DbInfo( DBI_BLOB_OFFSET )
http://www.ousob.com/ng/53guide/ng28fbc.php

and/or

DbFieldInfo( DBS_BLOB_OFFSET )
http://www.ousob.com/ng/53guide/ng25343.php

... inherited from SQLBASE; mysqldd.c - SQL database driver for MySQL; hbsqldd.h - include files for all above. Some defines should be moved to should dbinfo.ch; test1.prg - test code. >

... Fiz assim: msgstop( DbRecordInfo( DBRI_LOCKED, recno() ) ) > Bien! :-) > O próximo passo agora é fazer funcionar as funções: DbRecordInfo() dbinfo() dbrlocklist() Alguma dica ? > Revisa el código fuente de los RDDs que se proporcionan con Harbour/xHarbour. Es la mejor forma de ver como ...

... assim: msgstop( DbRecordInfo( DBRI_LOCKED, recno() ) ) O próximo passo agora é fazer funcionar as funções: DbRecordInfo() dbinfo() dbrlocklist() Alguma dica ?

Somebody knows what to do ? FUNCTION CabDbf (cNom) LOCAL nHnd, cBytes, nCdx, cCdx cNom := cNom + '.dbf' // öffnen wir die Datei exclusiv (binary) // Abrimos el fichero en exclusiva (binario) IF (nHnd := FOpen( cNom, 18 )) > 0 // gehe wir zu byte 28 // vamos al byte 28 FSeek( nHnd, 28 ) // beginn...