Foxtable(狐表) → 用户栏目 → 专家坐堂 → win 10 下开发，遇到莫名错误！


  共有3126人关注过本帖树形打印复制链接

主题：win 10 下开发，遇到莫名错误！
帅哥哟，离线，有人找我吗？
bahamute
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1423 积分：11310 威望：0 精华：0 注册：2008/9/1 22:20:00 		win 10 下开发，遇到莫名错误！  发帖心情 Post By：2015/8/5 17:56:00 [只看该作者]

原来在win7下开发了一半的项目，升级到win10后今天是第一次开发，结果遇到奇怪的错误，明明是自定义登录，如果登录失败，不可能进入主界面（之前也一直正常的），但是输入用户名和密码后，会出现如图提示，关闭报错窗口后，又可以进入程序主界面。
莫名其妙的错误，如果密码不对，不可能加载主界面的，它这个提示貌似与FT内置用户管理有冲突！

删除bin目录不行，压缩项目也不行。
求解答！


图片点击可在新窗口打开查看此主题相关图片如下：{9bf3be13-9968-4e06-99cd-c5fedebdf417}.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2015/8/5 17:59:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/5 18:42:00 [只看该作者]

呃，提示就是 afterLoad事件的代码，你删除代码看看。

 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1423 积分：11310 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2015/8/5 21:10:00 [只看该作者]

是以下代码原因，如果服务器不通，就会出现上述问题，已经加了判断，目前没问题了。
但为何会报用户名或密码不正确，还是没搞懂。并且问题不是出在主窗口afterload代码，而是出在afteropenproject代码里的。

Dim Info_S As String

Info_S = FileSys.ReadAllText("\\WINDOWS-596NTF3\Share$\Contract\升级\update.txt", Encoding.Default) '读取生成的文本文件

Dim pars() As String = Info_S.Split("|") '将读取的信息拆分为数组

Dim dt1 As Date= pars(0).trim()     '升级包版本

Dim dt2 As Date= pars(1).trim()


[此贴子已经被作者于2015/8/5 21:12:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/5 21:13:00 [只看该作者]

局域网共享文件夹的升级？

 

在beforeOpenproject事件，加入代码

 

shell("net use \\192.168.1.211\共享的文件夹名  密码 /user:用户名", 0)


 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1423 积分：11310 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2015/8/5 21:33:00 [只看该作者]

谢谢大红袍回复！
是自己做了个局域网自定义用户升级，方便控制那些客户端必须升级，那些无需升级，可减少无谓升级次数。

请教一下：
如何快速判断局域网SQL服务器是否通联？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/5 21:42:00 [只看该作者]

这样会快一些

 

try
    Dim conn As ADODB.Connection
    conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=voyo"
    Conn.ConnectionTimeout=5
    conn.Open
   
    msgbox("成功")
    conn.close
Catch ex As Exception
    msgbox("失败")
End try
 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1423 积分：11310 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2015/8/6 8:33:00 [只看该作者]

为了测试方便，我直接禁用了本地网卡，
貌似这句不起作用
Conn.ConnectionTimeout=5
还是过了将近半分钟才报错。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/6 9:06:00 [只看该作者]

没办法的这个。

 

你先 想 TryConnectHost 再 ping，再连接

 

http://www.foxtable.com/help/topics/2709.htm

 

[此贴子已经被作者于2015/8/6 9:05:58编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05957 秒, 4 次数据查询