export declare const getAllValue = "\nFunction GetAllValue_CSV(objConnection, nameTable)\n    Set objRecordSet = CreateObject(\"ADODB.Recordset\")\n    Dim sQuery\n    sQuery = \"SELECT * FROM \" & \"[\" & nameTable & \"]\"\n    Set objRecordset = objConnection.Execute(sQuery)\n    strOutput = \"\"\n\n    If IsObject( objRecordset ) Then\n        If objRecordset.State = 1 Then\n            Do While Not objRecordset.EOF\n                ' Create a header line with the column names and data types\n                strHeader = \"\"\n                For i = 0 To objRecordset.Fields.Count - 1\n                    strHeader = strHeader & \",\"\"\" & objRecordset.Fields.Item(i).Name & \"\"\"\"\n                Next\n                strHeader = Mid(strHeader, 2)\n                ' List the fields of the current record in comma delimited format\n                strResult = \"\"\n                For i = 0 To objRecordset.Fields.Count - 1\n                    strResult = strResult & \",\"\"\" & objRecordset.Fields.Item(i).Value & \"\"\"\"\n                Next\n                ' Add the current record to the output string\n                strOutput = strOutput & Mid( strResult, 2 ) & vbCrLf\n                objRecordset.MoveNext\n            Loop\n        End If\n    End If\n\n    CloseRecordset(objRecordset)\n    dim result\n    result = strHeader & vbCrLf & strOutput & vbCrLf\n    GetAllValue_CSV = result\nEnd Function\n\nFunction GetAllValue_JSON(objConnection, nameTable)\n    Set objRecordSet = CreateObject(\"ADODB.Recordset\")\n    Dim sQuery\n    sQuery = \"SELECT * FROM \" & \"[\" & nameTable & \"]\"\n    Set objRecordset = objConnection.Execute(sQuery)\n    strOutput = \"\"\n\n    dim result\n    result =  \"{\"\"result\"\":[\"\n    If IsObject( objRecordset ) Then\n        If objRecordset.State = 1 Then\n\n            Do Until objRecordset.EOF\n                result = result & \"{\"\n                For i = 0 To objRecordset.Fields.Count - 1\n                    result = result & \"\"\"\" & objRecordset.Fields.Item(i).Name & \"\"\": \" & \"\"\"\" & objRecordset.Fields.Item(i).Value & \"\"\",\"\n                Next\n                result = Left(result, Len(result) - 1)\n                result = result & \"},\"\n                objRecordset.MoveNext\n            Loop\n            result = Left(result, Len(result) - 1)\n       End If\n    End If\n\n    result = result & \"]}\"\n    CloseRecordset(objRecordset)\n    \n    GetAllValue_JSON = result\nEnd Function";