ник: Romiras
судя по всем как БЛОБ сохраняю intNumFile = FreeFile
strType = FileUtils_GetFileType(strWork)
Open strWork For Binary Access Read As #intNumFile
ReDim bytB(FileLen(strWork))
Get #intNumFile, , bytB
Close #intNumFile
strWork = "photo." & strType
With rst
.FindFirst strFind
If .NoMatch = False Then Exit Sub
.AddNew
!PersCode = strPersCode
!PersPhoto.Value = bytB
!PhotoLink = strWork
.Update
End With
вроде условия сохранения и показа джпг одинаковые...надо будет подумать, значить таки трабла у меян одного
а на счет хранения хнвью и его испольования это хитрый ход попробую запомнить)))
ЗЫ: спасибо за ответ