vb 保存图片到数据库
'读数据到二进制字段
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()
&n
相关文档：
webbrowser 不能收到SendMessage的消息
主要是因为1webbrowser 的句柄找不到。经过努力搜索，终于解决了。做个记录.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ......
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Boolean
End Type
Dim lang As String
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByV ......
前阵子写了一个目录名/文件名的获取小程序，这两天居然又被名称批量修改麻烦了一下，所以再写一个吧。
注意：你要是只想写一次的话，用批处理更方便。只有多次使用的情况下，自己写程序才有意义。
VB中进行名称修改很容易,用到的就是Name这个函数，用法如下：
Name OldName As NewName，它不仅可以改写名称，而且可以更� ......
近日分析一VB做的报表，由于对VB只是了解，谈不上熟练，不过对其水晶报表倒有点认识，之前也做过三两个小的报表 ，加之对PB中的报表了解非常熟悉，当时信心蛮大的。
先是看了DataReport，用于绘制报表格式。再来看DataEnvironment，用于定义获取的数据列。将DataReport与DataEnviro ......
'读数据到二进制字段
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
Di ......
