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

* temporarily disabled the Fields.Count<FieldDefs.Count check.

Browse Source 
mantis #22030

git-svn-id: trunk@21591 -
This commit is contained in:
marco 2012-06-13 09:14:55 +00:00
parent 8698357d6c
commit f2ccc9f593
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-db/src/base/bufdataset.pas
View File

@ -1132,11 +1132,17 @@ begin
// reading from a stream in some other way implemented by a descendent) // reading from a stream in some other way implemented by a descendent)
// If there are less fields then FieldDefs we know for sure that the dataset // If there are less fields then FieldDefs we know for sure that the dataset
// is not (correctly) created. // is not (correctly) created.
if Fields.Count<FieldDefs.Count then
DatabaseError(SErrNoDataset); // commented for now. If there are constant expressions in the select
// statement they are ftunknown, and not created.
// See mantis #22030
// if Fields.Count<FieldDefs.Count then
// DatabaseError(SErrNoDataset);
// If there is a field with FieldNo=0 then the fields are not found to the // If there is a field with FieldNo=0 then the fields are not found to the
// FieldDefs which is a sign that there is no dataset created. (Calculated and // FieldDefs which is a sign that there is no dataset created. (Calculated and
// lookupfields have FielNo=-1) // lookupfields have FieldNo=-1)
for i := 0 to Fields.Count-1 do for i := 0 to Fields.Count-1 do
if fields[i].FieldNo=0 then if fields[i].FieldNo=0 then
DatabaseError(SErrNoDataset); DatabaseError(SErrNoDataset);