PB怎么将txt文本存储到数据库中_PB

PB如何将txt文本存储到数据库中
PB如何将txt文本存储到数据库中
------解决方案--------------------

引用:

PB如何将txt文本存储到数据库中

用blob字段来实现，updateblob来实现更新，selectblob实现读取
------解决方案--------------------
int   fh

blob  Emp_id_pic

fh = FileOpen("c:\emp_100.txt", StreamMode!)

IF fh <> -1 THEN

        FileRead(fh, emp_id_pic)

        FileClose(fh)
       sqlca.autocommit=true
        UPDATEBLOB Employee SET emp_pic = :Emp_id_pic
        WHERE Emp_num = 100 ;
        sqlca.autocommit=false
END IF

IF sqlca.SQLNRows > 0 THEN

        COMMIT  ;

END IF