/// 系统工具，查询某个表的值所在的字段
Class User.PTFV Extends %Persistent [ Final ]
{
/// 表名
Property TbNme As %String(MAXLEN = "");
/// 字段名
Property FildNme As %String(MAXLEN = "");
/// 字段描述
Property FildDesc As %String(MAXLEN = "");
/// 值
Property Value As %String(MAXLEN = "");
/// 列序号
Property FildNo As %String;
/// 表名-%id
Property TbID As %String(MAXLEN = "");
ClassMethod Global(TbNme As %String = "", Condition As %String = "", StopSubscript As %String = "") As %Boolean [ SqlName = PTFV, SqlProc ]
{
s TbNme=$tr(TbNme,$c(0),"")
q:TbNme="" $$$OK
s:TbNme'["." TbNme="SQLUSER."_TbNme
;s:Condition'["'" Condition=$p(Condition,"=")_"='"_$p(Condition,"=",2)_"'"
#dim val as %String = ""
k ^||User.PTFVD
s sql="SELECT %id As TbID,* FROM "_TbNme_" where "_Condition
s rset=##class(%ResultSet).%New("%DynamicQuery:SQL")
s sc=rset.Prepare(sql)
s rset.RuntimeMode="1"
i $$$ISERR(sc)
{ d DisplayError^%apiOBJ(sc)
q $$$OK
}
s sc=rset.Execute()
i $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) q $$$OK
While rset.Next(.sc) {
s TbID=rset.Data("TbID")
s FildNme=""
f s FildNme=$o(rset.Data(FildNme)) q:FildNme="" d
.q:FildNme="TbID"
.s (FildDesc,Value,FildNo)=""
.s Value=rset.Data(FildNme)
.s ^||User.PTFVD($i(^||User.PTFVD))=$lb(TbNme,FildNme,FildDesc,Value,FildNo,TbID)
}
q $$$OK
}
Storage Default
{
TbNmeFildNmeFildDescValueFildNoTbID^||User.PTFVDPTFVDefaultData^||User.PTFVD^||User.PTFVI^||User.PTFVS%Library.CacheStorage
}
}
这个是的代码，我希望能得到 FildDesc和FildNo的值
转到文章
很老了，为啥还要用它呢，在一些工作很久的开发或者实施那 应该是有的
转到文章
如果 用JAVA的话，感觉这样虽说是实现了，但是搞复杂了，如果java提供web服务，m来调用，这样就是最简单的。
转到文章
主要是我不知道应该需要哪些资源才能达到我需要的效果
转到文章
你需要检查下你使用的jdk版本
转到文章
这个只是调用了其他的服务，和iris本身没啥关系，期望iris 本身的能力
转到文章
我只遇到是网络有问题的情况。
转到文章
如果你是想把sql语句作为整体加密，然后在cache执行的时候解密出来，这样操作的话，加密基本都行吧
转到文章
谢谢
转到文章
请问下 如果key小于16位，应该如何处理？加密出来的效果和java不一样 ，如果是16位就是一样的
转到文章
期待
转到文章
赞赞赞
转到文章
对于超时，有一种处理方式：如果服务超时了，那把本次请求的消息id返回，并返回超时，下次请求的时候，带入上次得到的请求返回的消息id，服务通过消息id查询该id对应的返回。
转到文章
请问下 如何测试出，所有bs，bp,bo 各应该设置为多少，才是最大化的利用cpu资源
转到文章
你把这个复制到类里面格式化下就看到了，我不太会编辑这个
转到文章
xml→对象→sql语句，感觉还可以，效率也还行。主要是这样可以通用。
转到文章
谢谢！
转到文章
/// 系统工具，查询某个表的值所在的字段 Class User.PTFV Extends %Persistent [ Final ] { /// 表名 Property TbNme As %String(MAXLEN = ""); /// 字段名 Property FildNme As %String(MAXLEN = ""); /// 字段描述 Property FildDesc As %String(MAXLEN = ""); /// 值 Property Value As %String(MAXLEN = ""); /// 列序号 Property FildNo As %String; /// 表名-%id Property TbID As %String(MAXLEN = ""); ClassMethod Global(TbNme As %String = "", Condition As %String = "", StopSubscript As %String = "") As %Boolean [ SqlName = PTFV, SqlProc ] { s TbNme=$tr(TbNme,$c(0),"") q:TbNme="" $$$OK s:TbNme'["." TbNme="SQLUSER."_TbNme ;s:Condition'["'" Condition=$p(Condition,"=")_"='"_$p(Condition,"=",2)_"'" #dim val as %String = "" k ^||User.PTFVD s sql="SELECT %id As TbID,* FROM "_TbNme_" where "_Condition s rset=##class(%ResultSet).%New("%DynamicQuery:SQL") s sc=rset.Prepare(sql) s rset.RuntimeMode="1" i $$$ISERR(sc) { d DisplayError^%apiOBJ(sc) q $$$OK } s sc=rset.Execute() i $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) q $$$OK While rset.Next(.sc) { s TbID=rset.Data("TbID") s FildNme="" f s FildNme=$o(rset.Data(FildNme)) q:FildNme="" d .q:FildNme="TbID" .s (FildDesc,Value,FildNo)="" .s Value=rset.Data(FildNme) .s ^||User.PTFVD($i(^||User.PTFVD))=$lb(TbNme,FildNme,FildDesc,Value,FildNo,TbID) } q $$$OK } Storage Default {
TbNme
FildNme
FildDesc
Value
FildNo
TbID
^||User.PTFVD
PTFVDefaultData
^||User.PTFVD
^||User.PTFVI
^||User.PTFVS
%Library.CacheStorage
}
}
这个是的代码，我希望能得到 FildDesc和FildNo的值
转到文章
m 我建议直接备份global。如果有问题，重新导入导入global。然后抛下索引。
转到文章
你可以尝试给他授权只有select的sql授权
转到文章
ensemble里面的消息查看器里面，就不行了吧？或者可以自己修改那个页面的后端的查询吗