pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dont convert to date if string is less than 6 long, also start adding commas at iteration 0

Browse Source
This commit is contained in:
Paul Trowbridge 2017-10-17 15:09:55 -04:00
parent 30e20bc420
commit 553ace8eb0
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
TheBigOne.cls
View File

@ -2190,18 +2190,22 @@ Public Function SQLp_build_sql_values(ByRef tbl() As String, trim As Boolean) As
type_flag(j) = "S" type_flag(j) = "S"
End If End If
Else Else
If Len(tbl(j, 1)) >= 6 Then
If IsDate(tbl(j, 1)) Then If IsDate(tbl(j, 1)) Then
type_flag(j) = "D" type_flag(j) = "D"
Else Else
type_flag(j) = "S" type_flag(j) = "S"
End If End If
Else
type_flag(j) = "S"
End If
End If End If
Next j Next j
For i = 0 To UBound(tbl, 2) For i = 0 To UBound(tbl, 2)
rec = "" rec = ""
If i <> 1 Then sql = sql & "," & vbCrLf If i <> 0 Then sql = sql & "," & vbCrLf
rec = rec & "(" rec = rec & "("
For j = 0 To UBound(tbl, 1) For j = 0 To UBound(tbl, 1)
If j <> 0 Then rec = rec & "," If j <> 0 Then rec = rec & ","