在Delphi怎么将图片存入SQL Server 2000中

Question

在Delphi怎么将图片存入SQL Server 2000中
在SQL建一个什么样的字段

Answer 1

建立一个blob字段  
adoquery1.SQL.Text:='select * from Image_table where F_stu_id=1';
  adoquery1.Open;
  adoquery1.Append;
  ADOQuery1F_STU_ID.Value:=90;    
  ADOQuery1F_IMG_DATA.LoadFromFile('D:\share\0908nemo09(海底).jpg');
  adoquery1.Post;

Answer 2

如果数据库中要存储的是BMP文件，则在procedure TForm1.showbuttonClick(Sender: TObject);过程中代码更改如下即可存储显示BMP文件格式的操作。
procedure TForm1.showbuttonClick(Sender: TObject);
var
ghy:TADOBlobstream;
pic:tbitmap;
begin
ghy := TADOBlobstream.Create(Adoquery1pic, bmRead);
try
{ ghy.Seek(JpegStartsInBlob(Adoquery1pic),soFromBeginning);}
Pic:=Tbitmap.Create;
try
Pic.LoadFromStream(ghy);
Image1.Picture.Graphic:=Pic;
finally
Pic.Free;
end;
finally
ghy.Free
end;
end;

Answer 3

FileName := StudentNum + '.jpg';
if not FileExists(FileName) then
    FileName := 'NoPhoto.jpg';
TBlobField(QueryToSql.FieldByName('ÕÕƬ')).LoadFromFile(FileName);
AssignFile(filePhoto,FileName);
Reset(filePhoto, 1);
QueryToSql.FieldByName('³¤¶È').Value := FileSize(filePhoto);
CloseFile(filePhoto);