wizards/source/access2base/Recordset.xba

   1 <?xml version="1.0" encoding="UTF-8"?>
   2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   3 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Recordset" script:language="StarBasic">REM =======================================================================================================================
   4 REM ===                                 The Access2Base library is a part of the LibreOffice project.                                                                   ===
   5 REM ===                                 Full documentation is available on http://www.access2base.com                                                                   ===
   6 REM =======================================================================================================================
   7
   8 Option Compatible
   9 Option ClassModule
  10
  11 Option Explicit
  12
  13 REM -----------------------------------------------------------------------------------------------------------------------
  14 REM --- CLASS ROOT FIELDS                                                                                                                                                                                       ---
  15 REM -----------------------------------------------------------------------------------------------------------------------
  16
  17 Private _Type                                   As String                               &apos;  Must be RECORDSET
  18 Private _Name                                   As String                               &apos;  Unique, generated
  19 Private _ParentName                             As String
  20 Private _ParentType                             As String
  21 Private _ParentDatabase                 As Object
  22 Private _ForwardOnly                    As Boolean
  23 Private _PassThrough                    As Boolean
  24 Private _ReadOnly                               As Boolean
  25 Private _CommandType                    As Long
  26 Private _Command                                As String
  27 Private _DataSet                                As Boolean                              &apos;  True if execute() successful
  28 Private _BOF                                    As Boolean
  29 Private _EOF                                    As Boolean
  30 Private _Filter                                 As String
  31 Private _EditMode                               As Integer                              &apos;  dbEditxxx constants
  32 Private _BookmarkBeforeNew              As Variant
  33 Private _BookmarkLastModified   As Variant
  34 Private _IsClone                                As Boolean
  35 Private RowSet                                  As Object                               &apos;  com.sun.star.comp.dba.ORowSet
  36
  37 REM -----------------------------------------------------------------------------------------------------------------------
  38 REM --- CONSTRUCTORS / DESTRUCTORS                                                                                                                                                                      ---
  39 REM -----------------------------------------------------------------------------------------------------------------------
  40 Private Sub Class_Initialize()
  41         _Type = OBJRECORDSET
  42         _Name = &quot;&quot;
  43         _ParentName = &quot;&quot;
  44         Set _ParentDatabase = Nothing
  45         _ParentType = &quot;&quot;
  46         _ForwardOnly = False
  47         _PassThrough = False
  48         _ReadOnly = False
  49         _CommandType = 0
  50         _Command = &quot;&quot;
  51         _DataSet = False
  52         _BOF = True
  53         _EOF = True
  54         _Filter = &quot;&quot;
  55         _EditMode = dbEditNone
  56         _BookmarkBeforeNew = Null
  57         _BookmarkLastModified = Null
  58         _IsClone = False
  59         Set RowSet = Nothing
  60 End Sub         &apos;  Constructor
  61
  62 REM -----------------------------------------------------------------------------------------------------------------------
  63 Private Sub Class_Terminate()
  64         On Local Error Resume Next
  65         mClose()
  66 End Sub
  67
  68 REM -----------------------------------------------------------------------------------------------------------------------
  69 REM --- CLASS GET/LET/SET PROPERTIES                                                                                                                                                            ---
  70 REM -----------------------------------------------------------------------------------------------------------------------
  71
  72 REM -----------------------------------------------------------------------------------------------------------------------
  73 Property Get AbsolutePosition() As Variant
  74         AbsolutePosition = _PropertyGet(&quot;AbsolutePosition&quot;)
  75 End Property            &apos;  AbsolutePosition (get)
  76
  77 Property Let AbsolutePosition(ByVal pvValue As Variant)
  78         Call _PropertySet(&quot;AbsolutePosition&quot;, pvValue)
  79 End Property    &apos;  AbsolutePosition (set)
  80
  81 REM -----------------------------------------------------------------------------------------------------------------------
  82 Property Get BOF() As Boolean
  83         BOF = _PropertyGet(&quot;BOF&quot;)
  84 End Property            &apos;  BOF (get)
  85
  86 REM -----------------------------------------------------------------------------------------------------------------------
  87 Property Get Bookmark() As Variant
  88         Bookmark = _PropertyGet(&quot;Bookmark&quot;)
  89 End Property            &apos;  Bookmark (get)
  90
  91 Property Let Bookmark(ByVal pvValue As Variant)
  92         Call _PropertySet(&quot;Bookmark&quot;, pvValue)
  93 End Property    &apos;  Bookmark (set)
  94
  95 REM -----------------------------------------------------------------------------------------------------------------------
  96 Property Get Bookmarkable() As Boolean
  97         Bookmarkable = _PropertyGet(&quot;Bookmarkable&quot;)
  98 End Property            &apos;  Bookmarkable (get)
  99
 100 REM -----------------------------------------------------------------------------------------------------------------------
 101 Property Get EOF() As Boolean
 102         EOF = _PropertyGet(&quot;EOF&quot;)
 103 End Property            &apos;  EOF (get)
 104
 105 REM -----------------------------------------------------------------------------------------------------------------------
 106 Property Get EditMode() As Boolean
 107         EditMode = _PropertyGet(&quot;EditMode&quot;)
 108 End Property            &apos;  EditMode (get)
 109
 110 REM -----------------------------------------------------------------------------------------------------------------------
 111 Property Get Filter() As Variant
 112         Filter = _PropertyGet(&quot;Filter&quot;)
 113 End Property            &apos;  Filter (get)
 114
 115 Property Let Filter(ByVal pvValue As Variant)
 116         Call _PropertySet(&quot;Filter&quot;, pvValue)
 117 End Property    &apos;  Filter (set)
 118
 119 REM -----------------------------------------------------------------------------------------------------------------------
 120 Property Get LastModified() As Variant
 121 &apos;  DO NOT PUBLISH
 122         LastModified = _PropertyGet(&quot;LastModified&quot;)
 123 End Property            &apos;  LastModified (get)
 124
 125 REM -----------------------------------------------------------------------------------------------------------------------
 126 Property Get Name() As String
 127         Name = _PropertyGet(&quot;Name&quot;)
 128 End Property            &apos;  Name (get)
 129
 130 REM -----------------------------------------------------------------------------------------------------------------------
 131 Property Get ObjectType() As String
 132         ObjectType = _PropertyGet(&quot;ObjectType&quot;)
 133 End Property            &apos;  ObjectType (get)
 134
 135 REM -----------------------------------------------------------------------------------------------------------------------
 136 Property Get RecordCount() As Long
 137         RecordCount = _PropertyGet(&quot;RecordCount&quot;)
 138 End Property            &apos;  RecordCount (get)
 139
 140 REM -----------------------------------------------------------------------------------------------------------------------
 141 REM --- CLASS METHODS                                                                                                                                                                                           ---
 142 REM -----------------------------------------------------------------------------------------------------------------------
 143
 144 REM -----------------------------------------------------------------------------------------------------------------------
 145 Public Function AddNew() As Boolean
 146 &apos;  Initiates the creation of a new record
 147
 148 Const cstThisSub = &quot;Recordset.AddNew&quot;
 149 Dim i As Integer, iFieldsCount As Integer, oField As Object
 150 Dim sdefault As String, oColumn As Object
 151 Dim iValue As Integer, lValue As Long, sgValue As Single, dbValue As Double, dValue As Date
 152 Dim vTemp As Variant
 153         If _ErrorHandler() Then On Local Error Goto Error_Function
 154         Utils._SetCalledSub(cstThisSub)
 155         AddNew = False
 156
 157         With RowSet
 158                 &apos;Is inserting a new row allowed ?
 159                 If _ForwardOnly Or _ReadOnly Then Goto Error_NoUpdate
 160                 If Not .CanUpdateInsertedRows Then Goto Error_NoUpdate
 161                 If Not .IsBookmarkable Then Goto Error_NoUpdate
 162                 If _EditMode &lt;&gt; dbEditNone Then CancelUpdate()
 163                 If _BOF And _EOF Then           &apos;  Records before first or after last do not have a bookmark
 164                         _BookmarkBeforeNew = &quot;_BOF_&quot;
 165                 ElseIf .isBeforeFirst() Then
 166                         _BookmarkBeforeNew = &quot;_BOF_&quot;
 167                 ElseIf .isAfterLast() Then
 168                         _BookmarkBeforeNew = &quot;_EOF_&quot;
 169                 Else
 170                         _BookmarkBeforeNew = .getBookmark()
 171                 End If
 172
 173                 .moveToInsertRow()
 174
 175                 &apos;Set all fields to their default value
 176                 iFieldsCount = Fields().Count
 177                 On Local Error Resume Next                      &apos;  Do not stop if default setting fails
 178                 For i = 0 To iFieldsCount - 1
 179                         Set oField = Fields(i)
 180                         Set oColumn = oField.Column
 181                         If Utils._hasUNOProperty(oColumn, &quot;DefaultValue&quot;) Then                        &apos;  Default value in database set via SQL statement
 182                                 sDefault = oColumn.DefaultValue
 183                         ElseIf Utils._hasUNOProperty(oColumn, &quot;ControlDefault&quot;) Then  &apos;  Default value set in Base via table edition
 184                                         If IsEmpty(oColumn.ControlDefault) Then sdefault = &quot;&quot; Else sDefault = oColumn.ControlDefault
 185                         Else
 186                                         sdefault = &quot;&quot;
 187                         End If
 188                         If sDefault = &quot;&quot; Then
 189                                 If oColumn.IsNullable = com.sun.star.sdbc.ColumnValue.NULLABLE Then oColumn.updateNull()
 190                         Else                            &apos;  No default value
 191                                 With com.sun.star.sdbc.DataType
 192                                         Select Case oColumn.Type
 193                                                 Case .BIT, .BOOLEAN
 194                                                         If sDefault = &quot;1&quot; Then oColumn.updateBoolean(True) Else oColumn.updateBoolean(False)
 195                                                 Case .TINYINT
 196                                                         iValue = CInt(sDefault)
 197                                                         If iValue &gt;= -128 And iValue &lt;= +127 Then oColumn.updateShort(iValue)
 198                                                 Case .SMALLINT
 199                                                         lValue = CLng(sDefault)
 200                                                         If lValue &gt;= -32768 And lValue &lt;= 32767 Then oColumn.updateInt(lValue)
 201                                                 Case .INTEGER
 202                                                         lValue = CLng(sDefault)
 203                                                         If lValue &gt;= -2147483648 And lValue &lt;= 2147483647 Then oColumn.updateInt(lValue)
 204                                                 Case .BIGINT
 205                                                         lValue = CLng(sDefault)
 206                                                         Column.updateLong(lValue)               &apos;  No proper type conversion for HYPER data type
 207                                                 Case .FLOAT
 208                                                         sgValue = CSng(sDefault)
 209                                                         If Abs(sgValue) &lt; 3.402823E38 And Abs(sgValue) &gt; 1.401298E-45 Then oColumn.updateFloat(sgValue)
 210                                                 Case .REAL, .DOUBLE
 211                                                         dbValue = CDbl(sDefault)
 212                                                         &apos;If Abs(dbValue) &lt; 1.79769313486232E308 And Abs(dbValue) &gt; 4.94065645841247E-307 Then oColumn.updateDouble(dbValue)
 213                                                         oColumn.updateDouble(dbValue)
 214                                                 Case .NUMERIC, .DECIMAL
 215                                                         dbValue = CDbl(sDefault)
 216                                                         If Utils._hasUNOProperty(Column, &quot;Scale&quot;) Then
 217                                                                 If Column.Scale &gt; 0 Then
 218                                                                         &apos;If Abs(dbValue) &lt; 1.79769313486232E308 And Abs(dbValue) &gt; 4.94065645841247E-307 Then oColumn.updateDouble(dbValue)
 219                                                                         oColumn.updateDouble(dbValue)
 220                                                                 Else
 221                                                                         oColumn.updateString(sdefault)
 222                                                                 End If
 223                                                         Else
 224                                                                 oColumn.updateString(sdefault)
 225                                                         End If
 226                                                 Case .CHAR, .VARCHAR, .LONGVARCHAR
 227                                                         oColumn.updateString(sdefault)                                          &apos;  vbString
 228                                                 Case .DATE
 229                                                         dValue = DateValue(sDefault)
 230                                                         vTemp = New com.sun.star.util.Date
 231                                                         With vTemp
 232                                                                 .Day = Day(dValue)
 233                                                                 .Month = Month(dValue)
 234                                                                 .Year = Year(dValue)
 235                                                         End With
 236                                                         oColumn.updateDate(vTemp)
 237                                                 Case .TIME
 238                                                         dValue = TimeValue(sDefault)
 239                                                         vTemp = New com.sun.star.util.Time
 240                                                         With vTemp
 241                                                                 .Hours = Hour(dValue)
 242                                                                 .Minutes = Minute(dValue)
 243                                                                 .Seconds = Second(dValue)
 244                                                                 &apos;.HundredthSeconds = 0
 245                                                         End With
 246                                                         oColumn.updateTime(vTemp)
 247                                                 Case .TIMESTAMP
 248                                                         dValue = DateValue(sDefault)
 249                                                         vTemp = New com.sun.star.util.DateTime
 250                                                         With vTemp
 251                                                                 .Day = Day(dValue)
 252                                                                 .Month = Month(dValue)
 253                                                                 .Year = Year(dValue)
 254                                                                 .Hours = Hour(dValue)
 255                                                                 .Minutes = Minute(dValue)
 256                                                                 .Seconds = Second(dValue)
 257                                                                 &apos;.HundredthSeconds = 0
 258                                                         End With
 259                                                         oColumn.updateTimestamp(vTemp)
 260 &apos;                                          Case .BINARY, .VARBINARY, .LONGVARBINARY
 261         &apos;                                  Case .BLOB
 262 &apos;                                          Case .CLOB
 263                                                 Case Else
 264                                         End Select
 265                                 End With
 266                         End If
 267                 Next i
 268         End With
 269         If _ErrorHandler() Then On Local Error Goto Error_Function Else On Local Error Goto 0
 270
 271         _EditMode = dbEditAdd
 272         AddNew = True
 273
 274 Exit_Function:
 275         Utils._ResetCalledSub(cstThisSub)
 276         Exit Function
 277 Error_Function:
 278         TraceError(TRACEABORT, Err, cstThisSub, Erl)
 279         GoTo Exit_Function
 280 Error_NoUpdate:
 281         TraceError(TRACEFATAL, ERRNOTUPDATABLE, Utils._CalledSub(), 0)
 282         Goto Exit_Function
 283 End Function            &apos;  AddNew
 284
 285 REM -----------------------------------------------------------------------------------------------------------------------
 286 Public Function CancelUpdate() As Boolean
 287 &apos;  Cancel any edit action
 288
 289 Const cstThisSub = &quot;Recordset.CancelUpdate&quot;
 290
 291         If _ErrorHandler() Then On Local Error Goto Error_Function
 292         Utils._SetCalledSub(cstThisSub)
 293         CancelUpdate = False
 294
 295         With RowSet
 296                 Select Case _EditMode
 297                         Case dbEditNone
 298                         Case dbEditAdd
 299                                 If Not IsNull(_BookmarkBeforeNew) Then
 300                                         Select Case _BookmarkBeforeNew
 301                                                 Case &quot;_BOF_&quot;          :               .beforeFirst()
 302                                                 Case &quot;_EOF_&quot;          :               .afterLast()
 303                                                 Case Else                       :               .moveToBookmark(_BookmarkBeforeNew)
 304                                         End Select
 305                                 End If
 306                         Case dbEditInProgress
 307                                 .cancelRowUpdates()
 308                 End Select
 309         End With
 310
 311         _EditMode = dbEditNone
 312         _BookmarkBeforeNew = Null
 313         _BookmarkLastModified = Null
 314         CancelUpdate = True
 315
 316 Exit_Function:
 317         Utils._ResetCalledSub(cstThisSub)
 318         Exit Function
 319 Error_Function:
 320         TraceError(TRACEABORT, Err, cstThisSub, Erl)
 321         GoTo Exit_Function
 322 End Function            &apos;  CancelUpdate
 323
 324 REM -----------------------------------------------------------------------------------------------------------------------
 325 Public Function Clone() As Object
 326 &apos;  Duplicate an existing recordset
 327
 328 Const cstThisSub = &quot;Recordset.Clone&quot;
 329
 330 Const cstNull = -1
 331 Dim iType As Integer, iOptions As Integer, iLockEdit As Integer
 332         If _ErrorHandler() Then On Local Error Goto Error_Function
 333         Utils._SetCalledSub(cstThisSub)
 334         Set Clone = Nothing
 335
 336         If _IsClone Then Goto Error_Clone
 337         If _ForwardOnly Then iType = dbOpenForwardOnly Else iType = cstNull
 338         If _PassThrough Then iOptions = dbSQLPassThrough Else iOptions = cstNull
 339         iLockEdit = dbReadOnly                  &apos;  Always read-only
 340
 341         Set Clone = OpenRecordset(iType, iOptions, iLockEdit, True)
 342
 343 Exit_Function:
 344         Utils._ResetCalledSub(cstThisSub)
 345         Exit Function
 346 Error_Function:
 347         TraceError(TRACEABORT, Err, cstThisSub, Erl)
 348         GoTo Exit_Function
 349 Error_Clone:
 350         TraceError(TRACEFATAL, ERRRECORDSETCLONE, Utils._CalledSub(), 0)
 351         Goto Exit_Function
 352 End Function            &apos;  Clone
 353
 354 REM -----------------------------------------------------------------------------------------------------------------------
 355 Public Function mClose(ByVal Optional pbRemove As Boolean) As Variant
 356 &apos;  Dispose UNO objects
 357 &apos;  If pbRemove = True, remove recordset from Recordsets collection
 358
 359 Const cstThisSub = &quot;Recordset.Close&quot;
 360
 361         If _ErrorHandler() Then On Local Error Goto Exit_Function               &apos;  Do not stop execution
 362         Utils._SetCalledSub(cstThisSub)
 363         If Not IsNull(RowSet) Then
 364                 RowSet.close()
 365                 RowSet.dispose()
 366         End If
 367         _ForwardOnly = False
 368         _PassThrough = False
 369         _ReadOnly = False
 370         _CommandType = 0
 371         _Command = &quot;&quot;
 372         _ParentName = &quot;&quot;
 373         _ParentType = &quot;&quot;
 374         _DataSet = False
 375         _BOF = True
 376         _EOF = True
 377         _Filter = &quot;&quot;
 378         _EditMode = dbEditNone
 379         _BookmarkBeforeNew = Null
 380         _BookmarkLastModified = Null
 381         _IsClone = False
 382         Set RowSet = Nothing
 383         If IsMissing(pbRemove) Then pbRemove = True
 384         If pbRemove Then _ParentDatabase.RecordsetsColl.Remove(_Name)
 385         Set _ParentDatabase = Nothing
 386
 387 Exit_Function:
 388         Utils._ResetCalledSub(cstThisSub)
 389         Exit Function
 390 End Function            &apos;  Close
 391
 392 REM -----------------------------------------------------------------------------------------------------------------------
 393 Public Function Delete() As Boolean
 394 &apos;  Deletes the current record
 395
 396 Const cstThisSub = &quot;Recordset.Delete&quot;
 397
 398         If _ErrorHandler() Then On Local Error Goto Error_Function
 399         Utils._SetCalledSub(cstThisSub)
 400         Delete = False
 401
 402         &apos;Is deleting a row allowed ?
 403         If _ForwardOnly Or _ReadOnly Then Goto Error_NoUpdate
 404         If _EditMode &lt;&gt; dbEditNone Then
 405                 CancelUpdate()
 406                 Goto Error_Sequence
 407         End If
 408         If RowSet.rowDeleted() Then Goto Error_RowDeleted
 409
 410         RowSet.deleteRow()
 411         Delete = True
 412
 413 Exit_Function:
 414         Utils._ResetCalledSub(cstThisSub)
 415         Exit Function
 416 Error_Function:
 417         TraceError(TRACEABORT, Err, cstThisSub, Erl)
 418         GoTo Exit_Function
 419 Error_NoUpdate:
 420         TraceError(TRACEFATAL, ERRNOTUPDATABLE, Utils._CalledSub(), 0)
 421         Goto Exit_Function
 422 Error_RowDeleted:
 423         TraceError(TRACEFATAL, ERRROWDELETED, Utils._CalledSub(), 0)
 424         Goto Exit_Function
 425 Error_Sequence:
 426         TraceError(TRACEFATAL, ERRUPDATESEQUENCE, Utils._CalledSub(), 0, 1)
 427         Goto Exit_Function
 428 End Function            &apos;  Delete
 429
 430 REM -----------------------------------------------------------------------------------------------------------------------
 431 Public Function Edit() As Boolean
 432 &apos;  Updates the current record
 433
 434 Const cstThisSub = &quot;Recordset.Edit&quot;
 435
 436         If _ErrorHandler() Then On Local Error Goto Error_Function
 437         Utils._SetCalledSub(cstThisSub)
 438         Edit = False
 439
 440         &apos;Is updating a row allowed ?
 441         If _ForwardOnly Or _ReadOnly Then Goto Error_NoUpdate
 442         If _EditMode &lt;&gt; dbEditNone Then CancelUpdate()
 443         If RowSet.rowDeleted() Then Goto Error_RowDeleted
 444
 445         _EditMode = dbEditInProgress
 446         Edit = True
 447
 448 Exit_Function:
 449         Utils._ResetCalledSub(cstThisSub)
 450         Exit Function
 451 Error_Function:
 452         TraceError(TRACEABORT, Err, cstThisSub, Erl)
 453         GoTo Exit_Function
 454 Error_NoUpdate:
 455         TraceError(TRACEFATAL, ERRNOTUPDATABLE, Utils._CalledSub(), 0)
 456         Goto Exit_Function
 457 Error_RowDeleted:
 458         TraceError(TRACEFATAL, ERRROWDELETED, Utils._CalledSub(), 0)
 459         Goto Exit_Function
 460 End Function            &apos;  Edit
 461
 462 REM -----------------------------------------------------------------------------------------------------------------------
 463 Public Function Fields(ByVal Optional pvIndex As variant) As Object
 464
 465         If _ErrorHandler() Then On Local Error Goto Error_Function
 466 Const cstThisSub = &quot;Recordset.Fields&quot;
 467         Utils._SetCalledSub(cstThisSub)
 468
 469         Set Fields = Nothing
 470         If Not IsMissing(pvIndex) Then
 471                 If Not Utils._CheckArgument(pvIndex, 1, Utils._AddNumeric(vbString)) Then Goto Exit_Function
 472         End If
 473
 474 Dim sObjects() As String, sObjectName As String, oObject As Object
 475 Dim i As Integer, bFound As Boolean, oFields As Object
 476
 477         Set oFields = RowSet.getColumns()
 478         sObjects = oFields.ElementNames()
 479         Select Case True
 480                 Case IsMissing(pvIndex)
 481                         Set oObject = New Collect
 482                         oObject._CollType = COLLFIELDS
 483                         oObject._ParentType = OBJRECORDSET
 484                         oObject._ParentName = _Name
 485                         Set oObject._ParentDatabase = _ParentDatabase
 486                         oObject._Count = UBound(sObjects) + 1
 487                         Goto Exit_Function
 488                 Case VarType(pvIndex) = vbString
 489                         bFound = False
 490                 &apos;  Check existence of object and find its exact (case-sensitive) name
 491                         For i = 0 To UBound(sObjects)
 492                                 If UCase(pvIndex) = UCase(sObjects(i)) Then
 493                                         sObjectName = sObjects(i)
 494                                         bFound = True
 495                                         Exit For
 496                                 End If
 497                         Next i
 498                         If Not bFound Then Goto Trace_NotFound
 499                 Case Else               &apos;  pvIndex is numeric
 500                         If pvIndex &lt; 0 Or pvIndex &gt; UBound(sObjects) Then Goto Trace_IndexError
 501                         sObjectName = sObjects(pvIndex)
 502         End Select
 503
 504         Set oObject = New Field
 505         oObject._Name = sObjectName
 506         Set oObject.Column = oFields.getByName(sObjectName)
 507         oObject._ParentName = _Name
 508         oObject._ParentType = _Type
 509         Set oObject._ParentDatabase = _ParentDatabase
 510
 511 Exit_Function:
 512         Set Fields = oObject
 513         Set oObject = Nothing
 514         Utils._ResetCalledSub(cstThisSub)
 515         Exit Function
 516 Error_Function:
 517         TraceError(TRACEABORT, Err, cstThisSub, Erl)
 518         GoTo Exit_Function
 519 Trace_NotFound:
 520         TraceError(TRACEFATAL, ERROBJECTNOTFOUND, Utils._CalledSub(), 0, , Array(_GetLabel(&quot;FIELD&quot;), pvIndex))
 521         Goto Exit_Function
 522 Trace_IndexError:
 523         TraceError(TRACEFATAL, ERRCOLLECTION, Utils._CalledSub(), 0)
 524         Goto Exit_Function
 525 End Function            &apos;  Fields
 526
 527 REM -----------------------------------------------------------------------------------------------------------------------
 528 Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
 529 &apos;  Return property value of psProperty property name
 530
 531 Const cstThisSub = &quot;Recordset.getProperty&quot;
 532         Utils._SetCalledSub(cstThisSub)
 533         If IsMissing(pvProperty) Then Call _TraceArguments()
 534         getProperty = _PropertyGet(pvProperty)
 535         Utils._ResetCalledSub(cstThisSub)
 536
 537 End Function            &apos;  getProperty
 538
 539 REM -----------------------------------------------------------------------------------------------------------------------
 540 Public Function GetRows(ByVal Optional pvNumRows As variant) As Variant
 541
 542         If _ErrorHandler() Then On Local Error Goto Error_Function
 543 Const cstThisSub = &quot;Recordset.GetRows&quot;
 544         Utils._SetCalledSub(cstThisSub)
 545
 546 Dim vMatrix() As Variant, lSize As Long, iNumFields As Integer, i As Integer
 547         vMatrix() = Array()
 548         If IsMissing(pvNumRows) Then Call _TraceArguments()
 549         If Not Utils._CheckArgument(pvNumRows, 1, Utils._AddNumeric()) Then Goto Exit_Function
 550         If pvNumRows &lt; 1 Then Goto Trace_Error
 551         If IsNull(RowSet) Then Goto Trace_Closed
 552         If Not _DataSet Then Goto Exit_Function
 553
 554         If _EditMode &lt;&gt; dbEditNone Then CancelUpdate()
 555
 556         If _EOF Then Goto Exit_Function
 557
 558         lSize = -1
 559         iNumFields = RowSet.getColumns().Count - 1
 560         If iNumFields &lt; 0 Then Goto Exit_Function
 561
 562         ReDim vMatrix(0 To pvNumRows - 1, 0 To iNumFields)                      &apos;  Conscious opposite of MSAccess !!
 563
 564         Do While Not _EOF And lSize &lt; pvNumRows - 1
 565                 lSize = lSize + 1
 566                 For i = 0 To iNumFields
 567                         vMatrix(lSize, i) = _getResultSetColumnValue(RowSet, i + 1)
 568                 Next i
 569                 _Move(&quot;NEXT&quot;)
 570         Loop
 571         If lSize &lt; pvNumRows - 1 Then                                &apos;  Resize to number of fetched records
 572                 ReDim Preserve vMatrix(0 To lSize, 0 To iNumFields)
 573         End If
 574
 575 Exit_Function:
 576         GetRows() = vMatrix()
 577         Utils._ResetCalledSub(cstThisSub)
 578         Exit Function
 579 Error_Function:
 580         TraceError(TRACEABORT, Err, cstThisSub, Erl)
 581         GoTo Exit_Function
 582 Trace_Error:
 583         TraceError(TRACEFATAL, ERRWRONGARGUMENT, Utils._CalledSub(), 0, , Array(1, pvNumRows))
 584         Set Controls = Nothing
 585         Goto Exit_Function
 586 Trace_Closed:
 587         TraceError(TRACEFATAL, ERRRECORDSETCLOSED, Utils._CalledSub(), 0)
 588         Goto Exit_Function
 589 End Function            &apos;  GetRows V1.1.0
 590
 591 REM -----------------------------------------------------------------------------------------------------------------------
 592 Public Function hasProperty(ByVal Optional pvProperty As Variant) As Boolean
 593 &apos;  Return True if object has a valid property called pvProperty (case-insensitive comparison !)
 594
 595 Const cstThisSub = &quot;Recordset.hasProperty&quot;
 596         Utils._SetCalledSub(cstThisSub)
 597         If IsMissing(pvProperty) Then hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList()) Else hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList(), pvProperty)
 598         Utils._ResetCalledSub(cstThisSub)
 599         Exit Function
 600
 601 End Function    &apos;  hasProperty
 602
 603 REM -----------------------------------------------------------------------------------------------------------------------
 604 Public Function Move(ByVal Optional pvRelative As Variant, ByVal Optional pvBookmark As variant) As Boolean
 605 &apos;  Move record pointer Relative rows vs. bookmark or current record
 606
 607         If IsMissing(pvRelative) Then Call _TraceArguments()
 608         If Not Utils._CheckArgument(pvRelative, 1, Utils._AddNumeric()) Then Goto Exit_Function
 609
 610         If IsMissing(pvBookmark) Then Move = _Move(pvRelative) Else Move = _Move(pvRelative, pvBookmark)
 611
 612 Exit_Function:
 613         Exit Function
 614 End Function            &apos;  Move
 615
 616 REM -----------------------------------------------------------------------------------------------------------------------
 617 Public Function MoveFirst() As Boolean
 618         MoveFirst = _Move(&quot;First&quot;)
 619 End Function            &apos;  MoveFirst
 620
 621 REM -----------------------------------------------------------------------------------------------------------------------
 622 Public Function MoveLast() As Boolean
 623         MoveLast = _Move(&quot;Last&quot;)
 624 End Function            &apos;  MoveLast
 625
 626 REM -----------------------------------------------------------------------------------------------------------------------
 627 Public Function MoveNext() As Boolean
 628         MoveNext = _Move(&quot;Next&quot;)
 629 End Function            &apos;  MoveNext
 630
 631 REM -----------------------------------------------------------------------------------------------------------------------
 632 Public Function MovePrevious() As Boolean
 633         MovePrevious = _Move(&quot;Previous&quot;)
 634 End Function            &apos;  MovePrevious
 635
 636 REM -----------------------------------------------------------------------------------------------------------------------
 637 Public Function OpenRecordset(ByVal Optional pvType As Variant _
 638                                                                 , ByVal Optional pvOptions As Variant _
 639                                                                 , ByVal Optional pvLockEdit As Variant _
 640                                                                 , ByVal Optional pbClone As Boolean) As Object
 641 &apos;Return a Recordset object based on currentrecordset object with filter addition
 642
 643         If _ErrorHandler() Then On Local Error Goto Error_Function
 644 Dim cstThisSub As String
 645         cstThisSub = Utils._PCase(_Type) &amp; &quot;.OpenRecordset&quot;
 646         Utils._SetCalledSub(cstThisSub)
 647         Set OpenRecordset = Nothing
 648 Const cstNull = -1
 649
 650 Dim oObject As Object
 651         Set oObject = Nothing
 652         If IsMissing(pvType) Then
 653                 pvType = cstNull
 654         Else
 655                 If Not Utils._CheckArgument(pvType, 1, Utils._AddNumeric(), Array(cstNull, dbOpenForwardOnly)) Then Goto Exit_Function
 656         End If
 657         If IsMissing(pvOptions) Then
 658                 pvOptions = cstNull
 659         Else
 660                 If Not Utils._CheckArgument(pvOptions, 2, Utils._AddNumeric(), Array(cstNull, dbSQLPassThrough)) Then Goto Exit_Function
 661         End If
 662         If IsMissing(pvLockEdit) Then
 663                 pvLockEdit = cstNull
 664         Else
 665                 If Not Utils._CheckArgument(pvLockEdit, 3, Utils._AddNumeric(), Array(cstNull, dbReadOnly)) Then Goto Exit_Function
 666         End If
 667         If IsMissing(pbClone) Then pbClone = False              &apos;  pbClone is a not published argument
 668
 669         Set oObject = New Recordset
 670         With oObject
 671                 ._CommandType = _CommandType
 672                 ._Command = _Command
 673                 ._ParentName = _Name
 674                 ._ParentType = _Type
 675                 Set ._ParentDatabase = _ParentDatabase
 676                 ._ForwardOnly = ( pvType = dbOpenForwardOnly )
 677                 ._PassThrough = ( pvOptions = dbSQLPassThrough )
 678                 ._ReadOnly = ( (pvLockEdit = dbReadOnly) Or _ReadOnly )
 679                 Select Case True
 680                         Case pbClone            :       Call ._Initialize(, RowSet)
 681                         Case _Filter &lt;&gt; &quot;&quot;      :       Call ._Initialize(_Filter)
 682                         Case Else                       :       Call ._Initialize()
 683                 End Select
 684         End With
 685         With _ParentDatabase
 686                 .RecordsetMax = .RecordsetMax + 1
 687                 oObject._Name = Format(.RecordsetMax, &quot;0000000&quot;)
 688                 .RecordsetsColl.Add(oObject, UCase(oObject._Name))
 689         End With
 690
 691         If Not ( oObject._BOF And oObject._EOF ) Then oObject.MoveFirst()               &apos;  Do nothing if resultset empty
 692
 693 Exit_Function:
 694         Set OpenRecordset = oObject
 695         Set oObject = Nothing
 696         Utils._ResetCalledSub(cstThisSub)
 697         Exit Function
 698 Error_Function:
 699         TraceError(TRACEABORT, Err, Utils._CalledSub(), Erl)
 700         GoTo Exit_Function
 701 End Function    &apos;  OpenRecordset
 702
 703 REM -----------------------------------------------------------------------------------------------------------------------
 704 Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
 705 &apos;  Return
 706 &apos;          a Collection object if pvIndex absent
 707 &apos;          a Property object otherwise
 708
 709 Const cstThisSub = &quot;Recordset.Properties&quot;
 710         Utils._SetCalledSub(cstThisSub)
 711 Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String
 712         vPropertiesList = _PropertiesList()
 713         sObject = Utils._PCase(_Type)
 714         If IsMissing(pvIndex) Then
 715                 vProperty = PropertiesGet._Properties(sObject, _Name, vPropertiesList)
 716         Else
 717                 vProperty = PropertiesGet._Properties(sObject, _Name, vPropertiesList, pvIndex)
 718                 vProperty._Value = _PropertyGet(vPropertiesList(pvIndex))
 719         End If
 720         Set vProperty._ParentDatabase = _ParentDatabase
 721
 722 Exit_Function:
 723         Set Properties = vProperty
 724         Utils._ResetCalledSub(cstThisSub)
 725         Exit Function
 726 End Function    &apos;  Properties
 727
 728 REM -----------------------------------------------------------------------------------------------------------------------
 729 Public Function setProperty(ByVal Optional psProperty As String, ByVal Optional pvValue As Variant) As Boolean
 730 &apos;  Return True if property setting OK
 731 Const cstThisSub = &quot;Recordset.setProperty&quot;
 732         Utils._SetCalledSub(cstThisSub)
 733         setProperty = _PropertySet(psProperty, pvValue)
 734         Utils._ResetCalledSub(cstThisSub)
 735 End Function
 736
 737 REM -----------------------------------------------------------------------------------------------------------------------
 738 Public Function Update() As Boolean
 739 &apos;  Finalize the updates of the current record
 740
 741 Const cstThisSub = &quot;Recordset.Update&quot;
 742
 743         If _ErrorHandler() Then On Local Error Goto Error_Function
 744         Utils._SetCalledSub(cstThisSub)
 745         Update = False
 746
 747         &apos;Is updating a row allowed ?
 748         If _ForwardOnly Or _ReadOnly Then Goto Error_NoUpdate
 749         With RowSet
 750                 If .rowDeleted() Then Goto Error_RowDeleted
 751                 Select Case _EditMode
 752                         Case dbEditNone
 753                                 Goto Trace_Error_Update
 754                         Case dbEditAdd
 755                                 If .IsNew And .IsModified Then .insertRow()
 756                                 _BookmarkLastModified = .getBookmark()
 757                                 If Not IsNull(_BookmarkBeforeNew) Then
 758                                         Select Case _BookmarkBeforeNew
 759                                                 Case &quot;_BOF_&quot;          :               .beforeFirst()
 760                                                 Case &quot;_EOF_&quot;          :               .afterLast()
 761                                                 Case Else                       :               .moveToBookmark(_BookmarkBeforeNew)
 762                                         End Select
 763                                 End If
 764                         Case dbEditInProgress
 765                                 If .IsModified Then
 766                                         .updateRow()
 767                                         _BookmarkLastModified = .getBookmark()
 768                                 End If
 769                 End Select
 770         End With
 771         _EditMode = dbEditNone
 772         Update = True
 773
 774 Exit_Function:
 775         Utils._ResetCalledSub(cstThisSub)
 776         Exit Function
 777 Error_Function:
 778         TraceError(TRACEABORT, Err, cstThisSub, Erl)
 779         GoTo Exit_Function
 780 Error_NoUpdate:
 781         TraceError(TRACEFATAL, ERRNOTUPDATABLE, Utils._CalledSub(), 0)
 782         Goto Exit_Function
 783 Trace_Error_Update:
 784         TraceError(TRACEFATAL, ERRUPDATESEQUENCE, Utils._CalledSub(), 0, 1)
 785         Goto Exit_Function
 786 Error_RowDeleted:
 787         TraceError(TRACEFATAL, ERRROWDELETED, Utils._CalledSub(), 0)
 788         Goto Exit_Function
 789 End Function            &apos;  Update
 790
 791 REM -----------------------------------------------------------------------------------------------------------------------
 792 REM --- PRIVATE FUNCTIONS                                                                                                                                                                                       ---
 793 REM -----------------------------------------------------------------------------------------------------------------------
 794
 795 REM -----------------------------------------------------------------------------------------------------------------------
 796 Public Sub _Initialize(ByVal Optional pvFilter As Variant, Optional poRowSet As Object)
 797 &apos;  Initialize new recordset
 798
 799         If _Command = &quot;&quot; Then Exit Sub
 800
 801         If _ErrorHandler() Then On Local Error Goto Error_Sub
 802         If IsMissing(pvFilter) Then pvFilter = &quot;&quot;
 803         If Not IsMissing(poRowSet) Then         &apos;  Clone
 804                 Set RowSet = poRowSet.createResultSet()
 805                 _IsClone = True
 806                 RowSet.last()           &apos;  Solves bookmark desynchro when parent bookmark is used ?!?
 807         Else
 808                 Set RowSet = CreateUnoService(&quot;com.sun.star.sdb.RowSet&quot;)
 809                 _IsClone = False
 810                 With RowSet
 811                         If IsNull(.ActiveConnection) Then Set .ActiveConnection = _ParentDatabase.Connection
 812                         .CommandType = _CommandType
 813                         .Command = _Command
 814                         If _ForwardOnly Then .ResultSetType = com.sun.star.sdbc.ResultSetType.FORWARD_ONLY _
 815                                                         Else .ResultSetType = com.sun.star.sdbc.ResultSetType.SCROLL_SENSITIVE
 816                         If _PassThrough Then .EscapeProcessing = False _
 817                                                         Else .EscapeProcessing = True
 818                         If _ReadOnly    Then
 819                                 .ResultSetConcurrency = com.sun.star.sdbc.ResultSetConcurrency.READ_ONLY
 820                                 .TransactionIsolation = com.sun.star.sdbc.TransactionIsolation.READ_UNCOMMITTED         &apos;  Dirty read
 821                         Else
 822                                 .ResultSetConcurrency = com.sun.star.sdbc.ResultSetConcurrency.UPDATABLE
 823                                 .TransactionIsolation = com.sun.star.sdbc.TransactionIsolation.READ_COMMITTED
 824                         End If
 825                 End With
 826
 827                 If Not IsMissing(pvFilter) Then                 &apos;  Filter must be set before execute()
 828                         If pvFilter &lt;&gt; &quot;&quot; Then
 829                                 RowSet.Filter = pvFilter
 830                                 RowSet.ApplyFilter = True
 831                         End If
 832                 End If
 833                 On Local Error Goto SQL_Error
 834                 RowSet.execute()
 835                 On Local Error Goto Error_Sub
 836         End If
 837         _DataSet = True
 838 &apos;If the Recordset contains no records, the BOF and EOF properties are True, and there is no current record.
 839         _BOF = ( RowSet.IsRowCountFinal And RowSet.RowCount = 0 )
 840         _EOF = _BOF
 841
 842 Exit_Sub:
 843         Exit Sub
 844 SQL_Error:
 845         TraceError(TRACEFATAL, ERRSQLSTATEMENT, Utils._CalledSub(), 0, , _Command)
 846         Goto Exit_Sub
 847 Error_Sub:
 848         TraceError(TRACEABORT, Err, &quot;Recordset._Initialize&quot;, Erl)
 849         GoTo Exit_Sub
 850 End Sub                 &apos;  _Initialize
 851
 852 REM -----------------------------------------------------------------------------------------------------------------------
 853 Public Function _Move(pvTarget As Variant, ByVal Optional pvBookmark As Variant, ByVal Optional pbAbsolute As Boolean) As Boolean
 854 &apos;Move to the first, last, next, or previous record in a specified Recordset object and make that record the current record.
 855
 856 Dim cstThisSub As String
 857         cstThisSub = &quot;Recordset.Move&quot; &amp; Iif(VarType(pvTarget) = vbString, pvTarget, &quot;&quot;)
 858         Utils._SetCalledSub(cstThisSub)
 859         If _ErrorHandler() Then On Local Error Goto Error_Function
 860
 861         If IsNull(RowSet) Then Goto Trace_Closed
 862         If Not _DataSet Then Goto Trace_NoData
 863         If _BOF And _EOF Then Goto Trace_NoData
 864         _Move = False
 865         CancelUpdate()          &apos;  Any Move cancels all updates, even Move(0) !
 866
 867 Dim l As Long, lRow As Long
 868         With RowSet
 869                 Select Case VarType(pvTarget)
 870                         Case vbString
 871                                 Select Case UCase(pvTarget)
 872                                         Case &quot;FIRST&quot;
 873                                                 If _ForwardOnly Then
 874                                                         If Not ( .isBeforeFirst() Or .isFirst() ) Then
 875                                                                 Goto Trace_Forward
 876                                                         Else
 877                                                                 .next()
 878                                                         End If
 879                                                 Else
 880                                                         .first()
 881                                                 End If
 882                                         Case &quot;LAST&quot;
 883                                                 If _ForwardOnly Then
 884                                                         If .isAfterLast() Then Goto Trace_Forward
 885                                                         Do While Not ( .isRowCountFinal And .Row = .RowCount )  &apos;  isLast() = True after reading of first records chunk
 886                                                                 .next()
 887                                                         Loop
 888                                                 Else
 889                                                         .last()
 890                                                 End If
 891                                         Case &quot;NEXT&quot;
 892                                                 If _EOF Then Goto Trace_OutOfRange
 893                                                 .next()
 894                                         Case &quot;PREVIOUS&quot;
 895                                                 If _ForwardOnly Then Goto Trace_Forward
 896                                                 If _BOF Then Goto Trace_OutOfRange
 897                                                 .previous()
 898                                 End Select
 899                         Case Else                       &apos;  Relative or absolute move
 900                                 If IsMissing(pbAbsolute) Then pbAbsolute = False                &apos;  Relative move is default
 901                                 If _ForwardOnly And pvTarget &lt; 0 then Goto Trace_Forward
 902                                 If IsMissing(pvBookmark) Then
 903                                         If pvTarget = 0 Then Goto Exit_Function         &apos;  Do nothing
 904                                         If _ForwardOnly Then
 905                                                 If pbAbsolute Then lRow = .getRow() Else lRow = 0
 906                                                 For l = 1 To pvTarget - lRow
 907                                                         If .isAfterLast() Then Exit For
 908                                                         .next()
 909                                                 Next l
 910                                         Else
 911                                                 If pbAbsolute Then .absolute(pvTarget) Else .relative(pvTarget)
 912                                         End If
 913                                 Else            &apos;  Move is always relative when bookmark argument present
 914                                         If _ForwardOnly Then Goto Trace_Forward
 915                                         If pvTarget = 0 Then
 916                                                 .moveToBookmark(pvBookmark)
 917                                         Else
 918                                                 .moveRelativeToBookmark(pvBookmark, pvTarget)
 919                                         End If
 920                                 End If
 921                 End Select
 922
 923                 _BOF = .isBeforeFirst()                 &apos;  https://forum.openoffice.org/en/forum/viewtopic.php?f=47&amp;t=76640
 924                 _EOF = .isAfterlast()
 925                 If _BOF Or _EOF Then
 926                         _Move = False
 927                 Else
 928                         If .rowDeleted() Then Goto Error_RowDeleted
 929                         If .rowUpdated() Then .refreshRow()
 930                         _Move = True
 931                 End If
 932         End With
 933
 934 Exit_Function:
 935         Utils._ResetCalledSub(cstThisSub)
 936         Exit Function
 937 Exit_Close:                                                     &apos;  Force close of recordset when error raised
 938         mClose()
 939         Goto Exit_Function
 940 Error_Function:
 941         TraceError(TRACEABORT, Err, cstThisSub, Erl)
 942         GoTo Exit_Close
 943 Trace_Forward:
 944         TraceError(TRACEFATAL, ERRRECORDSETFORWARD, Utils._CalledSub(), 0)
 945         Goto Exit_Close
 946 Trace_NoData:
 947         TraceError(TRACEFATAL, ERRRECORDSETNODATA, Utils._CalledSub(), 0)
 948         Goto Exit_Close
 949 Trace_OutOfRange:
 950         TraceError(TRACEFATAL, ERRRECORDSETRANGE, Utils._CalledSub(), 0)
 951         Goto Exit_Close
 952 Error_RowDeleted:
 953         TraceError(TRACEFATAL, ERRROWDELETED, Utils._CalledSub(), 0)
 954         Goto Exit_Function
 955 Trace_Closed:
 956         TraceError(TRACEFATAL, ERRRECORDSETCLOSED, Utils._CalledSub(), 0)
 957         Goto Exit_Close
 958 End Function            &apos;  Move
 959
 960 REM -----------------------------------------------------------------------------------------------------------------------
 961 Private Function _PropertiesList() As Variant
 962
 963         _PropertiesList = Array(&quot;AbsolutePosition&quot;, &quot;BOF&quot;, &quot;Bookmarkable&quot;, &quot;Bookmark&quot;, &quot;EditMode&quot; _
 964                         , &quot;EOF&quot;, &quot;Filter&quot;, &quot;LastModified&quot;, &quot;Name&quot;, &quot;ObjectType&quot; , &quot;RecordCount&quot; _
 965
 966 End Function    &apos;  _PropertiesList
 967
 968 REM -----------------------------------------------------------------------------------------------------------------------
 969 Private Function _PropertyGet(ByVal psProperty As String) As Variant
 970 &apos;  Return property value of the psProperty property name
 971
 972         If _ErrorHandler() Then On Local Error Goto Error_Function
 973 Dim cstThisSub As String
 974         cstThisSub = &quot;Recordset.get&quot;
 975         Utils._SetCalledSub(cstThisSub &amp; psProperty)
 976
 977 Dim vEMPTY As Variant
 978         _PropertyGet = vEMPTY
 979
 980         Select Case UCase(psProperty)
 981                 Case UCase(&quot;AbsolutePosition&quot;)
 982                         If IsNull(RowSet) Then Goto Trace_Closed
 983                         With RowSet
 984                                 Select Case True
 985                                         Case _BOF And _EOF                                              :       _PropertyGet = -1
 986                                         Case .isBeforeFirst() Or .isAfterLast() :       _PropertyGet = -1
 987                                         Case Else                                                               :       _PropertyGet = .getRow()        &apos;  Not getRow() - 1 as MSAccess requires
 988                                 End Select
 989                         End With
 990                 Case UCase(&quot;BOF&quot;)
 991                         If IsNull(RowSet) Then Goto Trace_Closed
 992                         Select Case True
 993                                 Case _BOF And _EOF                                      :       _PropertyGet = True
 994                                 Case RowSet.isBeforeFirst()                     :       _PropertyGet = True
 995                                 Case Else                                                       :       _PropertyGet = False
 996                         End Select
 997                 Case UCase(&quot;Bookmarkable&quot;)
 998                         If IsNull(RowSet) Then Goto Trace_Closed
 999                         If _ForwardOnly Then _PropertyGet = False Else _PropertyGet = RowSet.IsBookmarkable
1000                 Case UCase(&quot;Bookmark&quot;)
1001                         If IsNull(RowSet) Then Goto Trace_Closed
1002                         If RowSet.IsBookmarkable And Not _ForwardOnly Then
1003                                 If _BOF Or _EOF Then _PropertyGet = Null Else _PropertyGet = RowSet.getBookmark()
1004                         Else
1005                                 _PropertyGet = Null
1006                                 If _ForwardOnly Then Goto Trace_Forward
1007                         End If
1008                 Case UCase(&quot;EditMode&quot;)
1009                         If IsNull(RowSet) Then Goto Trace_Closed
1010                         _PropertyGet = _EditMode
1011                 Case UCase(&quot;EOF&quot;)
1012                         If IsNull(RowSet) Then Goto Trace_Closed
1013                         Select Case True
1014                                 Case _BOF And _EOF                                      :       _PropertyGet = True
1015                                 Case RowSet.isAfterLast()                       :       _PropertyGet = True
1016                                 Case Else                                                       :       _PropertyGet = False
1017                         End Select
1018                 Case UCase(&quot;Filter&quot;)
1019                         If IsNull(RowSet) Then Goto Trace_Closed
1020                         _PropertyGet = RowSet.Filter
1021                 Case UCase(&quot;LastModified&quot;)
1022                         If IsNull(RowSet) Then Goto Trace_Closed
1023                         If RowSet.IsBookmarkable And Not _ForwardOnly Then
1024                                 _PropertyGet = _BookmarkLastModified
1025                         Else
1026                                 _PropertyGet = Null
1027                                 If _ForwardOnly Then Goto Trace_Forward
1028                         End If
1029                 Case UCase(&quot;Name&quot;)
1030                         _PropertyGet = _Name
1031                 Case UCase(&quot;ObjectType&quot;)
1032                         _PropertyGet = _Type
1033                 Case UCase(&quot;RecordCount&quot;)
1034                         If IsNull(RowSet) Then Goto Trace_Closed
1035                         _PropertyGet = RowSet.RowCount
1036                 Case Else
1037                         Goto Trace_Error
1038         End Select
1039
1040 Exit_Function:
1041         Utils._ResetCalledSub(cstThisSub &amp; psProperty)
1042         Exit Function
1043 Trace_Error:
1044         TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
1045         _PropertyGet = vEMPTY
1046         Goto Exit_Function
1047 Trace_Forward:
1048         TraceError(TRACEFATAL, ERRRECORDSETFORWARD, Utils._CalledSub(), 0)
1049         Goto Exit_Function
1050 Trace_Closed:
1051         TraceError(TRACEFATAL, ERRRECORDSETCLOSED, Utils._CalledSub(), 0)
1052         Goto Exit_Function
1053 Error_Function:
1054         TraceError(TRACEABORT, Err, cstThisSub &amp; &quot;._PropertyGet&quot;, Erl)
1055         _PropertyGet = vEMPTY
1056         GoTo Exit_Function
1057 End Function            &apos;  _PropertyGet
1058
1059 REM -----------------------------------------------------------------------------------------------------------------------
1060 Private Function _PropertySet(ByVal psProperty As String, ByVal pvValue As Variant) As Boolean
1061
1062 Dim cstThisSub As String
1063         cstThisSub = &quot;Recordset.set&quot;
1064         Utils._SetCalledSub(cstThisSub &amp; psProperty)
1065         If _ErrorHandler() Then On Local Error Goto Error_Function
1066         _PropertySet = True
1067
1068 &apos;Execute
1069 Dim iArgNr As Integer
1070 Dim oObject As Object
1071
1072         If _IsLeft(_A2B_.CalledSub, &quot;Recordset.&quot;) Then iArgNr = 1 Else iArgNr = 2
1073         Select Case UCase(psProperty)
1074                 Case UCase(&quot;AbsolutePosition&quot;)
1075                         If Not Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto Trace_Error_Value
1076                         If pvValue &lt; 1 Then Goto Trace_Error_Value
1077                         _Move(pvValue, , True)
1078                 Case UCase(&quot;Bookmark&quot;)
1079                         If IsNull(RowSet) Then Goto Trace_Closed
1080                         _Move(0, pvValue)
1081                 Case UCase(&quot;Filter&quot;)
1082                         If IsNull(RowSet) Then Goto Trace_Closed
1083                         If Not Utils._CheckArgument(pvValue, iArgNr, vbString, , False) Then Goto Trace_Error_Value
1084                         _Filter = _ParentDatabase._ReplaceSquareBrackets(pvValue)
1085                 Case Else
1086                         Goto Trace_Error
1087         End Select
1088
1089 Exit_Function:
1090         Utils._ResetCalledSub(cstThisSub &amp; psProperty)
1091         Exit Function
1092 Trace_Error:
1093         TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
1094         _PropertySet = False
1095         Goto Exit_Function
1096 Trace_Error_Value:
1097         TraceError(TRACEFATAL, ERRPROPERTYVALUE, Utils._CalledSub(), 0, 1, Array(pvValue, psProperty))
1098         _PropertySet = False
1099         Goto Exit_Function
1100 Trace_Closed:
1101         TraceError(TRACEFATAL, ERRRECORDSETCLOSED, Utils._CalledSub(), 0)
1102         Goto Exit_Function
1103 Error_Function:
1104         TraceError(TRACEABORT, Err, Utils._CalledSub(), Erl)
1105         _PropertySet = False
1106         GoTo Exit_Function
1107 End Function            &apos;  _PropertySet
1108 </script:module>