以文本方式查看主题

-  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编辑过]