paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 05:00:12 +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
C : TCursorName;
I, FC: Integer;
I, TF, FC: Integer;
field: PMYSQL_FIELD;
DFT: TFieldType;
DFS: Integer;
@ -441,13 +441,17 @@ begin
end;
// Writeln('MySQL: have result');
FC:=mysql_num_fields(C.FRes);
TF := 1;
For I:= 0 to FC-1 do
begin
field := mysql_fetch_field_direct(C.FRES, I);
// Writeln('MySQL: creating fielddef ',I+1);
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;
// Writeln('MySQL: Finished adding fielddefs');
end;