paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 03:47:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sqlite: fix UpdateIndexDefs if TableName is in format DatbaseName.TableName. Partial fixes bug #30834

Browse Source 
git-svn-id: trunk@34963 -
This commit is contained in:
lacak 2016-11-25 12:31:43 +00:00
parent b78ff18bfa
commit 2f1addbb11
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
View File

@ -890,8 +890,8 @@ end;
procedure TSQLite3Connection.UpdateIndexDefs(IndexDefs: TIndexDefs; TableName: string);
var
artableinfo, arindexlist, arindexinfo: TArrayStringArray;
il,ii: integer;
IndexName: string;
i,il,ii: integer;
DbName, IndexName: string;
IndexOptions: TIndexOptions;
PKFields, IXFields: TStrings;
@ -912,14 +912,27 @@ begin
IXFields:=TStringList.Create;
IXFields.Delimiter:=';';
//check for multipart unquoted identifier: DatabaseName.TableName
if Pos('"',TableName) = 0 then
i := Pos('.',TableName)
else
i := 0;
if i>0 then
begin
DbName := Copy(TableName,1,i);
Delete(TableName,1,i);
end
else
DbName := '';
//primary key fields; 5th column "pk" is zero for columns that are not part of PK
artableinfo := stringsquery('PRAGMA table_info('+TableName+');');
artableinfo := stringsquery('PRAGMA '+DbName+'table_info('+TableName+');');
for ii:=low(artableinfo) to high(artableinfo) do
if (high(artableinfo[ii]) >= 5) and (artableinfo[ii][5] >= '1') then
PKFields.Add(artableinfo[ii][1]);
//list of all table indexes
arindexlist:=stringsquery('PRAGMA index_list('+TableName+');');
arindexlist:=stringsquery('PRAGMA '+DbName+'index_list('+TableName+');');
for il:=low(arindexlist) to high(arindexlist) do
begin
IndexName:=arindexlist[il][1];