diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2015-11-11 14:37:29 +0100 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2015-11-11 14:45:41 +0100 |
commit | 32686b0d0a15a653f831d0645e5b7c1145860570 (patch) | |
tree | e59bb03c21200010c826daf2e87603c593872488 /wizards/source/access2base/Recordset.xba | |
parent | c65e00d908a2dcf47d3ff925d09e336d9b0939f7 (diff) |
Access2Base - Implements OutputTo table/query in HTML format
Functions to export database data contents into an HTML table
with - template file
- use of classes for CSS styling
Change-Id: Ib62b103445ba47e2fe77c45109a62b2e49fcbbc5
Diffstat (limited to 'wizards/source/access2base/Recordset.xba')
-rw-r--r-- | wizards/source/access2base/Recordset.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index 28bc2b12e92a..8638e0d9641b 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -559,17 +559,17 @@ Dim vMatrix() As Variant, lSize As Long, iNumFields As Integer, i As Integer iNumFields = RowSet.getColumns().Count - 1 If iNumFields < 0 Then Goto Exit_Function - ReDim vMatrix(0 To pvNumRows - 1, 0 To iNumFields) ' Conscious opposite of MSAccess !! + ReDim vMatrix(0 To iNumFields, 0 To pvNumRows - 1) Do While Not _EOF And lSize < pvNumRows - 1 lSize = lSize + 1 For i = 0 To iNumFields - vMatrix(lSize, i) = _getResultSetColumnValue(RowSet, i + 1) + vMatrix(i, lSize) = _getResultSetColumnValue(RowSet, i + 1) Next i _Move("NEXT") Loop If lSize < pvNumRows - 1 Then ' Resize to number of fetched records - ReDim Preserve vMatrix(0 To lSize, 0 To iNumFields) + ReDim Preserve vMatrix(0 To iNumFields, 0 To lSize) End If Exit_Function: |