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

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

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

我的桌面也选择了windows经典

临时找到一段代码是 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

有两句代码，我分别写成

（1）fuwuqigoutong = 1

        MessageBox.Show("网络SQL数据源已连通!")

（2）MessageBox.Show("网络SQL数据源已连通!")

       fuwuqigoutong = 1

多此运行后，发现运行第1种就是出错，只有第2种才看到提示框“网络SQL数据源已连通!”，第1种提示是赋值不正确，

  其中       全局代码中是这样写的：  Public fuwuqigoutong As Integer = 0

请教，如果是这个问题的话该如何解决，要不要在全局变量中也定义一下？