PDF文件到varbinarymax存储过程

问题描述

我需要将PDF文件存储到varbinary（max），如何上传pdf文件。下面是存储过程的代码。 @vbin_Document enter image description here

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open ConnectionString_ 
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = objConnection 
cmd.CommandType = adCmdstoredProc
cmd.CommandText = "[Documents_Add]"
cmd.parameters.append cmd.createParameter("@str_NameByFacility",adVarChar,adParamInput,25,NameByFacility)
cmd.parameters.append cmd.createParameter("@str_ScanCode",70,ScanCode)
cmd.parameters.append cmd.createParameter("@vbin_Document",adVarBinary,-1,Document)
cmd.parameters.append cmd.createParameter("@str_DocumentType",100,DocumentType)
cmd.parameters.append cmd.createParameter("@str_NodeName",NodeName)
cmd.parameters.append cmd.createParameter("@str_ApplicationName",ApplicationName)
cmd.parameters.append cmd.createParameter("@str_UserName",UserName)
cmd.parameters.append cmd.createParameter("@bit_isDone",adInteger,adParamReturnValue)
cmd.parameters.append cmd.createParameter("@int_ErrorCode",adParamReturnValue)
cmd.parameters.append cmd.createParameter("@bint_ErrorID",adParamReturnValue)
cmd.execute 

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）