//可以用流存放，不好意思，刚刚回答了一个人的问题，将她的部分代码粘过来
基本道理是一样的,access字段用ole
procedure TForm_EmployeeInput.dataSave;
var
myfilestream:tfilestream;
myblob:tblobfield;
begin
with dm.Query_RenYuan do
begin
//FieldByName('C_BianHao').asstring:=BianHao;
if XiuGaiZhaoPian then
begin
myfilestream:=tfilestream.Create(OpenDialog1.FileName,fmopenread);
try
myfilestream.seek(0,0);
myblob:=tblobfield(FieldByName('M_ZhaoPian'));
myblob.LoadFromStream(myfilestream);
finally
myfilestream.Free;
end;
end;
。。。
post;
]
