delphi添加图片代码

Question

procedure TForm3.SpeedButton3Click(Sender: TObject);
var picture1:tpicture;
begin
if messagedlg('确定要修改吗？',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
picture1:=tpicture.Create;
picture1.LoadFromFile(extractfilename(openpicturedialog1.FileName));
with dm.f3adoquery1 do
begin
close;
sql.Clear;
sql.Add('update 学生资料 set 姓名=:B);
parameters.ParamByName('B').Value:=trim(edit2.text);
FieldByName('个人照片').Assign(picture1);
execsql;
close;
sql.Clear;
sql.Add('select * from 学生资料 ');
open;
application.MessageBox('数据修改成功！','学生修改',MB_OK);
end;
end;
end;运行后图片加不进去，怎么添加图片呢？

Answer 1

sql.Clear; 
sql.Add('update 学生资料 个人照片=:A set where 姓名=:B'); 
parameters.ParamByName('B').Value:=trim(edit2.text); 
parameters.ParamByName('A').LoadFromFile(openpicturedialog1.FileName);
execsql;

Answer 2

sql.Clear; 
sql.Add('update 学生资料 个人照片=:A set where 姓名=:B'); 
parameters.ParamByName('B').Value:=trim(edit2.text); 
parameters.ParamByName('A').LoadFromFile(openpicturedialog1.FileName,ftBlob);
execsql;