百分跪求大侠指点，sql server2000导入excel

Question

我想在Delphi程序中用代码把一个sql server2000表中的纪录导入word表里，那位大侠能告知详细代码和相关控件的使用，越详细越好，不胜感激。江湖一只小虾。

Answer 1

题目发错，应为sql server2000导入word中。

Answer 2

呵呵，导入EXCEL比较好做，WORD嘛就比较麻烦了，都是用来编辑而已，选个比较简单的吧

Answer 3

做这个挺麻烦的。
需要引用Word提供的ActiveX控件做
我看看还能不能找到以前的代码

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  OleContainerFY1.CreateObjectFromFile('d:\1.doc',false);
  OleContainerFY1.DoVerb(1);
end;procedure TForm1.Button2Click(Sender: TObject);
var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  OleContainerFY1.SaveToStream(MS);
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Text := 'SELECT * FROM TABLE1';
    Open;
    Append;
    TBlobField(FieldByName('BL')).LoadFromStream(MS);
    Post;
    Application.MessageBox('succussful','fgyr',mb_ok);
  end;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Text := 'SELECT BL FROM TABLE1';
    Open;
    TBlobField(FieldByName('BL')).SaveToFile('d:\abc.doc');
  end;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
  OleContainerFY1.LoadFromFile('d:\abc.doc');
  OleContainerFY1.DoVerb(1);
end;procedure TForm1.Button5Click(Sender: TObject);
begin
  OleContainerFY1.SaveToFile('d:\abc.doc');
  OleContainerFY1.DestroyObject;
end;end.