求程序，把图片、图片的文件名导入到sql200表里。解决方法

求程序，把图片、图片的文件名导入到sql200表里。
我有一组图片，大约几百张。我想把图片导入到sql200表里，同时把图片的文件名也导入到表里。例如，表tupian里有两列分别是name,picture,naem里放图片的文件名，picture放相应的图片。请问有编译好的程序吗，给发一个谢谢。谢谢
QQ：19784222
[解决办法]
我有，发你
[解决办法]
  try
    adsRes.Append;
    adsRes['name'] := 图片文件名称;
    TBlobField(adsRes.FieldByName('picture')).LoadFromFile(图片文件名称);
    adsRes.Post;
  except
    adsRes.Cancel;
  end;

adsRes 为TADODataSet或者TADOTable等
[解决办法]
随手写的:

with adoquery1 do
begin
  append;
  fieldByName('picture').asstring:='图片1';
  tblobfield(fieldByName('picture')).loadfromfile('d:\1.jpg');
  post;
end;