CREATE TABLE T1
(
 pk     integer NOT NULL,
 dat   char( 3 ) NULL,
 PRIMARY KEY (pk)
)
;

INSERT INTO T1 (pk,dat) VALUES ( 1 ,'a');
INSERT INTO T1 (pk,dat) VALUES ( 2 ,NULL);
INSERT INTO T1 (pk,dat) VALUES ( 3 ,'c');
INSERT INTO T1 (pk,dat) VALUES ( 4 ,NULL);
INSERT INTO T1 (pk,dat) VALUES ( 5 ,NULL);
INSERT INTO T1 (pk,dat) VALUES ( 6 ,'f');
INSERT INTO T1 (pk,dat) VALUES ( 7 ,'g');


CREATE TABLE T2
(
 pk     integer NOT NULL,
 PRIMARY KEY (pk)
)
;

INSERT INTO T2 (pk) VALUES ( 101 );
INSERT INTO T2 (pk) VALUES ( 102 );
INSERT INTO T2 (pk) VALUES ( 103 );
INSERT INTO T2 (pk) VALUES ( 104 );
INSERT INTO T2 (pk) VALUES ( 105 );
;

CLOSE DATABASES ALL
CLEAR ALL 
LOCAL MyDSN,UID,PWD,ConnectHandle

MyDSN='myDSN'
UID='DBA'
PWD='password'

ConnectHandle = SQLCONNECT(MyDSN,UID,PWD)
IF ConnectHandle> 0 
   
  IF SQLEXEC(ConnectHandle,  "select pk,dat from T1 union select pk,null as dat from t2" ,'ResultCursor')<= 0 
     =MessageBox('Error get data !', 16 ,'Error')
  ELSE
     BROWSE normal
  ENDIF

  =SQLDISCONNECT(ConnectHandle)
ELSE
  =MessageBox('Connection error !', 16 ,'Error')
ENDIF