CDN加速镜像 | 设为首页 | 加入收藏夹
当前位置: 首页 资源下载 源码下载 数据库系统 SQL Server数据库

文件名称:读写SQL中的image字段.zip

介绍说明--下载内容来自于网络,使用问题请自行百度

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

(系统自动生成,下载前可以参看下载内容)

下载文件列表

压缩包 : 读写SQL中的image字段.zip 列表
读写SQL中的image字段/Class1.cls
读写SQL中的image字段/Form1.frm
读写SQL中的image字段/工程1.vbp
读写SQL中的image字段/工程1.vbw
读写SQL中的image字段/

相关说明

  • 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
  • 搜珍网是交换下载平台,只提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。更多...
  • 本站已设置防盗链,请勿用迅雷、QQ旋风等下载软件下载资源,下载后用WinRAR最新版进行解压.
  • 如果您发现内容无法下载,请稍后再次尝试;或换浏览器;或者到消费记录里找到下载记录反馈给我们.
  • 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
  • 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.

相关评论

暂无评论内容.

发表评论

*快速评论: 推荐 一般 有密码 和说明不符 不是源码或资料 文件不全 不能解压 纯粹是垃圾
*内  容:
*验 证 码:
搜珍网 www.dssz.com