请问高手用OleContainer1打开数据库中的word模版文件,编辑后如何再另存到数据库中其他表中。谢谢。
//这是打开的代码
//从SQL中读出用TOleContainer方法存的word文档,并显示在TOleContainer中
ADOQ_tongyong->Close();
ADOQ_tongyong->SQL->Text="select mingcheng,neirong from GM_chengxuwenjian_neirong where id='"+chengxuwenjia n_neirong_id+"' ";
ADOQ_tongyong->Open();
Lb_title->Caption=ADOQ_tongyong->FieldByName("mingcheng")->AsString;
TStream *Stream1;
Stream1=ADOQ_tongyong->CreateBlobStream(ADOQ_tongyong->FieldByName("neirong"),bmRead);
try
{
OleContainer1->LoadFromStream(Stream1);
OleContainer1->DoVerb(1);
}
__finally
{
delete Stream1;
Stream1=NULL;
}