Question

delphi 从access数据库中读取图片

读取代码如下：

procedure TForm1.Button1Click(Sender: TObject);
Var
MyJPEG : TJPEGImage;
MS : TMemoryStream;
Begin
Try
MS := TMemoryStream.Create;
TBlobField(Query1.FieldByName('Image')).SaveToStream(MS);
MS.Position := 0;
MyJPEG := TJPEGImage.Create;
MyJPEG.LoadFromStream(MS);
DBImage1.Picture.Bitmap.Assign(MyJPEG);
Finally
MS.Free;
MyJPEG.Free;
End;
End;

数据库中一共保存了10幅图片，如果按了button按钮之后，随机读取并显示一幅图片，如何定位？？谢谢！

Answer 1

你的queyr1中的查询改为这个试试
假定以前是select * from 表名，自增长列为id
SELECT top 1 * FROM 表名 ORDER BY Rnd(id)