有一些word的文件要保存进sql server7.0,如何建库,如何读写?

解决方案 »

  1.   

    建字段为Image类型的进行存储
    ocWord: TOleContainer;
    aqWord: TADOQuery;
    ...
    procedure TfrmWord.GetWordFromDB;  //取
    var
      msWord:TMemoryStream;
    begin
      msWord := TMemoryStream.Create();
      TBlobField(aqWord.FieldByName('fmsg')).SaveToStream(msWord);
      msWord.position := 0;
      ocWord.LoadfromStream(msWord);
      msWord.Free;
    end;procedure TfrmWord.SaveWordToDB;  //存
    var
      msWord: TMemoryStream;
    begin
      msWord := TMemoryStream.Create();
      ocWord.SaveToStream(msWord);
      msWord.Position := 0;
      aqWord.Edit;  //or aqWord.Append;
      TBlobField(aqWord.FieldByName('fmsg')).LoadFromStream(msWord);
      aqWord.Post;
      msWord.Free;
    end;
      

  2.   

    text 或image 字段都行,用TBlobField来存取