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

fcl-db: bufdataset: partialy fixes TestOpeningNonExistingDataset. See also #22030.

Browse Source 
git-svn-id: trunk@25314 -
This commit is contained in:
lacak 2013-08-20 06:42:09 +00:00
parent 4237cbcfd8
commit 99e67d19cc
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1129,12 +1129,14 @@ begin
// If there are less fields then FieldDefs we know for sure that the dataset
// is not (correctly) created.
// commented for now. If there are constant expressions in the select
// statement they are ftUnknown, and not created.
// If there are constant expressions in the select statement (for PostgreSQL)
// they are of type ftUnknown (in FieldDefs), and are not created (in Fields).
// So Fields.Count < FieldDefs.Count in this case
// See mantis #22030
// if Fields.Count<FieldDefs.Count then
// DatabaseError(SErrNoDataset);
if Fields.Count = 0 then
DatabaseError(SErrNoDataset);
// 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