怎样用Adoquery向数据库中添加图象类型文件及文件类型文件记录???(100分)

  • 主题发起人 主题发起人 红锡包
  • 开始时间 开始时间

红锡包

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样用Adoquery向数据库中添加图象类型文件及文件类型文件记录???
添加记录有大小限制吗???
 
ole字段(access)或者blob字段可以做到。
 
用TADOBlobStream。
 
能举个例子吗??
 
我给你一个例子:
Query1.close;
Query1.Sql.clear;
query1.sql.add('insert into std Values ('''+edit1.text+''','''+
edit2.text+''','''+ edit3.text+''',:poho)');
{query1.close;
query1.sql.clear;
Query1.SQL.Add('select * from std');
query1.Open;
query1.insert;
query1.FieldByName ('std_no').AsString:='001';
tblobfield(query1.FieldByName('std_poto')).LoadFromFile('C:/5.jpg');
}
MySTM:=TmemoryStream.Create;
image1.Picture.LoadFromFile('C:/5.jpg');
myJpeg:=TJPEGImage.Create;
MyJpeg.LoadFromFile('C:/5.jpg');
Myjpeg.savetostream(Mystm);
MySTM.Seek(0,0);
Query1.Parameters[0].LoadFromStream(MySTM,ftBlob);
if assigned(MySTM) then
MySTM.Free;
Query1.ExecSQL;
 
这将要用到ORACLE8支持的LOB(LARGE OBJECT) 类型。

它有相应的存取方法。你查一下相关的ORACLE书籍有实例。
 
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into Tbl_Photo(id,images)');
SQl.Add('values(:id,');
SQL.Add(':images');
Parameters.ParamByName('id').Value:='gdgdf';
Parameters.ParamByName('images').LoadFromFile('c:/bmp.bmp',ftblob);
try
ExecSQL;
except
end;
end;
==============================
我这样用过,很正常,没有问题。
==============================

 
多人接受答案了。
 
后退
顶部