Як робити прямі запити на сайт OpenCart?
Я інколи роблю прямі запити, щоб можна було швидко оновлювати якісь дані, що дає змогу обійти відсутність API для взаємодії і сайтами клієнтів. В життя усіляке буває, тому потрібно вміти таке робити. 🙂
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
СтрокаСоединенияСБазой = " |DRIVER={MySQL ODBC 8.0 ANSI Driver}; |SERVER="+Константы.ИмяСервера.Получить()+"; |DATABASE="+Константы.ИмяБД.Получить()+"; |UID="+Константы.ЛогинБД.Получить()+"; |PWD="+Константы.ПарольБД.Получить()+";"; Соединение = Новый COMОбъект("ADODB.Connection"); Соединение.ConnectionString = (СтрокаСоединенияСБазой); Попытка Соединение.Open(); Исключение #Если Клиент Тогда Сообщить(ОписаниеОшибки()); #КонецЕсли Возврат; КонецПопытки; ТаблицаТоваров = Новый ТаблицаЗначений; Для Каждого Стр Из ТаблицаТоваров Цикл Остаток = Формат(Стр.Остаток,"ЧЦ=10; ЧДЦ=3; ЧРД=.; ЧРГ=' '; ЧН=0.000; ЧГ=0"); Артикул = Стр.Артикул; Цена = Формат(Стр.Цена,"ЧЦ=10; ЧДЦ=2; ЧРД=.; ЧРГ=' '; ЧН=0.00; ЧГ=0"); Попытка Соединение.Execute("UPDATE `oc_product` SET `quantity`='"+Остаток+"', `stock_status_id`='"+Стат+"', `price`='"+Цена+"' WHERE `model`='"+Артикул+"'"); Исключение #Если Клиент Тогда Сообщить(ОписаниеОшибки()); #КонецЕсли КонецПопытки; КонецЦикла; |
Категории: 1С Предприятие 8.2
