1с интеграция

@Андрей Костенко · Регистрация: 10.08.2017

Студворк — интернет-сервис помощи студентам

Всем снова здравствуйте.. Подскажите пожалуйста, есть ли где-нибудь статья, или мануал, где описывается как передать значения из таблицы 1с в таблицу mysql? Не через файл, а именно автоинтеграция, т.е. примерно вот такой запрос:

1C
1
2
3
RS1 = Новый COMОбъект("ADODB.Command");
RS1.ActiveConnection=Соединение;
RS1.Open("INSERT INTO users () values ()");

в первых скобках после users указываются поля в базе mysql, а в скобках после слова values, поля из таблиц 1с, так можно сделать? И надо ли перед этим выводить эти таблицы 1с? Или можно как-то напрямую вытянуть в этот запрос поля из таблиц 1с, которые мне нужны?

@Yulunga · 27.11.2017, 11:50

Кликните здесь для просмотра всего текста

1C
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
// Возвращает строку соединения с базой MySql
Функция ПолучитьConnectStringDB();
    
    server  = "89.111.222.33";      //"localhost";
    user    = "username_MySQL";     // логин к базе mySql
    password= "password_MySQL";     // пароль к базе mySql
    database= "base_Name_MySQL";    // имя базы
    
    ConnectString="Driver={MySQL ODBC 5.1 Driver};" 
        + "Server="    + server 
        + ";Database=" + database
        + ";User="     + user 
        + ";Password=" + password
        + ";Option=3;";         
        
    msg("ConnectString:" + ConnectString);  
    
    Возврат ConnectString;
    
КонецФункции
                         
 
// Выполним sql выражение. Обработаем ошибки.
Функция ВыполнитьSQL(текстSQL);
    
    ConnectString=ПолучитьConnectStringDB();
    Connection = Новый COMОбъект("ADODB.Connection");
    Connection.open(ConnectString); 
    Попытка
        adCmdText_1 = 1;
        ss=Connection.Execute(текстSQL,,adCmdText_1);  
        Connection.Close();
        сообщить("Execute-[OK!]"); 
    Исключение                    
 
        Для каждого ADOErr из  Connection.Errors   Цикл
            сообщить("ERROR:" + Символы.ВК 
                + текстSQL             
                + "Ошибка: " + ADOErr.Number 
                + " : " + ADOErr.Description    + Символы.ВК
                + " : " + ADOErr.Source         + Символы.ВК
                + " : " + ADOErr.SQLState       + Символы.ВК
                + " : " + ADOErr.NativeError    + Символы.ВК
                );              
                
        КонецЦикла;
                Connection.Close();
 
    КонецПопытки;   
        
    Возврат Неопределено;
    
КонецФункции
 
 
примерТекстSQL = "insert INTO fgn3k_virtuemart_products_ru_ru 
    |(
    |    product_name,  -- имя товара
    |    product_s_desc,/* описание товара */   
    |    slug        
    |) VALUES (
    |    ""product_name:Велосипед инженера Гарина"",
    |    ""product_s_desc:<b>Металл:</b> чугуний <br> <b>Цвет:</b>розовый"",    
    |    ""slug:(2_псевдоним)""            
    |);";
ВыполнитьSQL(примерТекстSQL);

@Андрей Костенко · 27.11.2017, 11:57 **[ТС]**

И что это? Я просил пример, как передать значения из таблиц 1с.. То что вы привели я и сам могу сделать..

Добавлено через 4 минуты
Про поля из таблиц 1с я говорю примерно вот про такие поля: Запрос.Текст = ("ВЫБРАТЬ КВП_ЛицевыеСчета.Наименование ИЗ Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета ГДЕ КВП_ЛицевыеСчета.Наименование > &NAM"); КВП_ЛицевыеСчета.Наименование и так далее..

@Yulunga · 27.11.2017, 12:17

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
примерТекстSQL = "insert INTO fgn3k_virtuemart_products_ru_ru 
    |(
    |    product_name,  -- имя товара
    |    product_s_desc,/* описание товара */   
    |    slug        
    |) VALUES (
    |    Выборка.Наименование,
    |    Выборка.Описание,    
    |    Выборка.Всевдоним         
    |);";
ВыполнитьSQL(примерТекстSQL);
КонецЦикла;

@Андрей Костенко · 27.11.2017, 13:04 **[ТС]**

Выборка тоже не получится))Потому что там список, а его не занесёшь в одну строку..

Добавлено через 3 минуты
Надо как-то выбирать по одному полю, а цикл делать уже с этим общим запросом, да я вижу что у вас и так идёт цикл.. Зачем ещё раз то выборка?)

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@Андрей Костенко 2 / 1 / 0 Регистрация: 10.08.2017 Сообщений: 52
	27.11.2017, 11:57 [ТС]
	И что это? Я просил пример, как передать значения из таблиц 1с.. То что вы привели я и сам могу сделать.. Добавлено через 4 минуты Про поля из таблиц 1с я говорю примерно вот про такие поля: Запрос.Текст = ("ВЫБРАТЬ КВП_ЛицевыеСчета.Наименование ИЗ Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета ГДЕ КВП_ЛицевыеСчета.Наименование > &NAM"); КВП_ЛицевыеСчета.Наименование и так далее.. 0

@Андрей Костенко 2 / 1 / 0 Регистрация: 10.08.2017 Сообщений: 52
	27.11.2017, 13:04 [ТС]
	Выборка тоже не получится))Потому что там список, а его не занесёшь в одну строку.. Добавлено через 3 минуты Надо как-то выбирать по одному полю, а цикл делать уже с этим общим запросом, да я вижу что у вас и так идёт цикл.. Зачем ещё раз то выборка?) 0