Public Sub ExecuteMap(jSQL As SQL, Query As String, StringArgs() As String) As Map
Dim res As Map
Dim cur As ResultSet
If StringArgs <> Null Then
cur = jSQL.ExecQuery2(Query, StringArgs)
Else
cur = jSQL.ExecQuery(Query)
End If
If cur.NextRow = False Then
'Log("No records found.")
Return res
End If
res.Initialize
For i = 0 To cur.ColumnCount - 1
Dim fName As String = cur.GetColumnName(i)
Dim fValue As String = cur.GetString2(i)
Log(GetType(fValue))
Log(fName)
Log(fValue)
'If fValue = "null" Then fValue = ""
res.Put(cur.GetColumnName(i).ToLowerCase, fValue)
Next
cur.Close
Return res
End Sub