module相片.bas

来自「传销工资管理 请验证一下哈」· BAS 代码 · 共 22 行

Attribute VB_Name = "Module相片"
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Sub SavePictureToAdodc(rs As ADODB.Recordset, ByVal FileName As String)
    Dim Length As Long, f As Integer
    Length = FileLen(FileName)
    
    ReDim bArray(Length + 12) As Byte, bArray2(Length) As Byte
    bArray(0) = &H6C: bArray(1) = &H74
    RtlMoveMemory bArray(4), Length, 4
    
    f = FreeFile
    Open FileName For Binary As #f
    Get #f, , bArray2
    Close #1
    
    RtlMoveMemory bArray(8), bArray2(0), Length
    
    rs("相片").AppendChunk bArray
End Sub