用ADO参数查询添加OLE字段值

时　间:2011-12-10 10:23:55
作　者:t小雨   ID：4598  城市：柳州
摘　要:用ADO参数查询添加OLE字段值
正　文:

Public Function AppendFile()

    Dim cmdByRoyalty As ADODB.Command
    Dim prmByRoyalty As ADODB.Parameter
    Dim FileLength As Long
    Dim ByteData() As Byte

    Open "C:\test.rar" For Binary Access Read Lock Write As #1
    FileLength = LOF(1)
    ReDim ByteData(FileLength-1)
    Get #1, , ByteData()
    Close #1

    Set cmdByRoyalty = New ADODB.Command
    With cmdByRoyalty
        .CommandText = "PARAMETERS oleA LongBinary;Insert INTO 表1 ( oo ) VALUES([oleA]);"
        .CommandType = adCmdText
        Set prmByRoyalty = .CreateParameter("oleA", adLongVarBinary, adParamInput, FileLength )
        .Parameters.Append prmByRoyalty
        prmByRoyalty.AppendChunk ByteData()           
        Set .ActiveConnection = CurrentProject.Connection
        .Execute
    End With
   
End Function