cConnString ="DRIVER={PostgreSQL Unicode};DATABASE=postgres;"+ ;
   "SERVER=127.0.0.1;PORT=5432;UID=postgres;PWD=x;B9=0"
nconnh=SQLSTRINGCONNECT(cconnstring)
TEXT TO csql
CREATE table test ( test char(1));
insert into test values ('');
select 0 AS someField from test
ENDTEXT

IF SQLEXECEX(nconnh, csql,'','',0,'someField N(1)') < 0
  AERROREX('laError')
  DISPLAY MEMORY LIKE laError
  RETURN
ENDIF

SELECT sqlresult
DISPLAY STRUCTURE TO FILE t
MODIFY FILE t

&& cursoradapter approach

loCA = CREATEOBJECT('CursorAdapter')
loCA.SelectCmd = csql
loCA.CursorSchema = 'someField N(1)'
loCA.CursorFill(.t.)
.....