_lcConn = 'DRIVER={PostgreSQL ODBC Driver(ANSI)};DATABASE='+_lcBase+';SERVER='+_lcServer+';PORT=5432;Uid='+_lcUser+';'+';Pwd='+_lcPass+';B9=1;"'
_lnHandle = SQLSTRINGCONNECT(_lcConn)
IF _lnHandle < 0  && нет соединения с сервером

    * анализируем ошибку
	DO ErrHand with "Не удалось установить соединение с сервером."
	
    ON ERROR &_lcOldError			&& восстанавливаем обработчик ошибок
    RETURN .F.
ELSE   
	* есть соединение

    * устанавливаем свой обработчик ошибок
	ON ERROR DO ErrHand with ""
    * выполняемая команда на сервере
    _lcCommand = "insert into d_picture (id, cpath, cpic) values(1, 'c:\temp\picture\94.log','Тестовая строка');"
	SQLEXEC(_lnHandle, _lcCommand)

    _lcCommand = "select * from d_picture"
	SQLEXEC(_lnHandle, _lcCommand)
	
    SQLDISCONNECT(_lnHandle)				&& закрываем соединение
ENDIF

    _lcFile = FILETOSTR('c:\temp\94.log')
    _lcCommand = "insert into d_picture (id, cpath, cpic) values(1, 'c:\temp\94.log',?_lcFile);"
	SQLEXEC(_lnHandle, _lcCommand)

    _lcCommand = "select * from d_picture"
	SQLEXEC(_lnHandle, _lcCommand)

'   PG_ODBC_PARAMETER           ACCESS_PARAMETER
'   *********************************************
'   READONLY                    A0
'   PROTOCOL                    A1
'   FAKEOIDINDEX                A2  'A2 must be 0 unless A3=1
'   SHOWOIDCOLUMN               A3
'   ROWVERSIONING               A4
'   SHOWSYSTEMTABLES            A5
'   CONNSETTINGS                A6
'   FETCH                       A7
'   SOCKET                      A8
'   UNKNOWNSIZES                A9  ' range [0-2]
'   MAXVARCHARSIZE              B0
'   MAXLONGVARCHARSIZE          B1
'   DEBUG                       B2
'   COMMLOG                     B3
'   OPTIMIZER                   B4  ' note that 1 = _cancel_ generic optimizer...
'   KSQO                        B5
'   USEDECLAREFETCH             B6
'   TEXTASLONGVARCHAR           B7
'   UNKNOWNSASLONGVARCHAR       B8
'   BOOLSASCHAR                 B9
'   PARSE                       C0
'   CANCELASFREESTMT            C1
'   EXTRASYSTABLEPREFIXES       C2

************************************************************************************
LOCAL _lcServer, _lcUser, _lcPass, _lcConn, _lnHandle, _lcCommand, _CA_lo, _CA_bytea

CLEAR

_lcServer = "localhost"			&& сервер
_lcBase   = "test"				&& база данных
_lcUser   = "postgres"			&& пользователь
_lcPass   = "12345678"			&& пароль


* подключение через ODBC драйвер
_lcConn = 'DRIVER={PostgreSQL ODBC Driver(ANSI)};DATABASE='+_lcBase+';SERVER='+_lcServer+';PORT=5432;Uid='+_lcUser+';'+';Pwd='+_lcPass+';B9=0;C7=1"'
_lnHandle = SQLSTRINGCONNECT(_lcConn)
IF _lnHandle < 0  && нет соединения с сервером

    * анализируем ошибку
	DO ErrHand with "Не удалось установить соединение с сервером."
	
    RETURN .F.
