vb 保存图片到数据库
来源:互联网 发布:数字域名最贵的是哪些 编辑:程序博客网 时间:2024/05/22 05:02
'读数据到二进制字段
Public Sub ReadFromBLOB(filed As ADODB.Field, Filen As String)
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
'传送块单位大小
Const ChunkSize As Integer = 16384
Dim MediaTemp As String
Dim lngOffset As Long
Dim lngTotalSize As Long
Dim strChunk As String
Dim MediaID As Long
On Error Resume Next
DataFile = FreeFile
Open Filen For Binary Access Write As DataFile
lngTotalSize = filed.ActualSize
Chunks = lngTotalSize / ChunkSize
Fragment = lngTotalSize Mod ChunkSize
'ReDim Chunk(ChunkSize)
ReDim Chunk(Fragment)
Chunk() = filed.GetChunk(ChunkSize)
Put DataFile, , Chunk()
lngOffset = lngOffset + ChunkSize
Do While lngOffset < lngTotalSize
Chunk() = filed.GetChunk(ChunkSize)
Put DataFile, , Chunk()
lngOffset = lngOffset + ChunkSize
Loop
Close DataFile
End Sub
'写数据到二进制字段
Public Sub SaveToBLOB(fieldBLOB As ADODB.Field, filename As String)
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
'传送块单位大小
Const ChunkSize As Integer = 16384
Dim MediaTemp As String
Dim lngOffset As Long
Dim lngTotalSize As Long
Dim strChunk As String
Dim MediaID As Long
DataFile = FreeFile
Open filename For Binary Access Read As DataFile
Fl = LOF(DataFile) ' 文件中数据长度
If Fl = 0 Then
Close DataFile
Else
Chunks = Fl / ChunkSize
Fragment = Fl Mod ChunkSize
'If Chunks <= 0 Then Chunks = 1
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
fieldBLOB.AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
fieldBLOB.AppendChunk Chunk()
Next i
Close DataFile
End If
End Sub
- vb 保存图片到数据库
- vb 保存图片到数据库
- vb 图片分割并保存到数据库
- VB保存图片文件到数据库
- VB读取本地图片并保存到数据库中
- 保存图片到数据库
- 保存图片到数据库
- 保存图片到数据库
- 保存图片到数据库
- 保存图片到数据库
- 保存图片到数据库
- 保存图片到数据库
- 图片保存到数据库
- 图片保存到数据库
- 图片保存到数据库
- 图片保存到数据库
- 保存图片到数据库
- JSP保存图片到数据库
- 'daemonize' is not a member of 'ACE'
- 计算机属性(名称和所属域、组)无法修改(灰色)的问题解决
- eval()函数
- 用C/gsoap实现WebService
- "could not create the java virtual machine"启动eclipse报错
- vb 保存图片到数据库
- 视频与图像RGB/YUV格式详解
- 100112 学会与同事相处三十条规则
- Delphi2009中的几处问题
- 使用组件和对象
- 找asp.net方面的师傅
- C# 创建Windows 服务程序
- vb 保存图片到数据库
- ASP 内建对象