Реферат: Работа с объектами большого объема в MS SQL и ADO

return;

}

CComVariant vtMissing(DISP_E_PARAMNOTFOUND,VT_ERROR);

//Создаем Stream

CComPtr<ADOStream> stream;

hr = stream.CoCreateInstance(L"ADODB.Stream");

ATLASSERT(SUCCEEDED(hr));

//Задаем тип содержимого

hr = stream->put_Type(adTypeBinary);

if (FAILED(hr)){

ShowError();

return;

}

//Открываем Stream

hr = stream->Open(vtMissing);

if (FAILED(hr)){

ShowError();

return;

}

//Записываем данные в Stream

hr = stream->Write(v);

if (FAILED(hr)){

ShowError();

return;

}

//Устанавливаем внутренний курсор на начало

hr = stream->put_Position(0);

if (FAILED(hr)){

ShowError();