Gracefully ignore non existent columns on older servers. Fixes issue #1547

This commit is contained in:
Ansgar Becker
2009-12-21 09:13:01 +00:00
parent 4501f070a9
commit f1d22faa6a

View File

@ -900,7 +900,7 @@ begin
else
Obj.Engine := Results.Col('Engine');
Obj.Comment := Results.Col('Comment');
Obj.Version := StrToInt64Def(Results.Col('Version'), -1);
Obj.Version := StrToInt64Def(Results.Col('Version', True), -1);
Obj.AutoInc := StrToInt64Def(Results.Col('Auto_increment'), -1);
Obj.RowFormat := Results.Col('Row_format');
Obj.AvgRowLen := StrToInt64Def(Results.Col('Avg_row_length'), -1);
@ -912,8 +912,8 @@ begin
Obj.LastChecked := StrToDateTime(Results.Col('Check_time'))
else
Obj.LastChecked := 0;
Obj.Collation := Results.Col('Collation');
Obj.CheckSum := StrToInt64Def(Results.Col('Checksum'), -1);
Obj.Collation := Results.Col('Collation', True);
Obj.CheckSum := StrToInt64Def(Results.Col('Checksum', True), -1);
Obj.CreateOptions := Results.Col('Create_options');
Results.Next;
end;