[请求]如何把blob数据从一个字段复制到到另一个字段

zykj

qry1.Params.ParamByName('wj').AsBlob:=qry2.FieldByName('wj').AsString;
可以的
为什么qry1.Params.ParamByName('wj').AsBlob:=qry2.FieldByName('wj').AsBlob不行

具体要如何写？Stream
具体如何写

shangxy

http://bbs.justep.com/forum.php?mod=viewthread&tid=1951

zykj

3、实现Copy表二(Source)中当前记录的二进制流OLE字段到表一(Target)中，代码如下：

dsTarget.DataSet.FieldByName('BlobOLE').Assign
(dsSource.DataSet.FieldByName('BlobOLE'));

              qry1:=TQuery.Create(nil);
              try
              qry1.ConnectionString:='DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
              qry1.CommandText:='insert into '+Out_Bm+' '+
                   '(id,htbh,wjmc,wj,wjhz,wjdx,scrid)'+
                   'VALUES (:id,:htbh,:wjmc,:wj,:wjhz,:wjdx,:scrid)';
              qry1.Params.ParamByName('id').AsString:=qry2.FieldByName('id').AsString;
              qry1.Params.ParamByName('htbh').AsString:=sOut;
              qry1.Params.ParamByName('wjmc').AsString:=qry2.FieldByName('wjmc').AsString;
              qry1.Params.ParamByName('wj').AsBlob:=qry2.FieldByName('wj').AsBlob;
              qry1.Params.ParamByName('wjhz').AsString:=qry2.FieldByName('wjhz').AsString;
              qry1.Params.ParamByName('wjdx').AsString:=qry2.FieldByName('wjdx').AsString;
              qry1.Params.ParamByName('scrid').AsString:=qry2.FieldByName('scrid').AsString;
              qry1.Execute;
              finally
                qry1.Free;
              end;

这种的 要如何改

shangxy

qry1.append;
qry1.FieldByName('wj').Assign(qry2.FieldByName('wj'));
.
.
.
.

qry1.Execute;

看看这样行么？

zykj

qry1:=TQuery.Create(nil);
              try
              qry1.ConnectionString:='DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
              qry1.CommandText:='insert into '+Out_Bm+' '+
                   '(id,htbh,wjmc,wj,wjhz,wjdx,scrid)'+
                   'VALUES (:id,:htbh,:wjmc,:wj,:wjhz,:wjdx,:scrid)';
              qry1.Params.ParamByName('id').AsString:=qry2.FieldByName('id').AsString;
              qry1.Params.ParamByName('htbh').AsString:=sOut;
              qry1.Params.ParamByName('wjmc').AsString:=qry2.FieldByName('wjmc').AsString;
              qry1.Params.ParamByName('wj').Assign(qry2.FieldByName('wj'));
              qry1.Params.ParamByName('wjhz').AsString:=qry2.FieldByName('wjhz').AsString;
              qry1.Params.ParamByName('wjdx').AsString:=qry2.FieldByName('wjdx').AsString;
              qry1.Params.ParamByName('scrid').AsString:=qry2.FieldByName('scrid').AsString;
              qry1.Execute;
              finally
                qry1.Free;
              end;
数据过去少了  不知是什么原因，附件就不能打开了 如何解决

shangxy

楼主的数据过去少了是什么意思，不是很明白

zykj

本来59K的文件，到另一个表中字段中 数据只有57K了

zykj

我想实现 把A库的附件 复制到 B库的 附件表中去

shangxy

我这样测试没有问题：
procedure TMainForm.Button1Click(Sender: TObject);
var lQuery1,lQuery2 :TQuery;
begin
   lQuery1 :=TQuery.Create(nil);
   lQuery2 :=TQuery.Create(nil);
   try
   lQuery1.ConnectionString :='DATABASEURL=Biz:\OPERATION\OPERATIONDB.DATABASE';
   lQuery2.ConnectionString :='DATABASEURL=Biz:\OPERATION\OPERATIONDB.DATABASE';
   lQuery2.CommandText :='select * from sjb11';
   lQuery2.Open;
   lQuery2.First;
   lQuery1.CommandText :='select * from tp2';
   lQuery1.Open;
   lQuery1.Append;
   lQuery1.FieldByName('zd1').AsString :=jscommon.CreateGUIDStr;
   lQuery1.FieldByName('tp').Assign(lQuery2.FieldByName('tp'));
   lQuery1.ApplyUpdates;
   finally
   lQuery1.Free;
   lQuery2.Free;
   end;
end;

zykj

你测试的文件多大 有没有上100K，我小的 没问题