[logist]

А что такое "un" ? Предварительно - несоответствие типов.

[andrew76]

А что такое "un" ? Предварительно - несоответствие типов.

un- это уникальный идентификатор(GUID),определенный выше по тексту проги.

[andrew76]

Может попробовать залить фотки вот как-то так :

(но мне еще нужно заполнить 2 поля :MainID=GUID,и Active=1
как эти 2 поля добавить в нижеприведенный запрос затрудняюсь

ТекстЗапросаADO ="INSERT INTO tbFoto (Foto) SELECT * FROM OPENROWSET(BULK N'C:\san\s.jpg', SINGLE_BLOB)";

[logist]

un- это уникальный идентификатор(GUID),определенный выше по тексту проги.

Проверьте что он совпадает по типу с базой. Например у вас это тип УникальныйИдентификатор а в sql это строка.

Еще попробуйте поле с данными изображения сделать последним.

[andrew76]

Сделал как Вы советовали :

Ошибка следующего содержания :

Ошибка при установке значения атрибута контекста (Value):
Произошла исключительная ситуация (Microsoft Cursor Engine):
Произошли ошибки во время выполнения многошаговой операции. Проверьте значения всех состояний

[andrew76]

Следующий фрагмент кода выполняется -при записи в базу ошибок не дает:
Но при запуске проги появляется сообщение "Invalid image type":

Connection = Новый COMОбъект("ADODB.Connection");
unn=ТекущаяДата();
Картинка = Новый Картинка("c:\san\s.jpg");
ИмяВрФайла = ПолучитьИмяВременногоФайла();
Картинка.Записать(ИмяВрФайла);
СодержимоеФайла = Base64Строка(Новый ДвоичныеДанные(ИмяВрФайла));
un=Новый УникальныйИдентификатор;
ТекстЗапросаADO   ="Insert into tbFoto (MainID,Active,EditDate,Foto) Values ('" + un + "',1,'"+unn+"','"+СодержимоеФайла+"')";
Connection.Execute(ТекстЗапросаADO,,128);

Следующий фрагмент кода не выполняется -при записи в базу -ошибка : не найден член группы
в строке с кодом RecordSet.Fields("MainID").Value = un;

Поток = Новый COMОбъект("ADODB.Stream");
Поток.Type = 1;
Поток.Open();
Поток.LoadFromFile("c:\san\s.jpg");
файл_=Поток.Read();
    
RecordSet = Новый COMОбъект("ADODB.RecordSet");
RecordSet.CursorLocation = 3;
RecordSet.LockType = 4;
RecordSet.Open("Select MainID,Active,EditDate,Foto from tbFoto", Connection); 
RecordSet.AddNew();
un=Новый УникальныйИдентификатор;
RecordSet.Fields("MainID").Value = un; 
RecordSet.Fields("Foto").Value = Поток.Read(-1);
RecordSet.Fields("Active").Value = 1;
RecordSet.Fields("EditDate").Value =ТекущаяДата();
RecordSet.Fields("Foto").Value = Поток.Read(-1);
RecordSet.Update();
Поток.Close();
RecordSet.Close();

Есть какая-нибудь команда в MS SQL которая может на время отключить связь текущей таблицы (куда идёт запись данных-
в моём случае это таблица TbFoto) с другими таблицами?
Может в этом проблема ?

[Petre]

andrew76 @ Сегодня, 8:20 ,
вот здесь:

un=Новый УникальныйИдентификатор;
RecordSet.Fields("MainID").Value = un;

вы пытаетесь присвоить объект 1с в совершенно другой среде - MS SQL. Так не пройдет. Либо присваивайте примитивные типы, либо объекты, созданные в MS SQL.