求程序，把图片、图片的文件名导入到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;