diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2018-11-13 09:08:01 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2018-11-13 09:12:36 +0100 |
| commit | 6f0dc4334a2772e14d8a1c771e9f31108212c506 (patch) | |
| tree | 2dfe50bb806cbc7db9cd132c35233867e991a2d5 /wizards | |
| parent | ae245cdde94432e01f2a4cd7b695c766ae6f569d (diff) | |
Access2Base - tdf#121342 Increase number of recordsets
RecordsetMax attribute of Database object is increased by 1
at each Recordset opening.
It is reset to zero at each database opening.
While the database remains open it is increased without limit.
Make it a Long type i.o. an Integer one.
Change-Id: Ifc9854cddc1917e4336c0c0c5aa1048623de2a49
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Database.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 7f1d5e726572..cbaa96555e06 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -34,7 +34,7 @@ Private _ColumnTypesAlias() As Variant ' To what should a field whose o Private _BinaryStream As Boolean ' False = binary fields must NOT be streamed f.i. via ReadAllBytes or WriteAllBytes Private Form As Object ' com.sun.star.form.XForm Private FormName As String -Private RecordsetMax As Integer +Private RecordsetMax As Long ' To make unique names in Collection below (See bug # 121342) Private RecordsetsColl As Object ' Collection of active recordsets REM ----------------------------------------------------------------------------------------------------------------------- |