Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
'*************************************************************
Public Function ImportPhoto(sPicFile As String, sEmpID As String) As String
Dim rcsPic As ADODB.Recordset
Dim sMax As String
Dim sInsertPic As String
Dim rcsTemp As New Recordset
Dim sTempSQL As String
If Trim(sPicFile) = "" Then Exit Function
On Error GoTo ErrorImportPhoto
Set rcsPic = New ADODB.Recordset
rcsPic.CursorType = adOpenKeyset
rcsPic.LockType = adLockOptimistic '
rcsPic.Open "T_PPICTURE ", AstDbCnt, , , adCmdTable 'astdbcnt 替换为你连接方式
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile sPicFile
rcsPic.AddNew
rcsPic.Fields("PERS").Value = sEmpID
rcsPic.Fields("PIC").Value = mstream.Read
rcsPic.Update
mstream.Close
Set mstream = Nothing
rcsPic.Close
Set rcsPic = Nothing
Exit Function
ErrorImportPhoto:
ImportPhoto = "FALSE"
End Function
'注意要将 AstDbCnt 替换为你的oracle 连接
Public Function DisplayPhoto(oPicture As PictureBox, sPicID As String)
Dim rcsDisplay As ADODB.Recordset
Set rcsDisplay = New ADODB.Recordset
Dim mstream As ADODB.Stream
Dim mc0 As String
rcsDisplay.Open "Select * from T_PPICTURE where PERS = '" & sPicID & "'", AstDbCnt, adOpenKeyset, adLockOptimistic
If rcsDisplay.EOF Then
oPicture.Picture = LoadPicture()
Exit Function
End If
If IsNull(rcsDisplay.Fields("PIC").Value) Then
oPicture.Picture = LoadPicture()
Exit Function
End If
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rcsDisplay.Fields("PIC").Value
strclose = App.Path & "\AstPhoto_temp"
DeleteFile (strclose)
mstream.SaveToFile strclose
mstream.Close
Set mstream = Nothing
rcsDisplay.Close
Set rcsDisplay = Nothing
oPicture.Picture = LoadPicture(strclose)
End Function
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=IWP2;Initial Catalog=T213;User Id=sa;Password=sql123"

Set rs = New ADODB.Recordset
rs.Open "Select * from QB_T213PMPD where DT=2006080818", cn, adOpenKeyset, adLockOptimistic

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("MPI").Value
mstream.SaveToFile "P:\T213_data\ShowMPI\T213_3.mpi", adSaveCreateOverWrite

rs.Close
cn.Close

End Sub

Private Sub Command2_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=;Initial Catalog=pubs;User Id=;Password="

Set rs = New ADODB.Recordset
rs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimistic

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile ""
rs.Fields("logo").Value = mstream.Read
rs.Update

rs.Close
cn.Close

End Sub