主题：我的系统装了win7是64位的

我的系统装了win7是64位的，发布后的程序怎么用啊，要装的.net找不到，请专家帮忙！！

 发布后，直接打开exe就能用的。

 

 如果提示要安装.net framework，就安装一下。 xp要安装.net2.0sp2，win7、win8要装.net3.5

我的情况跟他一样，也是64位win7，客户端无法起动，提示“通用数据管理平台已停止工作”

要先排除是否你程序的问题。空项目能否启动？

空项目能打开的，是不是 .net的版本问题？

我的桌面也选择了windows经典

空项目可以正常使用，就不是  .net的问题。

 

那按住ctrl不放启动项目，能否启动？

 

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

 

如果可以启动，说明代码有问题，在项目事件的各个事件里，加入msgbox，看弹出到哪里后报错，确定问题。

临时找到一段代码是 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("【网络数据源】变量得到的结果代码是: " & 网络数据源连通 )

'----结束

红色代码不可能报错。请认真测试。

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