我快完了,我作的项目是用pb6.5显示员工信息中的图片,该表dry(SQL Server7.0)中存储图片的字段是dryzp(image),我在pb7.0加入显示都很好,而在6.5却怎么也加不进去,但是如何在7.0在某个记录加入了图片,就可以在6.5下显示和修改,怪!我都傻了,我觉得程序没什么错呀,请看下面代码,我是用ole控件显示bmp图片,请指教,如何有好的代码(Pb6.5),请发到:wonry@163.com,谢谢!!!!
1. 加入图片

blob lb_object
string ls_path,ls_filename

GetFileOpenName("select file to open",ls_path,ls_filename)
If ls_filename ="" Then return
If ole_1.insertfile(ls_path) = 0 Then
lb_object = ole_1.objectdata
End If

SQLCA.AutoCommit = True
UpdateBLOB abc set dryzp = :lb_object
WHERE dry_n= "1";
if SQLCA.SQLCode = -1 then
MessageBox("SQL error",SQLCA.SQLErrText,Information!)
rollback using sqlca;
return
end if
commit using sqlca;
sqlca.autocommit = FALSE

2.显示图片
LOB lb_pic
SELECTBLOB dryzp INTO :lb_pic
FROM abc
WHERE dry_n = "1";

if SQLCA.SQLCode = -1 then
MessageBox("SQL error",SQLCA.SQLErrText,Information!)
return
else
ole_2.objectdata = lb_pic
end if