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

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

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

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

huangxueyao

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

huangxueyao

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

加好友

发短信

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

Post By：2017/8/9 19:00:00 [显示全部帖子]

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

huangxueyao

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

加好友

发短信

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

Post By：2017/8/9 19:24:00 [显示全部帖子]

试试在执行之前，执行下面这句代码

System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Ssl3

这句代码放在哪里？

huangxueyao

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

加好友

发短信

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

Post By：2017/8/9 19:29: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)

dvubb 此主题相关图片如下：微信截图_20170809192534.png