请问Delphi+Oracle9中,怎样将SqlServer表中的图片转储到Oracle一个表中? Oracle中的表字段用Blob类型,急问!谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SQL server 里也有啊binary 仮定: 1)SQLServer <-> ADOConnection1 <-> ADOQuery1 ADOQuery1.SQL.Text := 'SELECT * FROM SQLServer_Table WHERE 条件';2)Oracle <-> ADOConnection2 <-> ADOQuery2ADOQuery2.SQL.Text := 'INSERT INTO Oracle_Table (photo_id, photo) VALUES (:photo_id, :photo)'; 从ADOQuery1一個一個取出記録後、挿入ADOQuery2、TempStream := TMemoryStream.Create;try TBlobField(ADOQuery1.FieldByName('photo')).SaveToStream(TempStream); //TField -> TStream {...} TempStream.Position := 0; ADOQuery2.Parameters.ParamByName('photo').LoadFromStream(TempStream,ftBlob); //TStream -> TField ADOQuery2.ExecSQL;finally TempStream.Free;end;(注:写的只是一個大体、需要NI自己完善) 如何进行表数据的比对? 用sql命令进行日期型字段比较的命令(高分求教。。。。。。100分) 关于数据更新问题delphi+access 求助,向各位大大请教一个 菜单问题,谢谢! 如果解决排课的问题? 请问如何取得当前程序.EXE的最后更新时间? 请教:为什么使用一些Windows单元下的一些类和函数,编译器都不认识,帮助中也找不到?请问是什么原因?应该怎么办? 需要d7的下栽地址!, 如何在程序中对INSTER BASE 数据库进行备份,维护? 怎样作出很小的Windows程序?(不使用API) 如何编写函数?? NETWORK LIBRARY 是什么东西啊??
binary
1)SQLServer <-> ADOConnection1 <-> ADOQuery1
ADOQuery1.SQL.Text := 'SELECT * FROM SQLServer_Table WHERE 条件';2)Oracle <-> ADOConnection2 <-> ADOQuery2
ADOQuery2.SQL.Text := 'INSERT INTO Oracle_Table (photo_id, photo) VALUES (:photo_id, :photo)'; 从ADOQuery1一個一個取出記録後、挿入ADOQuery2、
TempStream := TMemoryStream.Create;
try
TBlobField(ADOQuery1.FieldByName('photo')).SaveToStream(TempStream); //TField -> TStream
{...}
TempStream.Position := 0;
ADOQuery2.Parameters.ParamByName('photo').LoadFromStream(TempStream,ftBlob); //TStream -> TField
ADOQuery2.ExecSQL;
finally
TempStream.Free;
end;(注:写的只是一個大体、需要NI自己完善)