Var ms:TMemoryStream;begin ms:=TMemoryStream.Create; with adoquery1 do begin close; sql.clear; sql.Add('select * from tabelname1'); open; end;while not ADOQuery1.Eof do begin ms.Clear; (TBlobField(ADOQuery1.FieldByName('tp_picture'))).SaveToStream(ms); with ADOQuery2 do begin Close; SQL.Clear; SQL.Add('insert into tablename2(wenjian2_name) values(:a)'); Parameters.ParamByName('a').loadfromstream(ms,ftBlob); ExecSQL; end; ADOQuery1.Next; end;end;
ms:=TMemoryStream.Create;
with adoquery1 do
begin
close;
sql.clear;
sql.Add('select * from tabelname1');
open;
end;while not ADOQuery1.Eof do
begin
ms.Clear;
(TBlobField(ADOQuery1.FieldByName('tp_picture'))).SaveToStream(ms);
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('insert into tablename2(wenjian2_name) values(:a)');
Parameters.ParamByName('a').loadfromstream(ms,ftBlob);
ExecSQL; end;
ADOQuery1.Next;
end;end;