用ADO参数查询添加OLE字段值出错[已解决]

t小宝

表1中有OLE字段oo，以下代码用ADO的参数查询向oo字段添加一个二进制文件，
在 prmByRoyalty.AppendChunk ByteData() 句出错，望各路高手指点。

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)
    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)
        cmdByRoyalty.Parameters.Append prmByRoyalty
        prmByRoyalty.AppendChunk ByteData()            ' 出错,
        Set .ActiveConnection = CurrentProject.Connection
        .Execute
    End With
   
End Function

问题已经解决，是ReDim ByteData(FileLength) 多声明了一个字节，改为ReDim ByteData(FileLength-1)
，完整代码见4楼。

t小宝

鱼儿游游 发表于 2011-12-9 23:33
binary是定长的数组,应该用text,image等好些。

AppendChunk 好象不支持binary类型。

字段类型没有错，问题已经找到，是ReDim ByteData(FileLength) 多声明了一个字节，改为ReDim ByteData(FileLength-1)
就可以了。
正确的代码如下：

1. Public Function AppendFile()
   
2. 
   
3.     Dim cmdByRoyalty As ADODB.Command
   
4.     Dim prmByRoyalty As ADODB.Parameter
   
5.     Dim FileLength As Long
   
6.     Dim ByteData() As Byte
   
7. 
   
8.     Open "C:\test.rar" For Binary Access Read Lock Write As #1
   
9.     FileLength = LOF(1)
   
10.     ReDim ByteData(FileLength-1)
    
11.     Get #1, , ByteData()
    
12.     Close #1
    
13. 
    
14.     Set cmdByRoyalty = New ADODB.Command
    
15.     With cmdByRoyalty
    
16.         .CommandText = "PARAMETERS oleA LongBinary;INSERT INTO 表1 ( oo ) VALUES([oleA]);"
    
17.         .CommandType = adCmdText
    
18.         Set prmByRoyalty = .CreateParameter("oleA", adLongVarBinary, adParamInput, FileLength)
    
19.         .Parameters.Append prmByRoyalty
    
20.         prmByRoyalty.AppendChunk ByteData()            
    
21.         Set .ActiveConnection = CurrentProject.Connection
    
22.         .Execute
    
23.     End With
    
24.    
    
25. End Function

复制代码

鱼儿游游

binary是定长的数组,应该用text,image等好些。

AppendChunk 好象不支持binary类型。

xuwenning

谢谢分享
学习了