以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 我的系统装了win7是64位的 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81517) |
-- 作者:zhangchi96 -- 发布时间:2016/2/29 15:06:00 -- 我的系统装了win7是64位的 我的系统装了win7是64位的,发布后的程序怎么用啊,要装的.net找不到,请专家帮忙!! |
-- 作者:大红袍 -- 发布时间:2016/2/29 15:52:00 -- 发布后,直接打开exe就能用的。
如果提示要安装.net framework,就安装一下。 xp要安装.net2.0sp2,win7、win8要装.net3.5 |
-- 作者:chenjiu6202 -- 发布时间:2016/3/7 17:10:00 -- 我的情况跟他一样,也是64位win7,客户端无法起动,提示“通用数据管理平台已停止工作” |
-- 作者:大红袍 -- 发布时间:2016/3/7 17:22:00 -- 要先排除是否你程序的问题。空项目能否启动? |
-- 作者:zhangchi96 -- 发布时间:2016/3/8 8:58:00 -- 空项目能打开的,是不是 .net的版本问题? 我的桌面也选择了windows经典 [此贴子已经被作者于2016/3/8 8:58:59编辑过]
|
-- 作者:Hyphen -- 发布时间:2016/3/8 9:05:00 -- 空项目可以正常使用,就不是 .net的问题。 把项目启动代码全部屏蔽,能不能启动?然后一项项启用定位错误代码
|
-- 作者:大红袍 -- 发布时间:2016/3/8 9:31:00 -- 以下是引用zhangchi96在2016/3/8 8:58:00的发言:
空项目能打开的,是不是 .net的版本问题? 我的桌面也选择了windows经典 [此贴子已经被作者于2016/3/8 8:58:59编辑过]
那按住ctrl不放启动项目,能否启动?
http://www.foxtable.com/help/topics/1057.htm
如果可以启动,说明代码有问题,在项目事件的各个事件里,加入msgbox,看弹出到哪里后报错,确定问题。 |
-- 作者:zhangchi96 -- 发布时间:2016/3/17 17:10:00 -- 临时找到一段代码是 BeforeConnectOutaSoure事件中:其中红色部分就出错了,请老师指教!
MessageBox.Show("win7测试001")
Dim s1 As String = " Provider=SQLOLEDB.1;Password=zh*********;Persist Security Info=True;User ID=sa;Initial Catalog=教育;Data Source=1**.1**.1**.1** " MessageBox.Show("win7测试001.001") If Connections.TryConnect(s1) = False Then MessageBox.Show("win7测试001.002") 网络数据源连通 = 0 MessageBox.Show("win7测试001.1") \'MessageBox.Show("外网不通,现准备把IP改成 IP.txt文件里的数据再试一下!") Dim ipFile As String = e.ProjectPath & "临时外部数据源\\ip.txt" \'定义一个IP文件的位置 Dim ip As String = FileSys.ReadAllText(ipFile) \'向IP文件中提取表示IP的字符 s1 = s1.Replace("1**.1**.1**.2**",ip) \'把原先代码中的IP换成IP文件中的IP MessageBox.Show("win7测试001.2") If Connections.TryConnect(s1) = False Then 网络数据源连通 = 0 Dim s2 As String = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& e.ProjectPath & "临时外部数据源\\教育.mdb;Persist Security Info=False " e.ConnectionString = s2 MessageBox.Show("win7测试001.3") If Connections.TryConnect(s2) = False Then 网络数据源连通 = 0 \'essageBox.Show("改成连接本地的数据源还是无法连通!") Else 网络数据源连通 = 9 \'MessageBox.Show("改成连接本地的数据源,已连通!") End If MessageBox.Show("win7测试001.4") Else 网络数据源连通 = 2 \'MessageBox.Show("外网IP改成 IP.txt文件里的数据,已连通!") End If Else 网络数据源连通 = 1 MessageBox.Show("win7测试001.5") \'MessageBox.Show("网络SQL数据源已连通!") End If \'MessageBox.Show("【网络数据源】变量得到的结果代码是: " & 网络数据源连通 ) \'----结束 |
-- 作者:大红袍 -- 发布时间:2016/3/17 17:37:00 -- 红色代码不可能报错。请认真测试。 |
-- 作者:zhangchi96 -- 发布时间:2016/3/18 8:55:00 -- 1、今天发现一个问题,原来误以为是这段代码出了问题: Dim s1 As String = " Provider=SQLOLEDB.1。。。。
2、其实在这段代码前我写了好多的备注说明,都是前前面加了单引号 \' 的,不知道为什么这段备注也会出问题,现在把这些备注都删除了。
3、正常XP下执行了 MessageBox.Show("win7测试001.001") 然后执行了 MessageBox.Show("win7测试001.5") 4、在win7 下,在出现"win7测试001.001"后就没有出现 “win7测试001.5” 了 也没有出现 "win7测试001.002 5、我初步觉得是 If Connections.TryConnect(s1) = False Then 这一句有问题
请问是什么原因?
想想也可能是下面这个全局代码出了问题,是不是定义一个变量不能用中文来表示啊 网络数据源连通 = 0
附:刚刚测试过 就是 “网络数据源连通 = 0”出问题了,我设置的是全局代码 全局代码中是这样写的: Public 网络数据源连通 As Integer = 0
又修改了 Public 网络数据源连通 As Integer = 0 改成 Public fuwuqigoutong As Integer = 0 结果 就是在 fuwuqigoutong = 1 这句出错
其他地方也找到了关于 全局代码使用时 出错,如 if fuwuqigoutong > 0 then [此贴子已经被作者于2016/3/20 21:55:41编辑过]
|