出现错误：基础连接已关闭 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 出现错误：基础连接已关闭

共有1851人关注过本帖树形打印复制链接主题：出现错误：基础连接已关闭

huangxueyao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：443 积分：3530 威望：0 精华：0 注册：2013/2/9 12:45:00

出现错误：基础连接已关闭 发帖心情

Post By：2017/8/9 13:59:00 [只看该作者]

之前已经提问过，系统是window 2003的，我做的系统在别的电脑可以用，在这个电脑上就出现这个错误。

然后按照回复，换了window xp系统了，安装了.net 2.0 sp2 ，但是还是报错，请问是什么情况~

此主题相关图片如下：微信图片_20170809135729.jpg

此主题相关图片如下：微信图片_20170809135716.jpg

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/9 14:18:00 [只看该作者]

你连接数据库的连接字符串是怎么写的？贴出来看看。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/9 14:22:00 [只看该作者]

第二个错误，你窗口的AfterLoad事件写了什么代码？提示是因为你的json数据有问题，无法解释。

huangxueyao

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：443 积分：3530 威望：0 精华：0 注册：2013/2/9 12:45:00

Post By：2017/8/9 17:27:00 [只看该作者]

Dim hc As New HttpClient("https://open.youzan.com/oauth/token?client_id=73*******b&client_secret=76b********38&grant_type=silent&kdt_id=19****90")

Dim jo As JObject = Jobject.Parse(hc.GetData)

If jo("access_token") IsNot Nothing Then

Vars("access_token") = jo("access_token").ToString

Else

msgbox("access_token获取失败,请联系***解决问题")

e.form.Close

End If

不好意思，下午不在电脑旁

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/9 18:14:00 [只看该作者]

看弹出什么 msgbox(hc.getData)

把弹出的内容复制粘贴上来看看。

直接在浏览器执行地址，得到的又是什么？

---------------------- 看是否此问题

全局代码

Public Function CheckValidationResult(sender As Object, certificate As System.Security.Cryptography.X509Certificates.X509Certificate, chain As System.Security.Cryptography.X509Certificates.X509Chain, errors As System.Net.Security.SslPolicyErrors) As Boolean
' 总是接受
Return True
End Function

AfterOpenProject事件

System.Net.ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(addressof CheckValidationResult)

huangxueyao

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：443 积分：3530 威望：0 精华：0 注册：2013/2/9 12:45:00

Post By：2017/8/9 18:47:00 [只看该作者]

{"access_token":"d82e7daeda********c53d","expires_in":604800,"scope":"storage points reviews multi_store salesman pay_qrcode item user trade_advanced trade item_category logistics coupon_advanced shop coupon crm_advanced trade_virtual"}

直接浏览器就是返回上面这个，这个本来设计的没问题的啊，我在我电脑和另外几个电脑试过也可以，就是门店的那台不行。

huangxueyao

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：443 积分：3530 威望：0 精华：0 注册：2013/2/9 12:45:00

Post By：2017/8/9 19:00:00 [只看该作者]

已经加上了这个全局代码，还是老样子，在我的电脑上没问题，安装到门店电脑就是不行

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/9 19:16:00 [只看该作者]

执行弹出什么？

Dim hc As New HttpClient("https://open.youzan.com/oauth/token?client_id=73*******b&client_secret=76b********38&grant_type=silent&kdt_id=19****90")
msgbox(hc.getData)