// 将文件资料转换为BLOB数据
ll_FileLen = FileLength( ls_FileObject )
li_FileNum = FileOpen( ls_FileObject, StreamMode!, Read!, LockRead! )
IF ll_FileLen > 32765 THEN
if Mod(ll_filelen, 32765) = 0 then
li_Loops = ll_FileLen / 32765
else
li_Loops = (ll_FileLen / 32765) + 1
end if
ELSE
li_Loops = 1
END IF
FOR i = 1 TO li_Loops
ll_FileLen = FileRead( li_FileNum, lb_Temp )
lb_Object = lb_Object + lb_Temp
NEXT
FileClose( li_FileNum )
// 将BLOB数据存储到数据库中
SQLCA.AutoCommit = True //sql server 必须有的
If ib_IsBasePic Then //基本图像
UPDATEBLOB asset_picture
SET asset_picture = :lb_Object
WHERE asset_id = :ll_ObjectID ;
Else
UPDATEBLOB user_file
SET file_picture = :lb_Object
WHERE file_id = :ll_ObjectID ;
End If
SQLCA.AutoCommit = False
if Sqlca.SQLNRows > 0 then
Commit using Sqlca;
else
Rollback using Sqlca;
MessageBox(GS_MsgBoxTitle, "文件资料存储失败!", Exclamation!)
RETURN 0
end if
取数应用时,则将程序反转即可。
----------------------------------------------------------------------
此外,若还不行,则是DBMS的问题,用ODBC或MSS Microsoft SQL Server 6.x分别连接试试。