ELSE   
	* есть соединение

    * устанавливаем свой обработчик ошибок
	ON ERROR DO ErrHand with ""

	*!* не забудьте добавить расширение - CREATE EXTENSION lo;
	*!*	CREATE TABLE d_picture
	*!*	(
	*!*	  id 		character(30) NOT NULL,
	*!*	  dtadd 	timestamp without time zone NOT NULL DEFAULT now(),
	*!*	  dtizm 	timestamp without time zone NOT NULL DEFAULT now(),
	*!*	  idparent	character(30),
	*!*	  cpath		character(254) NOT NULL,
	*!*	  cpic		bytea,
	*!*	  cpic_lo	lo,
	*!*	  copis		character(50),
	*!*	  CONSTRAINT d_picture_pkey PRIMARY KEY (id)
	*!*	)

	SQLEXEC(_lnHandle, 'truncate table d_picture')

	* работа с bytea

    * выполняемая команда на сервере
    _lbFile = CAST(FILETOSTR('c:\temp\edb_pgagent.exe') as BLOB)
    _lcCommand = "insert into d_picture (id, cpath, cpic) values(1, 'c:\temp\edb_pgagent.exe',?_lbFile);"
	SQLEXEC(_lnHandle, _lcCommand)

    _CA_bytea=Createobject("CursorAdapter")  
    _CA_bytea.Alias="d_bytea"  
    _CA_bytea.DataSourceType="ODBC"  
    _CA_bytea.Datasource=_lnHandle
    _CA_bytea.SelectCmd="SELECT id, dtadd, dtizm, idparent, cpath, cpic, copis FROM d_picture WHERE id = '1'"  
*    _CA_bytea.CursorSchema="id C(30), dtadd T, dtizm T, idparent C(30), cpath C(254), cpic M nocptrans, copis C(50)"  && M nocptrans приведен для примера, тоже работает, но я рекомендую BLOB
    _CA_bytea.CursorSchema="id C(30), dtadd T, dtizm T, idparent C(30), cpath C(254), cpic W, copis C(50)"  
    _CA_bytea.MapBinary=.T.  
    _CA_bytea.SendUpdates=.F.  
    _CA_bytea.UseCursorSchema=.T.  
    IF _CA_bytea.CursorFill(.T.,.F.)  
		_lnOk = STRTOFILE(d_bytea.cpic, 'c:\temp\edb_pgagent.bytea')
	ENDIF 


	* работа с lo типом

    * выполняемая команда на сервере
    _lbFile = CAST(FILETOSTR('c:\temp\edb_pgagent.exe') as BLOB)
    _lcCommand = "insert into d_picture (id, cpath, cpic_lo) values(2, 'c:\temp\edb_pgagent.exe',?_lbFile);"
	SQLEXEC(_lnHandle, _lcCommand)

    _CA_lo=Createobject("CursorAdapter")  
    _CA_lo.Alias="d_blob"  
    _CA_lo.DataSourceType="ODBC"  
    _CA_lo.Datasource=_lnHandle
    _CA_lo.SelectCmd="SELECT id, dtadd, dtizm, idparent, cpath, cpic_lo, copis FROM d_picture WHERE id = '2'"  
    _CA_lo.CursorSchema="id C(30), dtadd T, dtizm T, idparent C(30), cpath C(254), cpic_lo W, copis C(50)"  
    _CA_lo.MapBinary=.T.  
    _CA_lo.SendUpdates=.F.  
    _CA_lo.UseCursorSchema=.T.  
    IF _CA_lo.CursorFill(.T.,.F.)  
		_lnOk = STRTOFILE(d_blob.cpic_lo, 'c:\temp\edb_pgagent.lo')
	ENDIF 
	
    SQLDISCONNECT(_lnHandle)				&& закрываем соединение
ENDIF

* восстанавливаем обработчик ошибок
ON ERROR

RETURN .T.
************************************************************************************

*----------------------------------------------------------------------------------------
* Обработка ошибки
*----------------------------------------------------------------------------------------
PROCEDURE ErrHand
LPARAMETERS _lcTextMessage
*----------------------------------------------------------------------------------------
* _lcTextMessage - пользовательское сообщение о текущем выполняем процессе
*
* Возвращает: ничего не возвращает
*----------------------------------------------------------------------------------------
	LOCAL _laError[1]
    AERROR(_laError)
    * сообщение пользователю
    MESSAGEBOX(IIF(EMPTY(_lcTextMessage),"", _lcTextMessage + CHR(13));
               + "Номер ошибки:  " + ALLTRIM(STR(_laError[1])) + CHR(13);
               + "Текст ошибки:   " + _laError[3] + CHR(13) ;
               + "Модуль:              " + _laError[4], 16, "Внимание!")
ENDPROC