Вот рабочий код для 1С 8.1:
| Код |
Соединение = Новый COMОбъект("ADODB.Connection");
Если Объект.ТипБазы = Перечисления.ТипБазыРегистратора.MySQL Тогда
Соединение.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};OPTION=3;DATABASE=" +
СокрЛП(Объект.ИмяБазыДанных) + ";PWD=" +
СокрЛП(Объект.Пароль) + ";PORT=3306;SERVER=" +
СокрЛП(Объект.ИмяСервера) + ";UID=" +
СокрЛП(Объект.ИмяПользователя) + ";CHARSET=UTF8;";
Соединение.ConnectionTimeout = 60;
Соединение.CursorLocation = 3;
НаборЗаписей = Новый COMОбъект("ADODB.Recordset");
Команда = Новый COMОбъект("ADODB.Command");
Параметр = Новый COMОбъект("ADODB.Parameter");
Попытка
Соединение.Open();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
ТекстЗапроса = "
|SELECT
|`getcardnumber`(`pkey_card`) as KodKart,
|CAST(DATE_FORMAT(`datetime_contr`, '%Y%m%d') AS CHAR(8)) as datasub,
|CAST(DATE_FORMAT(MIN(`datetime_contr`),'%T') AS CHAR(8)) as vhod,
|CAST(DATE_FORMAT(MAX(`datetime_contr`),'%T') AS CHAR(8)) as vihod
|FROM `arch_events`
|WHERE ((`mark` = 0) or (`mark` IS NULL)) and (`getcardnumber`(`pkey_card`) <> '0000000000000000')
|GROUP BY `getcardnumber`(`pkey_card`), CAST(DATE_FORMAT(`datetime_contr`, '%Y%m%d') AS CHAR(8))
|ORDER BY `getcardnumber`(`pkey_card`)
|";
Попытка
// Выборка данных и перебор результата запроса
Команда.ActiveConnection = Соединение;
Команда.CommandText = ТекстЗапроса;
НаборЗаписей = Команда.Execute();
ВыборкаСтрокС = НаборЗаписей;
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
|
|
)