Article ID: 191344
Article Last Modified on 3/3/2005
CREATE SQL VIEW "MYVIEW1" ;
REMOTE CONNECT "CONN1" ;
AS SELECT * ;
FROM mytable_a
DBSETPROP('MYVIEW1', 'View', 'Prepared', .T.)
CREATE SQL VIEW "MYVIEW2" ;
REMOTE CONNECT "CONN1" ;
AS SELECT * ;
FROM mytable_b
DBSETPROP('MYVIEW2', 'View', 'Prepared', .T.)
CREATE CONNECTION CONN1 DATASOURCE 'CONNECT' USERID 'SA' PASSWORD ''
CREATE CONNECTION CONN2 DATASOURCE 'CONNECT' USERID 'SA' PASSWORD ''
CREATE SQL VIEW "MYVIEW1" ;
REMOTE CONNECT "CONN1" SHARED ;
AS SELECT * ;
FROM mytable_a
DBSETPROP('MYVIEW1', 'View', 'Prepared', .T.)
CREATE SQL VIEW "MYVIEW2" ;
REMOTE CONNECT "CONN2" SHARED ;
AS SELECT * ;
FROM mytable_b
DBSETPROP('MYVIEW2', 'View', 'Prepared', .T.)
CREATE SQL VIEW "MYVIEW1" ;
REMOTE CONNECT "CONN1" ;
AS SELECT * ;
FROM mytable_a
USE MYVIEW1 IN 0
CREATE SQL VIEW "MYVIEW2" ;
REMOTE CONNECT "CONN1" ;
AS SELECT * ;
FROM mytable_b
Property Name Default Value -------------------------------------- SendUpdates .F. (False) UpdateType 1 SQL Update WhereType 3 Key and Modified Fields BatchUpdateCount 1 UseMemoSize 255 FetchSize 100 FetchMemo .T. (True) MaxRecords -1 (All) Tables Database Container and Table Name Comment Null String Prepared .F. (False) CompareMemo .T. (True) FetchAsNeeded .F. (False)
CREATE DATABASE TESTODBC
CREATE TABLE mytable_a ( ;
FLD_A I NULL, FLD_C C(15) NULL)
CREATE TABLE mytable_b ( ;
FLD_B I NULL,FLD_A I NULL,FLD_C C(15) NULL)
INSERT INTO mytable_a (FLD_A,FLD_C) VALUES (10452,'TEST1')
INSERT INTO mytable_b (FLD_B,FLD_A,FLD_C) VALUES (1,22345,'TEST1')
CLOSE ALL
* Begin Code
CLOSE ALL
SET SAFETY OFF
CREATE DATABASE odbcdemo
CREATE CONNECTION CONN1 DATASOURCE 'CONNECT' USERID 'SA' PASSWORD ''
CREATE SQL VIEW "MYVIEW1" ;
REMOTE CONNECT "CONN1" SHARED ;
AS SELECT * ;
FROM MYTABLE_A
DBSETPROP('MYVIEW1', 'View', 'Prepared', .T.)
CREATE SQL VIEW "MYVIEW2" ;
REMOTE CONNECT "CONN1" SHARED ;
AS SELECT * ;
FROM MYTABLE_B
DBSETPROP('MYVIEW2', 'View', 'Prepared', .T.)
CLOSE ALL
OPEN DATA odbcdemo
USE MYVIEW1
USE MYVIEW2 IN 0
=REQUERY('MYVIEW1') && FAILS HERE.
=REQUERY('MYVIEW2')
=REQUERY('MYVIEW1')
=REQUERY('MYVIEW2')
DO ODBCDEMO
NOTE: Observe that the code fails during the attempt to issue a REQUERY
command on MYVIEW1.
178760 HOWTO: Alter the Properties of a View at Run Time
Keywords: kbdatabase kbprb kbpending kbcode KB191344