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

+ set the right fieldno when adding a field

Browse Source 
git-svn-id: trunk@4266 -
This commit is contained in:
joost 2006-07-20 17:27:42 +00:00
parent 82b74ffc64
commit b80c0fcf4c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/db/sqldb/mysql/mysqlconn.inc
View File

@ -426,7 +426,7 @@ procedure TConnectionName.AddFieldDefs(cursor: TSQLCursor;
var var
C : TCursorName; C : TCursorName;
I, FC: Integer; I, TF, FC: Integer;
field: PMYSQL_FIELD; field: PMYSQL_FIELD;
DFT: TFieldType; DFT: TFieldType;
DFS: Integer; DFS: Integer;
@ -441,13 +441,17 @@ begin
end; end;
// Writeln('MySQL: have result'); // Writeln('MySQL: have result');
FC:=mysql_num_fields(C.FRes); FC:=mysql_num_fields(C.FRes);
TF := 1;
For I:= 0 to FC-1 do For I:= 0 to FC-1 do
begin begin
field := mysql_fetch_field_direct(C.FRES, I); field := mysql_fetch_field_direct(C.FRES, I);
// Writeln('MySQL: creating fielddef ',I+1); // Writeln('MySQL: creating fielddef ',I+1);
if MySQLDataType(field^.ftype, field^.length, field^.decimals, DFT, DFS) then if MySQLDataType(field^.ftype, field^.length, field^.decimals, DFT, DFS) then
TFieldDef.Create(FieldDefs, field^.name, DFT, DFS, False, I+1); begin
TFieldDef.Create(FieldDefs, field^.name, DFT, DFS, False, TF);
inc(TF);
end
end; end;
// Writeln('MySQL: Finished adding fielddefs'); // Writeln('MySQL: Finished adding fielddefs');
end; end;