LotusScript ODBC和字符串Data，右截断错误

Question

我有以下代码，其中我收到错误＆＃34;字符串数据，右截断＆＃34;在线adoCmd.Execute。 我还附加了表数据类型。实际上我正在尝试将附件从本地驱动器移动到二进制格式的SQL。

任何人都可以指导这里有什么问题。目标文件是.PNG类型。

Sub CreateTableRecord(keyaudit As String, Attachmentfound As Boolean, vendorname As String, VndNO As String)
        Dim adoStream               As Variant 
        Dim adoCmd                  As Variant 
        Dim strFilePath             As String
        Dim adoCon                  As Variant 
        Dim para As Variant 
        Const adTypeBinary = 1
        Const adCmdText = 1
    '   Const strDB                 As String = "SQLDB"  'Database name
    '   Const strServerName         As String = "DESKTOP-LEJN6P1"  'Server Name
        Dim strDB As String
        Dim strServerName As String 
        strServerName = "DESKTOP-LEJN6P1"
        strDB ="SQLDB"
        Dim strDir As String 

        Set adoCon = CreateObject("ADODB.Connection")
        Set adoStream = CreateObject("ADODB.Stream")
        Set adoCmd = CreateObject("ADODB.Command")
        Set para=CreateObject("ADODB.Parameter")

        '--Open Connection to SQL server
        adoCon.CursorLocation = 3
        adoCon.open "SQLLocalConnection", "USer1", ""
        '----
        If Attachmentfound Then
            strDir = "C:\Lotus Notes work\AttachmentExtracted\"
            Dim file As Variant
            If Right(strDir, 1) <> "\" Then strDir = strDir & "\"
            file = Dir(strDir)
            While (file <> "")

                With adoCmd
                    '.ActiveConnection = adoCon
                    adoStream.Type = adTypeBinary
                    adoStream.Open
                    adoStream.LoadFromFile strDir + file
                    MsgBox strDir + file 'It fails if file is open
                    .CommandText = "INSERT INTO VendorFIles VALUES (?,?,?)" ' Query
                    .CommandType = adCmdText

                    '---adding parameters
                    .Parameters.Append .CreateParameter("UniqueKey", 200, 1, 20, keyaudit)
                    '  Set uniquekeyval.Value = Keyaudit
                    'MsgBox adoStream.Size
                    'MsgBox  adoStream.Read
                    .Parameters.Append .CreateParameter("FileName", 200, 1, 200, file)
                    .Parameters.Append .CreateParameter("VendorAtt", 204, 1, adoStream.Size, adoStream.Read)
                    '---
                End With

                Kill strDir + file
                'do not change below this line
                file = Dir
            Wend
            Set adoCmd.ActiveConnection = adoCon
            call adoCmd.Execute
            adoCon.Close
        End If
        Call updateVendorData(keyaudit, vendorname, VndNO)
end sub