我建立了一个SQL数据服务器，有接近200个部门访问，在远程访问的时候，会出现有的能访问，有的不行，不能访问的拼IP地址又能拼通，我怀疑是远程连接的代码
有问题，师傅们能否帮我看下,连接代码如下：
WAIT "请稍等，正在连接远程数据" WINDOW AT 25,85 nowait  
           SQLSETPROP(0,"DispLogin" ,3)   &&不显示任何对话框
           nhandle=SQLSTRINGCONNECT(&qf_str)   
           IF  nhandle<=0    &&连接不成功
                       wait clear
                       MESSAGEBOX("远程连接失败！！！",0,"错误信息")
                       
           ELSE    &&连接成功
               wait clear  
               
           ENDIF   
           
           RETURN nhandle
           
        
               

我是用的9.0啊

不是同一台机器

PUBLIC nhandle,qf_str    &&生成字符串
     SELECT dztab  &&IP地址表
    ip=alltrim(dz)
    qf_str='"'+'DRIVER=SQL Server;SERVER='+ip+';UID=sa;PWD=Wjh6552907;APP=Microsoft Visual FoxPro;WSID=JLS10;DATABASE=ykcx'+'"'
         thisform.Enabled=.f.  &&查询期间不能再点击
         
          WAIT "请稍等，正在连接远程数据" WINDOW AT 25,85 nowait  
           SQLSETPROP(0,"DispLogin" ,3)   &&不显示任何对话框
           nhandle=SQLSTRINGCONNECT(&qf_str,.t.)   
           IF  nhandle<=0    &&连接不成功
                       wait clear
                       MESSAGEBOX("远程连接失败！！！",0,"错误信息")
                       
           ELSE    &&连接成功
               wait clear  
               
             mydwbh=UPPER(ALLTRIM(thisform.text1.value))  &&用户名称
             Ac=SQLEXEC(nhandle,"Select * from dbo.yh where dwbh=?mydwbh ","denglu")  && 产生登录表
             thisform.Enabled=.t.  &&恢复正常状态
               IF  Ac<0
                   = SQLDISCONNECT(nhandle)
                   MESSAGEBOX("读取数据错误！",0,"错误信息")
               ELSE
                   =SQLDISCONNECT(nhandle)
                   SELECT denglu
                   IF UPPER(ALLTRIM(thisform.text2.value))=UPPER(ALLTRIM(mm)) AND LEN(mydwbh)>0
                     PUBLIC dw_mc,dw_id,dw_bh
                     dw_mc=dw  &&这个是下个表单需要用的
                     dw_bh=dwbh
                     dw_id=id
                     myjs=js
                     thisform.zt=2     &&zt=2,关闭表单的时候，没有 clear events
                     DO case
                       case myjs="管理"
                          RELEASE thisform
                          DO FORM JUSTPATH(LCFILE)+"\管理" NAME f0_main1
                       case myjs="操作" OR myjs="其他"
                          RELEASE thisform
                          DO FORM JUSTPATH(LCFILE)+"\铅封" NAME f0_main1
                     endcase         
                        
                   ELSE
                      =messagebox("用户名或者密码录入有误",0,"注意")
                   endif
                  
               ENDIF
         
          endif  &&远程连接结束

这是全部代码，还是没有成功，好着急啊，有点原因了，各个站点都能访问，唯独机关部门不能访问，我怀疑是机关部门安装了防护系统造成的，可是机关拼服务器的IP是能拼通的啊，另外，服务器是安装在分站点的

[此贴子已经被作者于2020-5-8 10:08编辑过]

用笔记本怎么测呢？

这个办法可以试一下

问题解决了，是公司层面的路由器限制了，解决了限制后就可以了