cn.CursorLocation = adUseServer
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM TABLENAME WHERE ID = '12'", cn, adOpenDynamic, adLockOptimistic
rs.Fields("PHOTO") = stmCon.Read
rs.Update
stmCon.Close
Set stmCon = Nothing
End Sub
'打开
Private Sub Command2_Click()
Dim stmCon As New Stream
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM TABLENAME", cn, adOpenForwardOnly, adLockReadOnly
If Not rs.EOF Then
stmCon.Type = adTypeBinary
stmCon.Open
stmCon.Write (rs.Fields("PHOTO").Value)
stmCon.SaveToFile "C:\aa.bmp", adSaveCreateOverWrite
End If
Image1.Picture = LoadPicture("C:\aa.bmp")
End Sub
Private Sub Command3_Click()
rs.Open "SELECT * FROM TEST", cn, 3, 3
End Sub
Exit Sub
Errhandle:
MsgBox Err.Description, vbExclamation
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub