export declare const getSchemaTables = "\nFunction GetSchemaTables_All_CSV(objConnection)\n Set objRecordSet = CreateObject(\"ADODB.Recordset\")\n Set objRecordSet = objConnection.OpenSchema(20)\n Dim result\n result = \"TABLE_NAME | TABLE_TYPE\" & vbCrLf\n Do Until objRecordset.EOF\n result = result & objRecordset.Fields.Item(\"TABLE_NAME\") & \" | \" & objRecordset.Fields.Item(\"TABLE_TYPE\") & vbCrLf\n objRecordset.MoveNext\n Loop\n CloseRecordset(objRecordset)\n GetSchemaTables_All_CSV = result\nEnd Function\n\nFunction GetSchemaTables_All_JSON(objConnection)\n Set objRecordSet = CreateObject(\"ADODB.Recordset\")\n Set objRecordSet = objConnection.OpenSchema(20)\n Dim result\n result = \"{\"\"result\"\":[\"\n Do Until objRecordset.EOF\n result = result & \"{\"\"TABLE_NAME\"\":\" & \"\"\"\" & objRecordset.Fields.Item(\"TABLE_NAME\") & \"\"\",\"\n result = result & \"\"\"TABLE_TYPE\"\":\" & \"\"\"\" & objRecordset.Fields.Item(\"TABLE_TYPE\") & \"\"\"},\"\n objRecordset.MoveNext\n Loop\n CloseRecordset(objRecordset)\n result = Left(result, Len(result) - 1)\n GetSchemaTables_All_JSON = result & \"]}\"\nEnd Function";