objComm = Новый COMОбъект("ADODB.Command") ;
oConnection =Новый COMОбъект("ADODB.Connection");
RecordSet = Новый COMОбъект("ADODB.RecordSet");

     ConnectString="
|DRIVER={MySQL ODBC 5.1 Driver};
|SERVER=******;
|DATABASE=******;
|UID=**;
|PWD=*****;
|Option=*****";
oConnection.Open(ConnectString);
objComm.ActiveConnection = oConnection;
objComm.CommandText = "select_date_json";
objComm.CommandType = 4 ;
Параметр=objComm.CreateParameter("@year_mon",200,1,10,ДатаЕрмон);
objComm.Parameters.Append(Параметр);
RecordSet = objComm.Execute();

получаю рекорд сет . 1с 8.3

Что сделать-то хочешь?

Можно ли оптимизировать выгрузку из ТаблицыЗначений?

(1) в json отдать ответ через http сервис

ТзJson = Новый ТаблицаЗначений;
   ТзJson.Колонки.Добавить("ЛицевойСчет", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(16)));
   ТзJson.Колонки.Добавить("Фамилия", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(32)));
   //ТзJson.Колонки.Добавить("Имя", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(32)));
   //ТзJson.Колонки.Добавить("Очество", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(32)));
   ТзJson.Колонки.Добавить("Город", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(32)));
   ТзJson.Колонки.Добавить("Улица", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(32)));
   ТзJson.Колонки.Добавить("Дом", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(10)));
   ТзJson.Колонки.Добавить("Квартира", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(10)));
   ТзJson.Колонки.Добавить("РЭС", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(16)));
      
   Пока RecordSet.EOF() = 0 Цикл
            
    Стр = ТзJson.Добавить();
    Стр.ЛицевойСчет =Recordset.Fields(0).Value;
    Стр.Фамилия = Recordset.Fields(1).Value;
    //Стр.Имя =Recordset.Fields(2).Value;
    //Стр.Очество = Recordset.Fields(3).Value;
    Стр.Город =Recordset.Fields(4).Value;
    Стр.Улица = Recordset.Fields(5).Value;
    Стр.Дом =Recordset.Fields(6).Value;
    Стр.Квартира = Recordset.Fields(7).Value;
    Стр.РЭС = Recordset.Fields(8).Value;
    RecordSet.MoveNext();
     КонецЦикла;

делал так