paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: datadict: when querying for table indexes use ServerIndexDefs instead of local IndexDef

Browse Source 
git-svn-id: trunk@33087 -
This commit is contained in:
lacak 2016-02-12 13:27:23 +00:00
parent b38b441d53
commit 6ca424900b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/datadict/fpddsqldb.pp
View File

@ -232,8 +232,8 @@ begin
Q.SQL.text:=Format('SELECT * FROM %s WHERE (1=2)',[ATableName]);
Q.ReadOnly:=False;
Q.Prepare;
Q.IndexDefs.Update;
IndexDefsToDDIndexDefs(Q.IndexDefs,Defs);
Q.ServerIndexDefs.Update;
IndexDefsToDDIndexDefs(Q.ServerIndexDefs,Defs);
Result:=Defs.Count;
finally
Q.Free;