主题：怎样把互联网数据源随时切换为本机数据源

平时我在公司用开发版进行设计，连接公司的SQL数据库（局域网方式），周六日在家里设计，因为有时公司会停电，不能通过互联网连接公司服务器的SQL,我尝试更改数据源为移动硬盘上的一个MDB文件，但是屡次尝试都不成功。——我的MDB文件已经设置了和SQL一模一样的几个表。这种情况该如何处理呢？请有这方面经验的高手指教！谢谢

这个是项目事件代码,请看是否有何问题（用户有一个“数据源”属性）

BeforeConnectOuterDataSource

'''选择数据源

Dim ds As String = e.Name 'data source

Dim cs As String = "Provider=SQLOLEDB.1;Password=****;Persist Security Info=True;User ID=foxtable"

Dim ex As String = e.User.ExtendedValues("数据源")

Select Case ex

    Case "局域网"

        e.ConnectionString = cs & ";Data Source=rhl-server"

    Case "互联网"

        e.ConnectionString = cs & ";Data Source=rhlgzedg.vicp.cc"

    Case "本地"

e.ConnectionString  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = J:\Tools\FoxTable\项目1_天平行数据库系统\Attachments\备用外数据源2.mdb;Persist Security Info=False"

    Case "手动"

        e.EditConnectionString()

    Case "自动"

        If Network.Ping("192.168.1.16") = True  Then '如果局域网接通

            e.ConnectionString = cs & ";Data Source=rhl-server"

        ElseIf Network.Ping("rhlgz.vicp.cc") = True  Then '采用互联网数据库

            e.ConnectionString = cs  & ";Data Source=rhlgzdeg.vicp.cc"

        Else '如果互联网无法接通,采用本地数据库

e.ConnectionString  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = J:\Tools\FoxTable\项目1_天平行数据库系统\Attachments\备用外数据源2.mdb;Persist Security Info=False"

        End If

End Select

被河蟹的代码补上去了。不知道是否这论坛的bug，它居然会象word的错误检查一样在我的某些单词下加个红色下划线，然后把后面的内容删除掉，尝试了很多次才能补上去。

先是这两个提示，我可以理解：
此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

再后是这个：
此主题相关图片如下：32.jpg

我终于知道错误的原样了，是因为ACCESS文件里的表没有主键，所以错误，我给每个表加上主键，问题解决，但是还有两点疑问：

ToAccess 是把内部表保存到access，但是我的表全部都是sql的外部表了，不能转为mdb文件。

为了测试，我在BeforeConnectOuterDataSource事件的一头一尾分别放置了一个 messagebox.show("step1")和  messagebox.show("step2")，在afterOpenProject的一头一尾分别放置了一个 messagebox.show("step3")和  messagebox.show("step4")。运行时，依次显示了:"step1"、"step2" 、以上“创建外部连接失败”的错误提示信息、"step3"、"step4"。

回复19楼：当我连接网络的时候，一切正常不会出现错误提示，只有当我切断网络的时候才会在step3和step4之间出现错误提示，而连接字符串是FT里设置外数据源的时候复制过来的，这时候能正常连接，很显然不是连接字符串的问题。