SQLCA.AutoCommit = true
SelectBlob PROGTAM_BODY
Into :lb_filebody
From WL_PROGRAM_VERSION
Where PROGRAM_NAME = :as_sysname
and PROGRAM_VERSION = :as_version
and PROGRAM_FILE_NAME = :as_filename USING sqlca;
If sqlca.SQLCode = -1 Then
MessageBox(gs_sys_title,'sqlerror='+ String(sqlca.SQLErrText))
RETURN FALSE
End If
SQLCA.AutoCommit = false
ll_len = len(lb_filebody)
messagebox('--'+as_filename,String(ll_len))
------解决方案--------------------
在pb11.5安装目录下找到pb9db115.ini，并找到如下段
[Microsoft SQL Server]
PBCatalogOwner='dbo'
PBSystemOwner='sys'
PBSyntax='MS_SQLSERVER_SYNTAX'
PBDateTime='MSSQLSERVER_DATETIME'
PBFunctions='MSSQL_FUNCTIONS'
PBSpecialDataTypes='SYBASE_SPECIALDATATYPES'
PBObjectIDs='YES'
PBMaxBlobSize='32767'
PBMaxTextSize='32767'
将上面的PBMaxBlobSize与PBMaxTextSize都屏蔽掉
;PBMaxBlobSize='32767'
;PBMaxTextSize='32767'