怎样把一个表中的OLE字段插入到另一张表中？

Question

用ado，不用table和文件（不生成文件在写进去）。
最好用ADODataSet或者Command
那要用什么sql语句和变量呢？
具体怎么操作？

Answer 1

存:
var
CurStream:TFileStream;
  begin
  Table1.append;
  if FileName<>'' then
    begin
      CurStream:=TFileStream.Create(FileName,fmOpenRead);
      TBlobField(Table1.FieldByName('ole object Field')).LoadFromStream(CurStream);
      CurStream.free;
    end;
  Table1.post;
取:
TBlobField(Table1.FieldByName('ole object Field')).SavetoFile('c:\temp.bmp');
  shellExecute(handle,'open','c:\temp.bmp', '', '', SW_SHOWNORMAL);

Answer 2

用AdoQuery最简单begin
  with  Adoquery1 do
    Close;
    SQL.clear;
    SQL.Add('insert into t2(key,oleField) select key,oleField from t1 where key='
       +QuotedStr('xxxx'));
    ExecSQL;
    Close;
end;