pb 如何存取大于255的字符串

2010-07-28 05:21:19 396 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

环境：PowerBuilder 9.0 + SqlSerever 2000
描述：现在数库表中有一字段暂叫做sjly_sql char(2000) 但是在存储的时候，如果字符串大于255就会自动截断、
因为考虑到频率读写很大、不想用大文本类型、不知哪位高人指点一二。

...全文

SAP 凭证分割功能 - 概述&系统配置 - Chapter01/02 为何要进行凭证拆分（分割）？在启用凭证分割之前, 在财务凭证在过账时会自动带出默认的利润中心，这利润中心一般是从其他对象派生出来的（比如从成本中心、WBS 或资产负债表科目定义默认的利润中心等），但是某些情况下的财务过账是不会派生出利润中心的，比如说应收或者应付。如果一笔销售凭证上有两个行项目,10 行对应的成品物料 A 的利润中心为 TPCA-100；公司项目Dr/Cr科目金额利润中心10001Dr应收账款20002Cr库存商品A1500TPCA-1003Cr。阅读详情

xiaoping04408

数据库相关 754 成员 12,762 内容

+ 关注 + 加入社区

切换为时间正序

wag_enu 2010-08-03

打赏
举报

我 mark 没有呢？

xiaoping04408 2010-08-03

打赏
举报

不错！这个方法更好！比较简单

da21 2010-07-30

打赏
举报

可在PB设数据库连接那里设置下

fengxiaohan211 2010-07-30

打赏
举报

威武呵呵学习了啊

xiaoping04408 2010-07-30

打赏
举报

[Quote=引用 1 楼 xys_777 的回复:]
PB对数据库字段varchar类型255的限制问题
http://blog.csdn.net/xys_777/archive/2009/07/03/4317852.aspx
[/Quote]
参考永生给的提示做了个函数（完整性还不太好）
如下：



global function string f_getsjlysql (string asbbbh, string assh, string aszcbz, string astype)

end prototypes



global function string f_getsjlysql (string asbbbh, string assh, string aszcbz, string astype);//参数说明：

//asbbbh :报表编号

//aszcbz :主从标识

//astype :类型

//返回值：string sql 

//ADD 平忠强

//最大可读取1000个字符 32

string ls_sql[]

string vs_sql

string vs_return 

integer i

vs_sql = ""

for i = 1 to 32

	 vs_sql = " select substring(sjly_sql,( "+string(i)+" -1)*250 + 1,8000/32)  from ldpsjly where sjly_bbbh = '" + asbbbh + "' and sjly_sh   = '" + assh + "' and sjly_zcbz = '" + aszcbz + "' and sjly_type = '" + astype + "'"

	 declare get_cursor dynamic cursor for sqlsa;

	 prepare sqlsa from :vs_sql;

	 if sqlca.sqlcode <> 0 then 

		 return ""

	 end if 

	 open get_cursor;

	 fetch get_cursor into :ls_sql[i];

	 

	 CLOSE get_cursor;

next



for i = 1 to UpperBound(ls_sql[])

	 vs_return = vs_return + ls_sql[i]

next



return vs_return

end function

永生天地 2010-07-30

打赏
举报

再看这个，我用 cast(column as text) 也可以
PB对数据库字段varchar类型255的限制问题
http://blog.csdn.net/xys_777/archive/2009/07/03/4317852.aspx

// Profile bh_salvation
SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = "master"
SQLCA.LogPass = 'sa'
SQLCA.ServerName = "data"
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect;

string ls_c
select cast(unit as text) into :ls_c from tb;
messagebox(string(len(ls_c)),ls_c)
select unit into :ls_c from tb;
messagebox(string(len(ls_c)),ls_c)