保存文件到数据库和读取文件至本地

[chdaner]

代码片段如下，保存文件到数据库没问题，但是读取文件到本地的时候，为什么读取出来的文件打开后全是同一个文件？应该如何做，请高手指教,谁有没有可用的代码？

AdoQuery1.SQL.Add('update T_dropdownexp set addition=:p'); //保存附件至数据库
Adoquery1.Parameters.ParamByName('p').LoadFromFile(extractfilename(opendialog1.FileName),ftBlob);
AdoQuery1.ExecSQL;


procedure TForm1.Button11Click(Sender: TObject); //载入附档
var MS: TMemoryStream;
ext:string;
begin
AdoQuery1.Close;
AdoQuery1.SQL.Add('select * from T_dropdownexp');
AdoQuery1.Open;
Ms:=TMemoryStream.Create;
//Ms.Position:=0;
ext:=trim(edit24.Text); //edit中显示的为数据库中文件的扩展名，通过双击记录显示出来
savedialog1.Filter:='*'+ext;
if savedialog1.Execute then begin //将附件保存至本地
if extractfileext(savedialog1.FileName)<>ext then
savedialog1.FileName:=changefileext(savedialog1.FileName,ext);
TBlobField(AdoQuery1.FieldByName('addition')).SaveToFile(savedialog1.FileName);
end;
//MS.Free;
end;

[diruser]

同意，[ bdmh ]的

[bdmh]

TBlobField(AdoQuery1.FieldByName('addition')).SaveToFile(savedialog1.FileName);
这始终是保持adoquery的第一条记录的附件，AdoQuery1.open后，指向第一条记录

[chdaner]

改成这样还是不行啊，no是唯一的。

AdoQuery1.Close;
AdoQuery1.SQL.Add('select * from T_dropdownexp where no='''+edit1.text+'''');
AdoQuery1.Open;

[bdmh]

如果你确保每次选出的不是同一个记录的话，那就是你保存的有问题，都是同一个文件