如何把图片存进SQL2000在读出来，请给个例子

Question

把BMP图存进SQL2000中然后在显示出来即可

Answer 1

建一个表，其中有一个字段 img:  Image型procedure TForm1.Button1Click(sender: TObject); 
begin 
  ADODataSet1.Insert; 
  if OpenDialog1.Execute then 
    (ADODataSet1.FieldByName('img') as TBlobField).LoadFromFile( 
       OpenDialog1.FileName); 
  ADODataSet1.Post; 
end; //如果是*.bmp图象 
Image1.Picture.Assign(ADODataSet1.FieldByName('img') as TBlobField); 
你可以在ADODataSet1的OnAfterScroll事件里写以上一条代码！

Answer 2

注意：必须要使用*.bmp图象，如果是其它格式的图象，在读出来的时候会出错！

Answer 3

我不是说了吗
你在ADODataSet1的OnAfterScroll事件里写
Image1.Picture.Assign(ADODataSet1.FieldByName('img') as TBlobField); 
当然，你要在窗体里加入TOpenDialog和TImage控件，看名字也能看出来。

Answer 4

一个简单的测试：
 
你在窗体上加一个TButton:  ReadButton; 一个TImage: image1
 
Tform1.ReadButtonClick(sender: TObject);
begin
 Image1.Picture.Assign(ADODataSet1.FieldByName('img') as TBlobField); 
end;要是，还不显示我就没办法了 ，你必须保证你数据库里存的是*.bmp格式的图片！！！
其他格式的图片用以下办法，
比如说你用的是*.ico图片：
Tform1.ReadButtonClick(sender: TObject);
begin
 (ADODataSet1.FieldByName('img') as TBlobField).SaveToFile( 
    'temp.ico'); 
 image1.Picture.LoadFromFile('temp.ico');
end;

Answer 5

faint!
原来是图片没有存进数据库，呵呵！死鬼谢谢了！ 嘻嘻！ 一○○分送你酬谢！