paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 02:41:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* GetExtendedFieldinfo, patch to fix #40300

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-05-30 14:24:52 +02:00
parent 8696ca652d
commit 5ee294f224
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -501,6 +501,7 @@ s:='';
end; end;
if (S='') then if (S='') then
exit; exit;
S:='select oid,typname,typtype,typcategory from pg_type where oid in ('+S+') order by oid';
Res:=Cursor.Handle.Exec(S,False,'Error getting typeinfo'); Res:=Cursor.Handle.Exec(S,False,'Error getting typeinfo');
try try
For I:=0 to PQntuples(Res)-1 do For I:=0 to PQntuples(Res)-1 do