如何用VB6读写数据库中的图片

t Name, Picture, FileLength FROM People", m_DBConn  

rs.AddNew  
rs!Name = person_name  
rs!FileLength = file_length  

ReDim bytes(BLOCK_SIZE)  
For block_num = 1 To num_blocks  
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  
End Sub