用delphi怎么在sql数据库中存取word文档???急

Question

用delphi怎么在sql数据库中存取word文档??
最好给出代码

Answer 1

将要保存文件的字段设为Image类型
用TBlobField的方法保存Adoquery1.Sql.Add('insert into 表名 (字段名) Value (:Data)');
TBlobField(Adoquery1.Parameters.ParamByName('Data')).LoadFromFile(文件名);
Adoquery1.ExecSQL;

Answer 2

那就更容易了
查询后
要Active := True;
TBlobField(Adoquery1.FieldByName('字段名')).SavetoFile(文件名); 

Answer 3

...........
条件建立在已连接好数据库的情况下保存
procedure TForm1.Button1Click(Sender: TObject);
begin
  AdoQuery1.Sql.Clear;
  Adoquery1.Sql.Add('insert into 表名 (字段名) Value (:Data)'); 
  TBlobField.Adoquery1.Parameters.ParamByName('Data')).LoadFromFile   (文件名); 
Adoquery1.ExecSQL; 
end;读取
procedure TForm1.Button2Click(Sender: TObject);
begin
  AdoQuery1.Sql.Clear;
  Adoquery1.Sql.Add('select 字段名 from 表名 where 查询参数); 
  AdoQuery1.Active := true;
  if AdoQuery1.RecordCount = 0 then 
  begin
    AdoQuery1.close;
    exit;
  end;
  TBlobField(Adoquery1.FieldByName('字段名')).SaveToFile(文件名); 
  Adoquery1.Close; 
end;

Answer 4

Adoquery1.Sql.Add( 'insert into 表名 (字段名) Value (:Data) ');  
字段名写什么
我是将整个word 文档都保存到SQL中
好象有人要说用tstream流的形式存取???

Answer 5

字段名就是你设置的数据库的表中的字段的名称..
比如我建了一个表名为 Table,然后需要在里面建立不同的字段来保存不同的内容，比如:Name,Data,No什么的...都是...而这些不同的字段的名称也就是字段名了
至于有人说的用TStream流...你可以不用理会了...TBlobField方式就是以数据流的方式保存和读取的...如果你先用TStream的方式...那就相当麻烦了，而且你还是要用TBlobField的方式LoadFromStreaom,完全没有必要...

Answer 6

比如下面是一个word文档     你还
     我很对比擦 上擦鹿角菜博爱上才洒家长短句 
塞年擦 撒考察上农村喀什产生可 
   哦哦年毫毫 
..........
这样的内容我全要保存当SQL中
SQL表应如何设计啊???

Answer 7

文档中的内容是什么不用理会...
读取出来的是文件，你先用SaveDialog选择好保存的文件名，然后保存成文件，保存好之后直接打开就行了....至于SQL表如何设计...，不知道该如何回答了...你建一个表，然后设计表建一个image类型的字段，再建一个用来表示名称的char类型的字段就行了，最好再建一个ID号，用int类型就行了。

Answer 8

用文件流存入image字段中
取的时候将文件流保存后打开就行

Answer 9

我也无语了...该写的已经写了...具体操作的例子也写得很清楚了..但是如果是要一个DEMO...这恐怕太麻烦了，我这没装SQL啊...而且即使装了，也不可能帮你建表啊...其实我认为你应该先学习操作数据库...

Answer 10

..那你不如先建一个带image类型字段的表吧...

Answer 11

读取出来的是文件，你先用SaveDialog选择好保存的文件名，然后保存成文件，保存好之后直接打开就行了.... 这个怎么操作

Answer 12

假设一个 “保存按钮”，点击之后，弹出保存对话框，选择好保存的位置和文件名后，OKprocedure TForm1.ButtonClick(Sender:TObject);
var
  FileName :string;
begin
  if not SaveDialog1.Execute then exit;
  FileName := SaveDialog1.FileName;
  AdoQuery1.SQL.Text := 'select * from 表名 where ...'//这个不用我教吧  
  try
    AdoQuery1.Active := true;
    if AdoQuery1.RecordCount = 0 then
      begin
        Adoquery1.Active := false;
        ShowMessage('无数据');
        Exit;
      end;  
    AdoQuery1.First;
    //下面的字段名为你设计表时的Image类型的字段名称，你自己看着写。
    TBlobField(Adoquery1.FieldByName('字段名')).SaveToFile(FileName);
  except
    ShowMessage('错误');
    Adoquery1.Active := false;
  end;
  Adoquery1.Active := false;
end;
//上面这段代码差不多可以了吧，我凭空打的，可能有部分打错字

Answer 13

TBlobField(Parameters.ParamByName('FileName')).LoadFromFile(FileName);
这里出错(access invalid address)？