Article ID: 193574
Article Last Modified on 8/24/1999
* Make sure you run this from a directory that contains no Testtab1
* table or Testdb database files that you wish to preserve because
* they will be overwritten.
LOCAL lcTempFile
SET SAFETY OFF
CLEAR
CLOSE DATABASE ALL
* Make a Database.
CREATE DATABASE testdb
* Add a table.
CREATE TABLE testtab1 (F1 C(10) NOT NULL ;
PRIMARY KEY, ;
F2 C(10) NOT NULL)
* Get the temp directory and concatenate the file name.
lcTempFile = GETENV('temp')+'\xxx.dbf'
SET RESOURCE OFF
COPY FILE (SYS(2005)) TO (lcTempFile)
SET RESOURCE ON
* Create view.
CREATE VIEW lvTestview AS SELECT * FROM testtab1
SET SAFETY ON
* Attempt to take view offline, but select No in the dialog box.
* This returns .F. as expected.
?"CreateOffline returns ", CREATEOFFLINE('lvTestview', lcTempFile)
* Check to see if view is offline. DBGETPROP returns .T., but should
* return .F.
?"DBGetprop 'Offline' returns ", DBGETPROP('lvTestview', 'View', ;
'Offline')
* Clean up temp file.
DELETE FILE (lcTempFile)
CLOSE DATABASE ALL
Additional query words: kbVFp500abug kbVFp600fix kbDatabase kbvfp500 kbvfp500a
Keywords: kbbug kbfix kbcode KB193574