VPF::Как добавить в таблицу БД массив COMSafeArray?

TongerenS

Дата 2.7.2009, 14:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 13.11.2008
Где: REDLINE

Репутация: нет
Всего: нет

Добрый день господа! Скажите пожалуйста, как добавить многомерный массив ComSafeArray в поле таблицы БД с типом значения BinaryData

Есть примерно такой код, обычное подключение через АДО

    СоединениеАДОДБ= Новый COMObject("ADODB.Connection");

    СоединениеАДОДБ.ConnectionString="Provider="+СКЛБДПровайдер+
    ";server="+ СКЛБДСервер+ ";Database="+СКЛБДИмяБД+
    ";uid="+СКЛБДЛогин + ";pwd="+ СКЛБДПароль;

    попытка
        НовоеСоединение.Open();
    исключение
        СоединениеВключено=ложь;
    КонецПопытки;

    ////Добавление параметров
    Param1 = СоединениеАДОДБ.CreateParameter("@TT",200,1,50,Формат(ТекущаяДата(),"ДФ=ггггММдд"));
    СоединениеАДОДБ.Parameters.Append(Param1);
    ////+

    STR="INSERT INTO Matters (FileName, DataSize, BinaryData) VALUES ('"+ИмяТ+".pfl',"+ДатаСайз+", @TT)";

    СоединениеАДОДБ.Execute(STR,128);
    СоединениеАДОДБ.Close();

Здесь параметр @TT имеет значение Дата, а вопрос: Как можно вместо него указать тот самый многомерный массив ComSafeArray?

Извиняюсь за возможно глупые вопросы, но очень необходимо это.
Если можно пожалуйста напишите пример, как правильно было бы указать параметр.

TongerenS

Дата 3.7.2009, 08:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 13.11.2008
Где: REDLINE

Репутация: нет
Всего: нет

Разобрался как добавлять BinaryData. Используется  "ADODB.Recordset" через Update

СоединениеАДОДБ= Новый COMObject("ADODB.Connection");

    СоединениеАДОДБ.ConnectionString="Provider="+СКЛБДПровайдер+
    ";server="+ СКЛБДСервер+ ";Database="+СКЛБДИмяБД+
    ";uid="+СКЛБДЛогин + ";pwd="+ СКЛБДПароль;

    попытка
        НовоеСоединение.Open();
    исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;

СоединениеАДОДБ=Crystal_Admin_SEC.СоединениеADODB_Connection(База);
    RecSet=Новый COMОбъект("ADODB.Recordset");
    RecSet.Open("Select DataSize,Modified,BinaryData From Matters WHERE FileName='"+ИмяТ+".pfl'",СоединениеАДОДБ,1,3);
//3 Разрешаем Update обычно 3,1

    RecSet.Fields("Modified").Value=ТекущаяДата();
    RecSet.Fields("DataSize").Value=ДатаСайз;
    RecSet.Fields("BinaryData").Value=пData;

    RecSet.Update();
    RecSet.Close();
    СоединениеАДОДБ.Close();

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| 1C: Предприятие, SAP, ERP и учётные системы \| Следующая тема »