5,392
社区成员
发帖
与我相关
我的任务
分享困扰我很常时间的问题，为什么不能删除Access里的的jpg图片
procedure TForm3.Button2Click(Sender: TObject);
begin
if Application.MessageBox('确认删除吗?','提示',33)=IDok then
begin
Image1.Picture.Graphic:=Nil;
Form2.Adoquery1.Edit;
TBLobField(Form2.ADOQuery1.FieldByName('照片')).clear;
Form2.ADOQuery1.Post;
end;
end;
begin
if Application.MessageBox('确认删除吗?','提示',33)=IDok then
begin
Image1.Picture.Graphic:=Nil;
Form2.Adoquery1.Edit;
TBLobField(Form2.ADOQuery1.FieldByName('照片')).clear;
Form2.ADOQuery1.Post;
end;
end;
...全文
请发表友善的回复…
发表回复
BigAngell 2004-12-06
- 打赏
- 举报
使用SQL命令直接更新表
Update Table Set Pic = null
Update Table Set Pic = null
wenjianyao 2004-12-06
- 打赏
- 举报
不知道，帮你顶
aiirii 2004-12-06
- 打赏
- 举报
可能直接用 update XXtable set 照片 = null
好的
好的
Mrkang 2004-12-06
- 打赏
- 举报
不行，
gxgyj 2004-12-06
- 打赏
- 举报
Form2.ADOQuery1.FieldByName('照片').value:=nil;不行吗？
Mrkang 2004-12-06
- 打赏
- 举报
Delphi5.0+Access2000
才子鸣 2004-12-06
- 打赏
- 举报
up
