用VB6读写数据库中的图片[2]

get #file_num, , bytes()
rs!picture.appendchunk bytes()
next block_num

if left_over > 0 then
redim bytes(left_over)
get #file_num, , bytes()
rs!picture.appendchunk bytes()
end if

rs.update
close #file_num

lstpeople.additem person_name
lstpeople.text = person_name
end if