From ad2b4667bd552da510aa390f6cd1aae190429eea Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sun, 17 Aug 2014 10:09:06 +0000 Subject: [PATCH] Support older PostgreSQL servers in TPGConnection.FetchDbObjects. See http://www.heidisql.com/forum.php?t=16072#p16138 --- source/dbconnection.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/dbconnection.pas b/source/dbconnection.pas index 8d539145..7b0ead33 100644 --- a/source/dbconnection.pas +++ b/source/dbconnection.pas @@ -4014,8 +4014,8 @@ begin Results := nil; try Results := GetResults('SELECT *,'+ - ' pg_table_size(CONCAT(t.TABLE_SCHEMA, ''.'', t.TABLE_NAME)) AS data_length,'+ - ' pg_relation_size(CONCAT(t.TABLE_SCHEMA, ''.'', t.TABLE_NAME)) AS index_length,'+ + ' pg_table_size(t.TABLE_SCHEMA || ''.'' || t.TABLE_NAME) AS data_length,'+ + ' pg_relation_size(t.TABLE_SCHEMA || ''.'' || t.TABLE_NAME) AS index_length,'+ ' c.reltuples, obj_description(c.oid) AS comment'+ ' FROM '+QuoteIdent('information_schema')+'.'+QuoteIdent('tables')+' AS t'+ ' LEFT JOIN '+QuoteIdent('pg_class')+' c ON c.relname=t.table_name'+