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

* Fixed multi-field indexes for MySQL

Browse Source 
git-svn-id: trunk@6689 -
This commit is contained in:
joost 2007-03-01 10:03:50 +00:00
parent 79b02de351
commit 7373797493
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -831,11 +831,11 @@ begin
If Name = 'PRIMARY' then options := options + [ixPrimary]; If Name = 'PRIMARY' then options := options + [ixPrimary];
If qry.fieldbyname('Non_unique').asinteger = 0 then options := options + [ixUnique]; If qry.fieldbyname('Non_unique').asinteger = 0 then options := options + [ixUnique];
qry.next; qry.next;
{ while (name = qry.fields[0].asstring) and (not qry.eof) do while (name = trim(qry.fieldbyname('Key_name').asstring)) and (not qry.eof) do
begin begin
Fields := Fields + ';' + trim(qry.Fields[2].asstring); Fields := Fields + ';' + trim(qry.fieldbyname('Column_name').asstring);
qry.next; qry.next;
end;} end;
end; end;
qry.close; qry.close;
qry.free; qry.free;