请问怎样可以把word表格中的数据导入数据库中

Question

请问怎样可以把word表格中的数据导入数据库中，请各位大侠帮下忙。因为我是新手还希望大家写得详细点，多谢了。

Answer 1

procedure TForm_Contract_Show.Button_SaveClick(Sender: TObject);
var MemSize:integer;
    Buffer:PChar;
    MyFile:TFileStream;
    Stream:TStream;
    FileName:string;
begin
    FileName:=OpenDialog1.FileName;
    MyFile:=TFileStream.Create(FileName,fmOpenRead);
    with Form_Contract_Edit.ClientDataSet_Contract do
    begin
      Open;
      Edit;
      Stream:=Form_Contract_Edit.ClientDataSet_Contract.CreateBlobStream(Form_Contract_Edit.ClientDataSet_Contract.FieldByName('合同文本'),bmReadWrite);      MemSize:=MyFile.Size;
      Inc(MemSize);
      Buffer:=AllocMem(MemSize);
      try
        Stream.Seek(0,soFromBeginning);
        MyFile.Read(Buffer^,MemSize);
        Stream.Write(Buffer^,MemSize);
        //Form_Contract_Edit.ClientDataSet_ContractCDSDesigner10.LoadFromStream(Stream);
      finally
        MyFile.Free;
        Stream.Free;
      end;
      try
        Form_Contract_Edit.ClientDataSet_Contract.Post;
        Form_Contract_Edit.ClientDataSet_Contract.ApplyUpdates(0);
      except
        ShowMessage('保存失败！');
        halt;
      end;
        ShowMessage('保存成功！');
    end;
    Button_Save.Enabled:=False;
    OleContainer_Contract_DOC.CleanupInstance;
    OleContainer_Contract_DOC.Refresh;
end;