Функция проверки существования записи по фильтру ADODB Mysql 1С

Функция ПроверитьСуществованиеЗаписиПоФильтру(Таблица, СтруктураФильтров)
 пСеанс = ВнешниеИсточникиДанных.opcart.ПолучитьОбщиеПараметрыСоединения();
 ЗапросSQL = "Select * from " + Таблица + " Where";
 а = 0;
 Для Каждого Элемент Из СтруктураФильтров Цикл
  ЗапросSQL = ЗапросSQL + ?(а = 0, " ", " AND ") + Элемент.Ключ + " = " + Элемент.Значение;
  а = а + 1;
 КонецЦикла;

 Connection = Новый COMОбъект("ADODB.Connection");
 Connection.CursorLocation = 3;
 Connection.CommandTimeout = 60;
 Connection.ConnectionTimeOut = 60;
 Command = Новый COMОбъект("ADODB.Command");
 RecordSet = Новый COMОбъект("ADODB.RecordSet");
 Connection.Open(СокрЛП(пСеанс.СтрокаСоединения)+"UID="+пСеанс.ИмяПользователя+";PWD=PASSWORD;"); 
 Command.ActiveConnection = Connection;
 Попытка
 Command.CommandText = ЗапросSQL;
 RecordSet = Command.Execute();
 НашеЗначение = RecordSet.EOF; //Истина - записи нет
 Connection.Close();
 Возврат НашеЗначение;
 Исключение
 Сообщить(ОписаниеОшибки());
 Connection.Close();
 Возврат Истина;
 КонецПопытки;
КонецФункции
Read 660 times Last modified on Суббота, 20 Ноябрь 2021 13:28
Rate this item
(0 votes)

Leave a comment

Make sure you enter all the required information, indicated by an asterisk (*). HTML code is not allowed.

Счетчики

 

 

Киев, Новозабарская, 2/6

+38(044)233-3017      +38(093)170-3017