pb在数据库中存取blob类型数据

最新推荐文章于 2023-07-25 09:49:40 发布

转载最新推荐文章于 2023-07-25 09:49:40 发布 · 2.4k 阅读

PB 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了如何使用PowerBuilder进行文件的读取与写入操作，并详细展示了如何将文件数据保存到数据库及从数据库中读取文件数据的过程。涉及文件对话框、文件读写函数、数据库插入与更新操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、首先要写好两个函数，分别是文件的读取与写入：
参考 pb中读写文件的函数：http://blog.youkuaiyun.com/xys_777/archive/2010/08/04/5787833.aspx

二、保存文件

li_value = GetFileOpenName("选择文件",ls_docname,ls_named)
IF li_value = 1 THEN
    if f_readfile(lb_fj,ls_docname)=1 then
        ll_picid=gf_getid('T_Picture') //这是一个得到新增id的函数
        //需要先插入这条数据的其他信息
        INSERT INTO T_Svt_Picture ( PictureId,PicName,detaillogId )
        VALUES ( :ll_picid,:ls_named, :ld_detaillogId);
        if sqlca.sqlcode<0 then
            rollback;
            messagebox('系统提示','数据保存失败')
            return
        end if
        //再用updateblob更新blob字段
        updateblob T_Picture set PicBlob=:lb_fj where pictureid=:ll_picid;
        if sqlca.sqlcode<0 then
            rollback;
            messagebox('系统提示','保存失败')
            return
        else
            commit;
        end if
    end if
end if

三、打开文件

//用selectblob将blob类型数据赋值给blob变量 lb_fj
selectblob PicBlob into :lb_fj from T_Picture where pictureid=:ll_picid;
if sqlca.sqlcode<>0 then
    messagebox('系统提示','资料读取失败')
    return
end if
//需要将文件重新在磁盘里保存出来，需要在之前存数据库是记录文件名 dw_1.object.picname
ls_docname='c:/worktemp'
if not DirectoryExists(ls_docname) then CreateDirectory(ls_docname)
ls_docname=ls_docname+dw_1.object.picname[row]
if f_writefile(lb_fj,ls_docname)=1 then
    //调用api打开文件
    if ShellExecuteA(Handle(parent),ls_null,ls_docname,ls_null,ls_null, 1) > 32 then
        return
    else
        messagebox('系统提示','系统打开文件出错')
        return
    end if
end if


//api定义
Function long ShellExecuteA (ulong hwnd, string lpOperation, string lpFile,string lpParameters, string lpDirectory, long nShowCmd) library "shell32.dll"