diff options
Diffstat (limited to 'packages/fcl-db/src/sqldb/sqldb.pp')
| -rw-r--r-- | packages/fcl-db/src/sqldb/sqldb.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-db/src/sqldb/sqldb.pp b/packages/fcl-db/src/sqldb/sqldb.pp index af867e6aaf..b571d8c77e 100644 --- a/packages/fcl-db/src/sqldb/sqldb.pp +++ b/packages/fcl-db/src/sqldb/sqldb.pp @@ -3122,7 +3122,7 @@ begin UpdateServerIndexDefs; FStatement.Execute; - if not Cursor.FSelectable then + if (Cursor=nil) or (not Cursor.FSelectable) then DatabaseError(SErrNoSelectStatement,Self); // InternalInitFieldDef is only called after a prepare. i.e. not twice if |