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

Question

我有一组图片，大约几百张。我想把图片导入到sql200表里，同时把图片的文件名也导入到表里。例如，表tupian里有两列分别是name,picture,naem里放图片的文件名，picture放相应的图片。请问有编译好的程序吗，给发一个谢谢。谢谢
QQ：19784222

Answer 1

  try
    adsRes.Append;
    adsRes['name'] := 图片文件名称;
    TBlobField(adsRes.FieldByName('picture')).LoadFromFile(图片文件名称);
    adsRes.Post;
  except
    adsRes.Cancel;
  end;adsRes 为TADODataSet或者TADOTable等

Answer 2

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