求赐教delphi如何将word保存至sql2005啊

Question

如题

Answer 1

不管是什么文件都可以用保存至数据库。
var
  i: integer;
  fs: TFileStream;
  filename: string;
begin
////附件添加
  if OpenDialog1.Execute then
   begin
   for i := 0 to OpenDialog1.Files.Count-1 do begin
  filename := ExtractFileName(OpenDialog1.Files.Strings[i]); //取出文件的名
  fs := TFileStream.Create(filename, fmOpenRead);
  self.ADOQuery5.Append;
    self.ADOQuery5.FieldByName('lsh').AsString:=self.ADOQuery2.FieldByName('lsh').AsString;
    self.ADOQuery5.FieldByName('文件名').AsString := ExtractFileName(filename);
    fs.Position := 0;
    TBlobField(self.ADOQuery5.FieldByName('内容')).LoadFromStream(fs);
    self.ADOQuery5.Post;   end;
     fs.Free;

Answer 2

ADOQuery1.Edit;
TBlobField(ADOQuery1.FieldByName('word')).LoadFromFile('c:\1.doc');
ADOQuery1.Post;

Answer 3

TBlobField()括号内就是你对应的字段,TBlobField(ADOQuery1.FieldByName('字段名'))