diff options
Diffstat (limited to 'avx512-0037785/packages/fcl-db/src/sqldb/sqldb.pp')
-rw-r--r-- | avx512-0037785/packages/fcl-db/src/sqldb/sqldb.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/avx512-0037785/packages/fcl-db/src/sqldb/sqldb.pp b/avx512-0037785/packages/fcl-db/src/sqldb/sqldb.pp index 3118e0f545..4be0edf413 100644 --- a/avx512-0037785/packages/fcl-db/src/sqldb/sqldb.pp +++ b/avx512-0037785/packages/fcl-db/src/sqldb/sqldb.pp @@ -3137,7 +3137,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 |