bu sekilde dosyaya kaydederek LoadPicture ile yuklemeye calisiram ,amma burada da Write methodunda bilinmeyen hata alinir. Logo kilidlenir:
SQL="Select PHOTO from TBL_KSPAYMENTLIST
rs.open(SQL)
v_fileName="E:\test\aa.jpg"
do while not rs.eof
v_foto=rs.PHOTO
stm=oleobject("ADODB.Stream")
stm.Type = 1
stm.Open
stm.Write(v_foto)
stm.SaveToFile(v_fileName,2)