diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2017-04-05 18:00:57 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-04-05 18:00:57 +0200 |
| commit | 45130a1b673a930f8607cd86e655a4b4cc2b89e2 (patch) | |
| tree | c6b4fe56f98deb017ef65b280ba3f2e443304ac3 /wizards | |
| parent | 2e1d9789fe5d6bd9f8d85e2eb672b5729e045c2b (diff) | |
Access2Base - Solving some trouble with bigint variables
Bigints are unknown in Basic. Conversions with CLng.
Removal of a few useless lines
Change-Id: I7bc85e1ee5a53b098e3a2e46bb1829fcc4a2eef4
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Database.xba | 2 | ||||
| -rw-r--r-- | wizards/source/access2base/UtilProperty.xba | 8 | ||||
| -rw-r--r-- | wizards/source/access2base/Utils.xba | 1 |
3 files changed, 5 insertions, 6 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index dd5be2877283..f7463e03a94c 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1210,7 +1210,7 @@ Const cstSQLITE = "SQLite" iInfo = iInfo + 1 _ColumnTypeNames(iInfo) = sName _ColumnTypes(iInfo) = lType - _ColumnPrecisions(iInfo) = .getLong(3) + _ColumnPrecisions(iInfo) = CLng(.getLong(3)) End If .next() Loop diff --git a/wizards/source/access2base/UtilProperty.xba b/wizards/source/access2base/UtilProperty.xba index 500213fb0997..88c8aa9bc756 100644 --- a/wizards/source/access2base/UtilProperty.xba +++ b/wizards/source/access2base/UtilProperty.xba @@ -125,7 +125,7 @@ Dim iPropIndex As Integer, vProp As Variant, vValue As Variant, vMatrix As Varia End Function ' _GetPropertyValue V1.3.0 REM ======================================================================================================================= -Public Sub _SetPropertyValue(ByRef pvPropertyValuesArray As Variant, ByVal psPropName As String, ByVal pvValue) +Public Sub _SetPropertyValue(ByRef pvPropertyValuesArray As Variant, ByVal psPropName As String, ByVal pvValue As Variant) ' Set the value of a particular named property from an array of PropertyValue's. Dim iPropIndex As Integer, vProp As Variant, iNumProperties As Integer @@ -201,10 +201,10 @@ Public Function _PropValuesToStr(ByRef pvPropertyValuesArray As Variant) As Stri ' Semicolons and backslashes are escaped with a backslash (see _CStr and _CVar functions) Dim iNumProperties As Integer, sResult As String, i As Integer, j As Integer, vProp As Variant -Dim sName As String, vValue As Variant, iType As Integer, vVector As Variant +Dim sName As String, vValue As Variant, iType As Integer Dim cstLF As String - cstLF = Chr(10) + cstLF = vbLf() iNumProperties = _NumPropertyValues(pvPropertyValuesArray) sResult = cstHEADER & cstLF @@ -220,8 +220,6 @@ Dim cstLF As String ' 1-dimension but vector of vectors must also be considered If VarType(vValue(0)) >= vbArray Then sResult = sResult & sName & " = (" & UBound(vValue) + 1 & "," & UBound(vValue(0)) + 1 & ")" & cstLF - vVector = Array() - ReDim vVector(0 To UBound(vValue(0))) For j = 0 To UBound(vValue) sResult = sResult & Utils._CStr(vValue(j), False) & cstLF Next j diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba index 7a1696f7a644..79cebb63d0c6 100644 --- a/wizards/source/access2base/Utils.xba +++ b/wizards/source/access2base/Utils.xba @@ -191,6 +191,7 @@ Const cstByteLength = 25 sArg = Format(pvArg) If InStr(UCase(sArg), "E") = 0 Then sArg = Format(pvArg, "##0.0##") sArg = Replace(sArg, ",", ".") + Case vbBigint : sArg = CStr(CLng(pvArg)) Case vbDate : sArg = Year(pvArg) & "-" & Right("0" & Month(pvArg), 2) & "-" & Right("0" & Day(pvArg), 2) _ & " " & Right("0" & Hour(pvArg), 2) & ":" & Right("0" & Minute(pvArg), 2) Case Else : sArg = CStr(pvArg) |