/// 系统工具,查询某个表的值所在的字段
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里面的消息查看器里面,就不行了吧?或者可以自己修改那个页面的后端的查询吗