Google

СУБД Postgres

Данная реализация DBFSQL для Postgres тестировалась с версией PostgreSQL 6.5.3.

Чтобы построить приложение с использованием DBFSQL для Postgres его нужно слинковать с библиотекой libclip-postgres.so

Для подключения к серверу используйте конструктор класса TConnect в следующем синтаксисе:

ConnectNew("PG",[<host>],[<port>],[<login>], [<pwd>],[<dbName>],[<pgtty>], [<pgopt>]), где

"PG" - строка, идентифицирующая СУБД Postgres;

<host> - имя хоста (DNS) сервера Postgres;

<port> - номер порта сервера Postgres;

<login> - логин пользователя;

<pwd> - пароль пользователя.

<dbName> - имя базы данных;

<pgtty> - терминал для вывода сообщений от клиента;

<pgopt> - дополнительные опции соединения;

Если любой из аргументов опущен, используется соответствующая переменная окружения (см. документацию по Postgres). Если переменная окружения также не установлена, используется значение по умолчанию.

Все аргументы должны представлять собой текстовые значения, например pgport должно иметь значение "5234".

Postgres не предоставляет обычного для многих других СУБД механизма передачи параметров операторам SQL. Этот механизм лишь сзмулирован в данной реализации. Позтому повышения производительности при многократном выполнении одного и того же оператора SQL с разными параметрами не ждите. Сервер все равно будет обрабатывать каждый оператор в стандартном режиме (parser, planner, optimizer и т.д.).

Для связи записей набора (TRowset) и физической таблицы базы данных Postgres испольуется поле OID, которое присутствует во всех таблицах Postgres. Для полноценной работы с набором (с возможностью отражения производимых изменений набора записей в базе данных) в список запрашиваемых полей запроса SELECT следует явно включать поле OID. Например:

SELECT oid,* FROM mytable

В операторах автоматического отражения (deleteSQL и updateSQL, передаваемых конструктору TRowset) следует использовать предложение WHERE oid=:oid. Например:

DELETE FROM mytable WHERE oid=:oid

UPDATE mytable SET fname=:fname,lname=:lname WHERE oid=:oid

Postgres может возвращать запрашиваемые записи (в терминологии Postgres - tuples) в двух видах - текстовом и бинарном. Обычный SELECT возвращает записи в текстовом виде. Для того чтобы получить бинарные записи, следует сначала создать бинарный курсор, а затем для него выполнить команду FETCH. Например: 
 conn:Command("BEGIN")
 conn:Command("DECLARE mycur BINARY CURSOR FOR SELECT oid,* FROM mytable")
 rs := conn:CreateRowset("FETCH ALL FROM mycur")
 conn:Command("END")
Для правильной работы с датами следует правильно установить переменную окружения PGDATESTYLE (в соответствии со значением PGDATESTYLE, используемым сервером Postgres). Например: 
 export PGDATESTYLE=EURO
Возможные значения PGDATESTYLE: 
 Style      Date            Datetime
 --------------------------------------------------------
 ISO        1999-07-17      1999-07-17 07:09:18+01
 SQL        17/07/1999      17/07/1999 07:09:19.00 BST
 POSTGRES   17-07-1999      Sat 17 Jul 07:09:19 1999 BST
 GERMAN     17.07.1999      17.07.1999 07:09:19.00 BST
 NONEURO    07-17-1999      Sat Jul 17 07:09:19 1999 BST
 US         07-17-1999      Sat Jul 17 07:09:19 1999 BST
 EURO       17-07-1999      Sat 17 Jul 07:09:19 1999 BST


Реализованы следующие типы Postgres: 
Тип Postgres             Тип Clipper

ABSTIME                  DATE
BOOL                     LOGICAL
BOX                      Array {{x1,y1},{x2,y2}},
						 x1,y1,x2,y2 - NUMERIC
