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

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

如果表结构完全一致,更改为MDB文件后应该也是可以正常运作的. 除开涉及到ＡＣＣＥＳＳ不支持的ＳＱＬ语句

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

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

你后面的代码和谐了呢,你要确保你ACCESS连接字符串正确哦, ACCESS的连接字符串和SQL是不一样的.

一台机也可设置局域网，但必须保证能上网 。公司局域网数据库ｉｐ以及计算机名必须设置成和家里一样，路径也要一样，项目不论在局域网还是家里操作是一样的。

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

 设置不成功，有没有提示什么错误？还是在使用的过程中出错？

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

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

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

 建议你先这样做。