VB把文件从IMAGE字段中读到文件中。Sub loadpic(IndexNumber As Long)
Dim DcnNWind As New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
DcnNWind.CursorLocation = adUseClient
DcnNWind.Open "Provider=SQLOLEDB.1;Integrated Security=SSI;Persist Security Info=False;Initial Catalog=CUSTOM;Data Source=SERVER"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "CustomInfo", DcnNWind, , adCmdTable
rs.Move (IndexNumber)
Call BlobToFile(rs.Fields("Image"), "c:\windows\temp\tmp.bmp", rs.Fields("Image").ActualSize)
End SubPrivate Sub BlobToFile(fld As ADODB.Field, FileName As String, Optional ChunkSize As Long )
Dim fnum As Integer, bytesLeft As Long, bytes As Long
Dim tmp() As Byte
If (fld.Attributes And adFldLong) = 0 Then
Err.Raise 1001, , "Field doesn't support the GetChunk method."
End If
If Dir$(FileName) <> "" Then Kill FileName
fnum = FreeFile
Open FileName For Binary As fnum
bytesLeft = fld.ActualSize
Do While bytesLeft
bytes = bytesLeft
If bytes > ChunkSize Then bytes = ChunkSize
tmp = fld.GetChunk(bytes)
Put #fnum, , tmp
bytesLeft = bytesLeft - bytes
Loop
Close #fnum
End Sub
临时文件,以下是把图片生成临时文件的,不知道有没有其他方法不生成临时文件?但要能打开这个文件!
Dim DcnNWind As New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
DcnNWind.CursorLocation = adUseClient
DcnNWind.Open "Provider=SQLOLEDB.1;Integrated Security=SSI;Persist Security Info=False;Initial Catalog=CUSTOM;Data Source=SERVER"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "CustomInfo", DcnNWind, , adCmdTable
rs.Move (IndexNumber)
Call BlobToFile(rs.Fields("Image"), "c:\windows\temp\tmp.bmp", rs.Fields("Image").ActualSize)
End SubPrivate Sub BlobToFile(fld As ADODB.Field, FileName As String, Optional ChunkSize As Long )
Dim fnum As Integer, bytesLeft As Long, bytes As Long
Dim tmp() As Byte
If (fld.Attributes And adFldLong) = 0 Then
Err.Raise 1001, , "Field doesn't support the GetChunk method."
End If
If Dir$(FileName) <> "" Then Kill FileName
fnum = FreeFile
Open FileName For Binary As fnum
bytesLeft = fld.ActualSize
Do While bytesLeft
bytes = bytesLeft
If bytes > ChunkSize Then bytes = ChunkSize
tmp = fld.GetChunk(bytes)
Put #fnum, , tmp
bytesLeft = bytesLeft - bytes
Loop
Close #fnum
End Sub
临时文件,以下是把图片生成临时文件的,不知道有没有其他方法不生成临时文件?但要能打开这个文件!
解决方案 »
- 请教!请教,关于有数据字典的表查询和修改?
- 文件复制控制
- 什么是VBA?哪里有资料。
- 怎样访问到远程计算机的文件?高手,拜拖了.....
- 在标准对话框中添加一个按钮后,如何使对话框处理按钮的消息?(恭请zyl910及其他高人出手!))
- 请教大虾,在VB的picturebox中画带有刻度值的坐标系
- windows common control 控件里的tabscrip怎么用?
- 请教高手,特难!!!
- 開發過企業會計系統的高手請進,小生有禮了!你要多少份我一定給,(<=我的剩余份)
- vb中将图标放如托盘内的消息回调函数如何指向自己定义函数。
- 在几台电脑上安装成功并正常使用的程序,现在出了新的安装问题。请高手进来看看。
- 在某一个事件中这样来执行事务可行吗???
添加Image控件用来显示图片,设置它的DataSource和DataField属性。
就可以显示你要的数据了,什么代码也不用。