VFP 愛用者社區

[Taien]

VFP连接SQL SERVER后，遇到断网片刻后恢复网络，但继续执行程序会报错：
Connectivity error: [Microsoft][ODBC SQL Server Driver]通讯链接失败

请问这个问题如何处理？

链接语句如下：
(1) m_cndbsql=[provider=msdasql;driver=SQL Server;Server=]+'121.12.112.*'+[;UID=]+'sa'+[;PWD=]+'密码+[;DATABASE=]+'concord_data'

(2) m_CnDB=SQLSTRINGCONNECT(m_cndbsql)

(3) mSQLRes=SQLExec(m_CnDB,"select * from cus_mstr")

未断网前，链接成功且正常，m_CnDB=1, mSQLRes=1

断网片刻后恢复网络：

情况一：再执行一次语句(3)，则无法成功返回数据，且m_CnDB=1, mSQLRes=-1。
情况二：再执行一次语句(2)和语句(3), 则正常获取数据，但m_CnDB=2, mSQLRes=1。

请教：
（一）是否在检测断网后重新处理时，可以按情况二的方式处理一次? 但m_CnDB=2 是否意味着链接1还存在被闲置了？ 如果断网多次，m_CnDB值会继续增加，会不会有任何不妥？
（二）断网问题是否有更好的处理方法？

谢谢了！

[yoncen]

*!* 重新连接服务器
Local llNeedConnServer
llNeedConnServer = .T.
If chkConnHandle(gnHandle) = .T. Then
Local lnHandle
lnHandle = SQLExec(gnHandle, "")
If lnHandle > 0 Then
llNeedConnServer = .F.
Endif
Endif
If llNeedConnServer = .T. Then
Local loHandle
loHandle = Newobject("ConnectServer")
loHandle.chkConnecting(1, .F.)
If gnHandle > 0 Then
*-- 读取配置参数
Local lcIniFile
lcIniFile = Addbs(gcSystemPath) + "System.ini"
If File(lcIniFile) Then
Local lcMAIN
lcMAIN = GetIni(lcIniFile, "APPLICATION", "MAIN")
If Not Empty(lcMAIN) Then
*-- 检查主程序是否为最新版本，否则不允许重新连接
If Not chkMainFileNeedUpdate(lcMAIN, .F.) Then
SQLExec(gnHandle, "USE " + gcAccId) && 重新连接当前帐套
Else
SQLDisconnect(0) && 关闭所有连接
Endif
Else
lcErrMsg = "系统配置文件 SYSTEM.INI 参数错误！" + ;
Chr(13) + Chr(10) + "安装程序损坏，请重新安装系统。"
Messagebox(lcErrMsg, 0 + 16 + 0, "系统错误")
Endif
Else
lcErrMsg = "系统配置文件 SYSTEM.INI 不存在！" + ;
CHR(13) + Chr(10) + "安装程序损坏，请重新安装系统。"
Messagebox(lcErrMsg, 0 + 16 + 0, "系统错误")
Endif
Endif
Endif
This.QueryUnload()