网络连通的情况下PB12中ConnDest.ConnectToServer()=52
integer nResult
Connection ConnDest
ConnDest = Create Connection
IF isVAlid(ConnDest) = false then
Messagebox('error','Create Connection False')
end if
ConnDest.Driver = 'WinSock'
ConnDest.Application ='1433'
ConnDest.Location = '223.4.85.71'
nResult = ConnDest.ConnectToServer()
//Messagebox('',String(ConnDest))
//无法连接本地服务器,展开远程查询是否已经开打
IF nResult = 52 Then
messagebox(string(ConnDest.errcode),ConnDest.errtext)
ELSE
ConnDest.DisconnectServer() //断开
messagebox("ok","connection success")
End if
Destroy ConnDest
RETURN
[解决办法]
应该是不支持这种方式