Replies by Nicky Zhu for Chinese InterSystems Developer Community

Nicky Zhu · 九月 28

你好，所有经过平台的消息头都保存在在Ens.MessageHeader这张表中，可以直接用SQL查询

Nicky Zhu · 九月 8

您好，通常对于第三方的数据库连接，最常见的性能问题的根源在于平台一侧的数据吞吐量大于对方数据库接收数据的能力，在使用BO及OutboundAdapter时，可以观察到消息队列拥堵，尤其是低业务量下顺畅，高业务量下出现队列快速拥堵的情况下，几乎可以肯定是对端数据库的性能缺陷。

在这种情况下，由于堵点不在平台而在数据库，在平台侧的所有优化都解决不了问题，只能保障平台不因对端数据库的拥堵崩溃。可选的处理手段有：

1. 最终用户根据数据库的吞吐量降低整个平台的吞吐量

2. 最终用户要求保障平台吞吐量，但对端数据库无法优化，则需要接受在平台中堆积队列的现实

3. 最终用户要求保障平台吞吐量，对端数据库改进性能以满足平台吞吐的需要

建议对方的数据库性能进行基准性能和压力测试，使得平台和数据库在吞吐量上相互适应

打印对端数据库的出错信息，可参考

//Create new Gateway connection object
set gc=##class(%SQLGatewayConnection).%New()
If gc=$$$NULLOREF quit $$$ERROR($$$GeneralError,"Cannot create %SQLGatewayConnection.")

//Make connection to target DSN
s pDSN="Cache Samples"
s usr="_system"
s pwd="SYS"
set sc=gc.Connect(pDSN,usr,pwd,0)
If $$$ISERR(sc) quit sc
if gc.ConnectionHandle="" quit $$$ERROR($$$GeneralError,"Connection failed")

set sc=gc.AllocateStatement(.hstmt)
if $$$ISERR(sc) quit sc

//Prepare statement for execution
set pQuery= "insert into scott.dept (deptno,dname,loc) values (10,'Customer Support','Tokyo')"
set sc=gc.Prepare(hstmt,pQuery)
if $$$ISERR(sc) quit sc
//Execute statement
set sc=gc.Execute(hstmt)
if $$$ISERR(sc)
{
Set xsc=gc.GetErrorList(hstmt,.err)
Zwrite err
Quit err
}