请大家关注一下,好吗?我已经为这拖了一个多星期了!
我的意思是想从数据库中做个循环查出想要的记录，然后从第一条记录开始往临时生成
的word.doc中写数据，直至最后一条,相当于在一个word里面把这些文档合并了,下面的代码，只能写入第一条记录，我不
知如何修改能达到上面说的效果。还请指教。急！急！急！
MyFile:=TFileStream.Create(extractfilepath(application.ExeName)+'word.doc',fmCreate);
MyFile.Position:=0;
query.SQL.Clear;
query.SQL.Add('select * from scword where scwordid>=8000 order by scwordid');
query.Active:=true;
query.First;
while not query.eof do //for i:=0 to query.RecordCount-1 do
begin
TBlobField(query.FieldByName('scdoc')).SaveToStream(MyFile);
query.Next; //从这以后，不知如何解决
如何找到一个就向OLECtn中打开的word插入一个文档呢?
end;
MyFile.Free;
OleContainer1.createobjectfromfile(extractfilepath(application.ExeName)+'word.doc',true);
olecontainer1.DoVerb(0);
olecontainer1.Run;
oleshow:=true;
