diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2016-12-03 13:00:52 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-01-12 11:40:49 +0100 |
| commit | fa69125cb0239ee9660481fbe2f3200f1d0c53fd (patch) | |
| tree | f9f7e613eb79bb47b3d65fd57a2bd4601f89936b /wizards/source/access2base/Recordset.xba | |
| parent | 047d1ed3df0d5714574ebc8e278cca11f96d490b (diff) | |
Access2Base - Review UtilProperty module
Insert dates and 2-dim arrays in property values
Export array or property values to string for file or database temporary storage
Reimport from string into array or property values
(for later use)
Change-Id: I7f2dc2ad6adde6249e68a6cb51b52e2a4dad79b7
Diffstat (limited to 'wizards/source/access2base/Recordset.xba')
| -rw-r--r-- | wizards/source/access2base/Recordset.xba | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index 0f7be5b01827..81061bdad875 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -581,11 +581,13 @@ Const cstThisSub = "Recordset.getProperty" End Function ' getProperty REM ----------------------------------------------------------------------------------------------------------------------- -Public Function GetRows(ByVal Optional pvNumRows As variant) As Variant +Public Function GetRows(ByVal Optional pvNumRows As variant, ByVal Optional pbStrDate As Boolean) As Variant +' UNPUBLISHED - pbStrDate = True forces all dates to be converted into strings If _ErrorHandler() Then On Local Error Goto Error_Function Const cstThisSub = "Recordset.GetRows" Utils._SetCalledSub(cstThisSub) + If IsMissing(pbStrDate) Then pbStrDate = False Dim vMatrix() As Variant, lSize As Long, iNumFields As Integer, i As Integer vMatrix() = Array() @@ -609,6 +611,7 @@ Dim vMatrix() As Variant, lSize As Long, iNumFields As Integer, i As Integer lSize = lSize + 1 For i = 0 To iNumFields vMatrix(i, lSize) = _getResultSetColumnValue(RowSet, i + 1) + If pbStrDate And IsDate(vMatrix(i, lSize)) Then vMatrix(i, lSize) = _CStr(vMatrix(i, lSize)) Next i _Move("NEXT") Loop |