如何用SQL向数据库中插入图象字段?(50分)

  • 主题发起人 主题发起人 hongsen
  • 开始时间 开始时间
H

hongsen

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在使用ADO访问数据库。需要用SQL串完成对数据库的任何操作。那么当某个字段是
图象字段时,如何实现?
 
图像字段可以在数据库中直接定义,blob字段,程序用TImageField
和相关控件就可以显示
 
var
MS:TMemoryStream
begin
MS:=TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(MS);
TBlobField(DataSet.FieldByName('Picture')).LoadFromStream(MS);
end;
 
http://richsearch.com/
全文检索好了,这个问题很多的答案。
最好的办法是转换成jpg格式存储到数据库。
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
openpicturedialog1.execute;
image1.picture.loadfromfile(openpicturedialog1.filename);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
graphic1:Timage;
begin
graphic1:=Timage.Create(self);
graphic1.picture.loadfromfile(openpicturedialog1.filename);
table1.Open;
table1.insert;
table1.fieldbyname(’id’).asstring:=’121’;
table1.fields[1].assign(graphic1.Picture);
table1.post;
table1.close;
graphic1.free;
end;
 
http://www.delphibbs.com/delphibbs/dispq.asp?LID=1041166
 
楼上各位,回答别人的问题是不是应该把问题看看清楚呢?

如何用SQL语句实现?

我也想知道。
 
是啊,我不用DB控件,只想拼好一个SQL,然后直接调用TADOQuery.ExecSQL
 
close;
commandtext:='insert into table(photo) values(:aa)'
params.clear;
params.add;
params[0].loadfromfile(filename);
execute;
 
blob字段 好象有大小限制,Image字段如何使用?
 
这个问题看似简单,我查过书,也到各种论坛上看过,没有一个处理的好该问题的。
都是想当然的简单化。没有完整的方法解决图象存储。

难道我们的程序员的水平都不行吗?

bl_icesea79 的答案根本就不能运行!
 
后退
顶部