389b9d1c4a
* contrib/gtwvg/class.prg
* contrib/gtwvg/parthdlr.prg
* contrib/gtwvg/radiobut.prg
* contrib/gtwvg/toolbar.prg
* contrib/gtwvg/wnd.prg
* contrib/hbnf/doc/en/amedian.txt
* contrib/hbnf/doc/en/ftidle.txt
* contrib/hbnf/doc/en/iamidle.txt
* contrib/hbnf/tests/datecnfg.prg
* contrib/hbsqlit3/tests/sl3_test.prg
* contrib/hbtip/tests/ftpadv.prg
* contrib/hbtip/tests/httpadv.prg
* contrib/xhb/hblog.prg
* contrib/xhb/htmutil.prg
* contrib/xhb/sprintf.prg
* doc/clipper.txt
* extras/gtwvw/tests/ebtest7.prg
* extras/gtwvw/tests/maximize.prg
* extras/gtwvw/tests/prog0.prg
* extras/gtwvw/tests/prog1.prg
* extras/gtwvw/tests/prog2.prg
* extras/gtwvw/tests/wvwmouse.prg
* extras/gtwvw/tests/wvwtest9.prg
* extras/hbdoc/hbdoc.prg
* extras/httpsrv/cookie.prg
* extras/httpsrv/session.prg
* src/rtl/tbrowse.prg
* tests/destruct.prg
* tests/switch.prg
* tests/t1.prg
* tests/testbrw.prg
* tests/tstuse.prg
* utils/hbmk2/hbmk2.prg
* utils/hbtest/rt_math.prg
* END -> END*
* other minor cleanups and formatting
59 lines
1.4 KiB
Plaintext
59 lines
1.4 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
? OS(), Version()
|
|
IF ! hb_dbExists( "_tst.dbf" )
|
|
dbCreate( "_tst", { { "F1", "C", 1, 0 } } )
|
|
ENDIF
|
|
IF ! hb_dbExists( "_tst2.dbf" )
|
|
dbCreate( "_tst2", { { "F1", "C", 1, 0 } } )
|
|
ENDIF
|
|
|
|
USE _tst NEW ALIAS "ONE" EXCLUSIVE
|
|
? Select(), Alias(), NetErr(), Used()
|
|
?
|
|
|
|
mkTest( .T., "NORDD", , "TWO", .T., .F. )
|
|
mkTest( .T., "DBF", , "TWO", .T., .F. )
|
|
mkTest( .T., "DBF", "", "TWO", .T., .F. )
|
|
mkTest( .T., "DBF", "nofile", "TWO", .T., .F. )
|
|
mkTest( .T., "DBF", "_tst2", "ONE", .T., .F. )
|
|
mkTest( .T., "DBF", "_tst", "ONE", .T., .F. )
|
|
mkTest( .T., "DBF", "_tst", "TWO", .T., .F. )
|
|
?
|
|
dbUseArea( .T., "DBF", "_tst", "ONE", .T., .F. )
|
|
? Select(), Alias(), NetErr(), Used()
|
|
dbUseArea( .T., "DBF", "_tst", "TWO", .T., .F. )
|
|
? Select(), Alias(), NetErr(), Used()
|
|
?
|
|
dbSelectArea( 1 )
|
|
mkTest( .F., "NORDD", , "TWO", .T., .F. )
|
|
?
|
|
|
|
dbCloseAll()
|
|
|
|
hb_dbDrop( "_tst.dbf" )
|
|
hb_dbDrop( "_tst2.dbf" )
|
|
|
|
RETURN
|
|
|
|
PROCEDURE mkTest( lNewArea, cRdd, cFile, cAlias, lShared, lReadOnly )
|
|
|
|
LOCAL cbErr := ErrorBlock( {| oErr | Break( oErr ) } ), oErr
|
|
|
|
NetErr( .F. )
|
|
BEGIN SEQUENCE
|
|
dbUseArea( lNewArea, cRdd, cFile, cAlias, lShared, lReadOnly )
|
|
RECOVER USING oErr
|
|
? "Error:", oErr:subCode, oErr:description, oErr:operation, oErr:osCode
|
|
END SEQUENCE
|
|
? Select(), Alias(), NetErr(), Used()
|
|
ErrorBlock( cbErr )
|
|
|
|
RETURN
|