BPCHAR                   CHARACTER
BYTEA                    CHARACTER
CHAR                     CHARACTER
CID                      NUMERIC
CIDR                     Array {x1,...},
						 x1,... - NUMERIC
CIRCLE                   Array {x1,x2,x3},
						 x1,x2,x3 - NUMERIC
DATE                     DATE
FILENAME                 CHARACTER
FLOAT4                   NUMERIC
FLOAT8                   NUMERIC
INET                     Array {x1,x2,x3,x4,x5},
						 x1,x2,x3,x4,x5 - NUMERIC
INT2                     NUMERIC
INT28                    Array {x1,x2,...,x8},
						 x1,x2,...,x8 - NUMERIC
INT4                     NUMERIC
LSEG                     Array {{x1,y1},{x2,y2}},
						 x1,y1,x2,y2 - NUMERIC
MONEY                    NUMERIC
NAME                     CHARACTER
NUMERIC                  NUMERIC
OID                      NUMERIC
OID8                     Array {x1,x2,...,x8},
						 x1,x2,...,x8 - NUMERIC
PATH                     CHARACTER
POINT                    Array {x,y},
						 x,y - NUMERIC
POLYGON                  Array {{x1,y1},...{xn,yn}},
						 x1..xn, y1...yn - NUMERIC
RELTIME                  NUMERIC
TEXT                     CHARACTER
TIMESTAMP                DATE
VARCHAR                  CHARACTER
XID                      NUMERIC
В качестве простейшего примера использования SQL с СУБД Postgres в комплект поставки включен файл mypsql.prg, функционально дублирующий утилиту psql из комплекта поставки Postgres. Вот ее текст: 
PROCEDURE Main

LOCAL conn,rs,data
LOCAL sql := ""
LOCAL I

CLS
ErrorBlock({|e| SQLError(e)})

conn := ConnectNew("PG",,,,,"test")
DO WHILE UPPER(sql := GetCommand()) != "Q"
	IF UPPER(LEFT(sql,6))=="SELECT" .OR. UPPER(LEFT(sql,5))=="FETCH"
		BEGIN SEQUENCE
			rs := conn:CreateRowset(sql)
		RECOVER USING e
			LOOP
		END SEQUENCE
		FOR I:=1 TO rs:NFields()
			?? PADR(rs:FieldName(I),10),"|"
		NEXT
		?
		FOR I:=1 TO rs:NFields()
			?? "----------","|"
		NEXT
		DO WHILE !rs:Eof()
			?
			data := rs:Read()
			FOR I:=1 TO rs:NFields()
				tmp := data[HASHSTR(UPPER(rs:FieldName(I)))]
				IF VALTYPE(tmp)=="A"
					?? "{...}     ","|"
				ELSEIF tmp==NIL
					?? "NIL       ","|"
				ELSE
					?? PADR(data[HASHSTR(UPPER(rs:FieldName(I)))],10),"|"
				ENDIF
			NEXT
			rs:Skip()
		ENDDO
		rs:Destroy()
	ELSE
		BEGIN SEQUENCE
			?? LEFT(sql,LEN(sql)-1)+": "
			conn:Command(sql)
			?? "OK"
		RECOVER USING e
			LOOP
		END SEQUENCE
	ENDIF
	?
ENDDO
conn:Destroy()

RETURN

FUNCTION GetCommand()
	LOCAL ret := ""
	LOCAL tmp := ""
	LOCAL first := .T.

	@ MAXROW(),0 SAY ""
	DO WHILE !(";" $ tmp) .AND. ALLTRIM(UPPER(ret)) != "Q"
		IF first
			ACCEPT "SQL> " TO tmp
			first := .F.
		ELSE
			ACCEPT "SQL---> " TO tmp
		ENDIF
		ret += tmp + " "
	ENDDO
RETURN ALLTRIM(ret)

FUNCTION SQLError(e)
	?? e:operation
	BREAK(e)
RETURN NIL