急急急！！关于SQL SERVER里的IMAGE类型和ORCALE里的BLOBl类型！！！！

[zxy1980]

sqlserver里有一个表的字段是image型，oracle里有个表的字段是blob型，想问用sql语句在delphi里面怎么样才可以把sqlserver里image型字段的内容插入到oracle里blob型字段呢？急，等待赐教 !!!!!!!!!!!!

[hmily1688]

用内存流吧，oracle我不熟，blob是二进制类型吧，
var
ms: TStringStream;
File_Type: string;
begin
if not (Shy_qry.eof and Shy_qry.bof) then
begin
ms := TStringStream.Create('');
OpenPictureDialog1.InitialDir := sm_directory;
if (OpenPictureDialog1.Execute) and (trim(OpenPictureDialog1.filename) <> '') then
begin
File_Type := ExtractFileExt(OpenPictureDialog1.filename);
if UpperCase(File_Type) <> '.JPG' then
begin
OpenPictureDialog1.Filename := BmpToJpg(OpenPictureDialog1.filename);
end;
Image1.picture.loadfromfile(OpenPictureDialog1.filename);
Image1.Picture.Graphic.SaveToStream(ms);
if not (Shy_qry.State in [dsedit, dsinsert]) then
begin
Shy_qry.Edit;
end;
Shy_qry.Fieldbyname('photo_type').AsString := Copy(OpenPictureDialog1.filename, length(OpenPictureDialog1.filename) - 2, 3);
Ms.Position := 0;
(Shy_Qry.Fieldbyname('photo') as Tblobfield).LoadFromStream(ms);
if Shy_Qry.State in [dsedit] then
begin
Shy_qry.Post;
end;
end;
ms.Free;
end

[hmily1688]

以上是sql server的，你自己改一下吧

[zxy1980]

问题是我现在连ORCALE里的那个表都大不开，
Shy_qry.Edit根本不行，
必须用execsql来执行！
怎么办呀？

[gdwyh]

用ADO,ADOTABLE1为MSSQL表,ADOTABLE2为ORACLE表.
adotable1.close;
adotable1.sql.clear;
adotable1.sql.add(<sql语句>);
adotable1.open;
(adotable1.fieldByName('wordfile') AS TBlobField).SaveToFile(路径\文件名);
adotable2.close;
adotable2.sql.clear;
sql.Add('insert into 表名(字段名) values(:变量名)');
adotable2.parameters.Items[0].LoadFromFile(路径\文件名,ftBlob);
adotable2.execsql;

[zxy1980]

在orcale里blob类型是不能用select * from 表名 来打开的，

[gdwyh]

更正一下,上面的ADOTABLE全部改为ADOQUERY,对不起,一时疏忽.

[zxy1980]

楼上的大哥呀！
能不能在不建数据流的情况下实现！
因为我一次有很多条记录要插入

[hmily1688]

好像是不太现实吧，你用循环吧，一条一条的添加，嘻嘻，

[huojiehai]

oracle中文件大时不能像SQL SERVER中loadfromfile,应该用
http://haitian.myrice.com/OracleBlob.htm

[huojiehai]

还另一种方法是(学一招吧)：

假设query1连接的是SQL SERVER , Query2连接的是oracle相同的表。
以下是从sql server批量导入oracle中，不管字段是什么类型都行（包括Blob）
var
lp: integer;
begin
Query1.Open;
Query2.Open;
Query1.first;
while not Query1.eof do
begin
query2.Append;
for lp := 0 to Query1.Fields.Count - 1 do
query2.fieldbyname(Query1.Fields[lp].FieldName).AsVariant :=
query1.fieldbyname(Query1.Fields[lp].FieldName).AsVariant;
query2.Post;
Query1.Next;
end;
end;

[zxy1980]

不是呀，Query2.Open根本就打不开

[zxy1980]

Query2.Open;提示‘无法识别的数据’

[zxy1980]

Query2.Open;提示‘无法识别的数据类型’

[hmily1688]

把query2中加入固定字段，把blob size,设置为10240试试

[huojiehai]

楼主，你要改一下呀，你要写入SQL语句再打开呀，你要变通一下

hmily1688(流浪在中国) 说得对，blob size还要设置大一些

注意Query2中的SQL语句要全部大写，由于requestlive设为了true,否则就会报错 Query1最好也全部大写

[风轻狂]

你的Oracle客户端的版本是不是太低了

[zcfzcf001]

我点了，怎么还是这页呀，没有什么编辑框呀，在哪呢？

[kevin218]

主要是两个函数的用法：getmem和getdata（）
var
t1:array[0..10] of pchar;
i,s1,s2:integer;
str1,str2,sSql:string;
begin
i:=0;
while adotable1.Eof=false do begin
str1:=adotable1.FieldValues['userid'];
sSql:='insert into p2(userid) select userid from p1 where '+str1+' not in (select userid from p2)';
adoconnection1.Execute(sSql);
if adotable1.FieldByName('pic').IsBlob then
begin
getmem(t1[i],s1);
if adotable1.FieldByName('pic').GetData(t1[i]) then
adotable2.Fields[1].GetData(t1[i])
else
showmessage('图像 is null');
freemem(t1[i]);
end;
i:=i+1;
adotable1.Next;
end;

[zxy1980]

各位谢谢呀，我试试，

可是我怎么给分呢，谁能告诉我，我不知道在哪能给呀，

[dickeybird888]

窗体的最下面有个管理，点管理，然后就可以给分，

别忘记在"码"后面的编辑框输入你登陆的密码！
（·￥·）