fnum = FreeFile
Open filename For Binary As fnum
ReDim b(FileLen(filename))
Get #fnum, , b
Close #fnum
rs!photo = b
Open filename For Binary As fnum
ReDim b(FileLen(filename))
Get #fnum, , b
Close #fnum
rs!photo = b
本论坛也有几个类似问题,你查一查
然后就可用: Query1Image.loadfromfile(Filename).
但是,用这种方法只能加载bmp.
如果,要用其他类型,你就必须把字段定义为TBlobField.然后,你要在程序中自己处理图形。最后,如果图片的Size大于DataBase中的BlobSize限制 就会出错,所以,你要把Blobsize设得大一点,DataBase的预设值为32k