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

ong  
Dim hgt As Single  

picPerson.Visible = False  
Screen.MousePointer = vbHourglass  
DoEvents  

'' Get the record.  
Set rs = m_DBConn.Execute("SELECT * FROM People WHERE Name=''" & _  
lstPeople.Text & "''", , adCmdText)  
If rs.EOF Then Exit Sub  

'' Get a temporary file name.  
file_name = TemporaryFileName()  

'' Open the file.  
file_num = FreeFile  
Open file_name For Binary As #file_num  

'' Copy the data into the file.  
file_length = rs!FileLength  
num_blocks = file_length / BLOCK_SIZE  
left_over = file_length Mod BLOCK_SIZE  

For block_num = 1 To num_blocks  
bytes() = rs!Picture.GetChunk(BLOCK_SIZE)  
Put #file_num, , bytes()  
Next block_num  

If left_over > 0 Then  
bytes() = rs!Picture.GetChunk(left_over)  
Put #file_num, , bytes()  
End If  

Close #file_num  

'' Display the picture file.  
picPerson.Picture = LoadPicture(file_name)  
picPerson.Visible = True  

Width = picPerson.Left + picPerson.Width + Width - ScaleWidth  
hgt = picPerson.Top + picPerson.Height + Height - ScaleHeight  
If hgt < 1440 Then hgt = 1440  
Height = hgt  

Kill file_name  
Screen.MousePointer = vbDefault  
End Sub  

Private Sub mnuRecordAdd_Click()  
Dim rs As ADODB.Recordset  
Dim person_name As String  
Dim file_num As String  
Dim file_length As String  
Dim bytes() As Byte  
Dim num_blocks As Long  
Dim left_over As Long  
Dim block_num As Long  

person_name = InputBox("Name")  
If Len(person_name) = 0 Then Exit Sub  

dlgPicture.Flags = _  
cdlOFNFileMustExist Or _  
cdlOFNHideReadOnly Or _  
cdlOFNExplorer  
dlgPicture.CancelError = True  
dlgPicture.Filter = "Graphics Files|*.bmp;*.ico;*.jpg;*.gif"  

On Error Resume Next  
dlgPicture.ShowOpen  
If Err.Number = cdlCancel Then  
Exit Sub  
ElseIf Err.Number <> 0 Then  
MsgBox "Error " & Format$(Err.Number) & _  
" selecting file." & vbCrLf & Err.Description  
Exit Sub  
End If  

'' Open the picture file.  
file_num = FreeFile  
Open dlgPicture.FileName For Binary Access Read As #file_num  

file_length = LOF(file_num)  
If file_length > 0 Then  
num_blocks = file_length / BLOCK_SIZE  
left_over = file_length Mod BLOCK_SIZE  

Set rs = New ADODB.Recordset  
rs.CursorType = adOpenKeyset  
rs.LockType = adLockOptimistic  
rs.Open "Selec