Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

  TESTHR(stream->Open(vtMissing));

  CComQIPtr<IStream> strm(stream);

  CComQIPtr<IPersistStream> ps(pic);

  //Сохраняем картинку в объект ADODB.Stream

  TESTHR(ps->Save(strm,TRUE));

  CComPtr<ADORecordset> rs;

  TESTHR(rs.CoCreateInstance(L"ADODB.Recordset"));

 

  TESTHR(rs->Open(CComVariant(L"blob_test"),CComVariant(conn),adOpenStatic,

   adLockOptimistic,adCmdTable));

  //Добавляем новую пустую запись

  TESTHR(rs->AddNew(vtMissing,vtMissing));

  CComPtr<ADOFields> flds;

  TESTHR(rs->get_Fields(&flds));

  CComPtr<ADOField> fld;

  TESTHR(flds->get_Item(CComVariant(L"img"),&fld));

  TESTHR(stream->put_Position(0));

  //Заливаем содержимое Stream-а в поле img

  CComVariant v;

  TESTHR(stream->Read(adReadAll,&v));

  TESTHR(fld->put_Value(v));

  //Сохраняем изменения в БД

  TESTHR(rs->Update(vtMissing,vtMissing));

 }

 catch(_com_error& e){

Рекомендуем скачать другие рефераты по теме: реферат на тему україна, bestreferat ru.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки