paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 11:49:28 +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

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

@ -831,11 +831,11 @@ begin
If Name = 'PRIMARY' then options := options + [ixPrimary];
If qry.fieldbyname('Non_unique').asinteger = 0 then options := options + [ixUnique];
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
Fields := Fields + ';' + trim(qry.Fields[2].asstring);
Fields := Fields + ';' + trim(qry.fieldbyname('Column_name').asstring);
qry.next;
end;}
end;
end;
qry.close;
qry.free;