dont convert to date if string is less than 6 long, also start adding commas at iteration 0
This commit is contained in:
parent
30e20bc420
commit
553ace8eb0
@ -2190,18 +2190,22 @@ Public Function SQLp_build_sql_values(ByRef tbl() As String, trim As Boolean) As
|
||||
type_flag(j) = "S"
|
||||
End If
|
||||
Else
|
||||
If Len(tbl(j, 1)) >= 6 Then
|
||||
If IsDate(tbl(j, 1)) Then
|
||||
type_flag(j) = "D"
|
||||
Else
|
||||
type_flag(j) = "S"
|
||||
End If
|
||||
Else
|
||||
type_flag(j) = "S"
|
||||
End If
|
||||
End If
|
||||
Next j
|
||||
|
||||
|
||||
For i = 0 To UBound(tbl, 2)
|
||||
rec = ""
|
||||
If i <> 1 Then sql = sql & "," & vbCrLf
|
||||
If i <> 0 Then sql = sql & "," & vbCrLf
|
||||
rec = rec & "("
|
||||
For j = 0 To UBound(tbl, 1)
|
||||
If j <> 0 Then rec = rec & ","
|
||||
|
Loading…
Reference in New Issue
Block a user