挂单表gd_struct中三个字段 ID integer,file_name varchar(100),file_excel blob。
file_name 存放EXCEL文件名;file_excel 存放EXCEL文件。点击 显示 按钮后,如何以EXCEL文件显示出来?
file_name 存放EXCEL文件名;file_excel 存放EXCEL文件。点击 显示 按钮后,如何以EXCEL文件显示出来?
调试欢乐多
procedure TForm1.Button1Click(Sender: TObject);//保存文件
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile('c:\1.xls');
str.Position:=0;
adoquery1.Append;
Tblobfield(adoquery1.FieldByName('fieldname')).loadfromstream(str);
try
adoquery1.Post;
finally
str.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);//读取文件
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.Position:=0;
Tblobfield(adoquery1.FieldByName('fieldname')).savetostream(str);
str.SaveToFile('c:\2.xls');
str.Free;
end;
?鸡峻貮糀o{怇購謡[駇披}&桡t┥1鮲;跸v鷊Rw鑮^啄C截7|.藇?:臊做﹜泾O鹎(/e髂D骩京司齝U呔\R/?銀"蘽T零o8_WL篞糰紀伎暬?风莀E~黆x歐眪
setp2:文件 or stream 插入到excel裡問一下你blob字段裡的內容是什麼啊?是不是圖片啊?
6*4 11.00R20车轮与轮胎(横,F2000)M5.920双级双桥180端1860四片1040铸S悬
BY DZ1600840122 干燥罐总成 1
BY DZ13241930141 "陕汽重卡"装饰字 1
G1 DZ11241180017 高顶驾驶室本体 1
G2 DZ1660690011 发动机罩下隔音板 1
G2 DZ1660690061 通道隔音垫 1
G4 DZ91189230068 离合器总泵总成 1
G4 DZ9100360462 行车制动阀 1
G4 DZ91189230010 离合器踏板臂总成 1
2 DZ9100770155 驾驶室顶盖电线束(新内饰) 1
2 DZ9100570020 手油门操纵杆总成 1
14 DZ1692570200 窗帘导轨总成 1
17 DZ12241710102 左侧窗不透光玻璃 1
17 DZ12241710103 右侧窗不透光玻璃 1
17 DZ12241710101 左侧窗玻璃密封条 1
谁有完整代码,帮帮忙啊!!oracle blob 以excel存放的数据,点击显示 按钮后,调用EXCEL文件显示出来?