0
evgenius-inc
24.12.15
✎
11:07
|
Всем привет.
Возникла необходимость сохранить файлы png которые хранятся в Access в поле с типом вложение(Attachment)
Делаю следующим образом
Connection=Новый COMОбъект("ADODB.Connection");
Connection.Open("Provider=Microsoft.Ace.OLEDB.12.0;Data Source= C:\fileAccess\Anketa.accdb;Persist Security Info=False;");
Stream=Новый COMОбъект("ADODB.Stream");
Stream.Type=1;
Stream.Mode = 3;
Stream.Open();
Запрос = "Select * From Анкета";
RecordSet=Новый COMОбъект("ADODB.Recordset");
RecordSet.CursorLocation=3;
RecordSet.LockType=2;
RecordSet.Open(Запрос,Connection);
RecordSet.MoveFirst();
Stream.Write(RecordSet.Fields("Анкета").Value);
Name = RecordSet.Fields("Анкета").Name;
Stream.SaveToFile("C:\fileAccess\"+Name+".png");
Stream.Close();
Connection.Close();
Но при выполнении кода происходит ошибка
"Ошибка при вызове метода контекста (Write)
Stream.Write(RecordSet.Fields("Анкета").Value);
по причине:
Произошла исключительная ситуация (ADODB.Stream): Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом."
Отладчиком посмотрел а RecordSet.Fields("Анкета").Value имеет тип
строка.
Как быть? может быть драйвер подключения другой посоветуете?
|
|