把word文档存入Blob字段

[Alany]

try {
TBlobField* pContract
= (TBlobField *)adoqryContract->FieldByName( "Contract" );

if( pContract != NULL ) {
TMemoryStream* pContent;

if( (pContent = new TMemoryStream( )) != NULL ) {
pContract->BlobType = ftBlob;
oleWord->SaveToStream( pContent );
adoqryContract->Edit( );
pContract->LoadFromStream( pContent );

try {
adoqryContract->Post( );
pContent->Clear( );
delete pContent;
}
catch( const Exception &e ) {
adoqryContract->Cancel();
}
}
}
}
catch( Exception& e ) {
}
以上代码中，若pContract->BlobType = ftBlob,Post的时候，提示“多步操作产生错误”；若不加，Post能通过，但是再从Blob字段中用OleContainer->LoadFromStream读出时，提示“%1已存在”
请教各位高手，这问题咋解决

[baal_zf]

一下程序能够保存任何文件到数据库中：
请将Table的CachedUpdates设为false;希望对你有帮助

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Table1->Insert();
TMemoryStream *Ms=new TMemoryStream();
TBlobField *pField=(TBlobField*) Table1Record;
TBlobStream *pmem=new TBlobStream(pField,bmWrite);

Table1ID->AsInteger=11;
if(OpenDialog1->Execute())
{
Ms->LoadFromFile(OpenDialog1->FileName);
}
Ms->SaveToStream(pmem);
Ms->Free();
pmem->Free();
Table1->Post();

}

[baal_zf]

快给分呀