0

我需要一些帮助来在 MS Access 前端中创建一个表单，以便为访问后端选择一个数据库/数据库服务器。

先说一点历史；

我创建了一个 MSAccess 2007 acccdp 数据库，它被设计为在本地运行的单个用户。（对于一个资金很少或没有资金的大学研究项目）。

最终需要扩展数据库以供同一办公室的几个人同时使用，所以我做了什么；

在桌面上安装 SQLExpress 2008r2。使用数据库工具 > 移动数据 > Sql Sever 将表迁移到新的 SQL 服务器。

现在我想为开发/培训等创建第二个测试数据库......另外，我需要调整不同数据库服务器的属性（在家）。

所以我想我需要一个自动执行的表单（而不是交换机），它允许您选择数据库服务器和数据库来加入链接表，然后如果成功连接以打开交换机。

我可以创建表单，但我需要 vba 的帮助来调整数据库连接属性。

我只是想帮助这个项目，无论如何我都不是程序员。

提前致谢

罗杰

4

1 回答 1

0

如果您在两个连接之间进行选择，您可以检查现有连接是否正常工作，如果没有，请切换到第二个。但是，按钮可能仍然是最好的选择。这个片段对我有用，但是它将连接超时设置为仅一秒，因此如果您只等待了一点时间，服务器可能是可用的，即使超时，对于不耐烦的人来说也有足够的延迟开始点击。

Function IsSQLServer() As String
''Reference Microsoft ActiveX Data Objects x.x Library
Dim cn As New adodb.Connection

    ''http://msdn.microsoft.com/en-us/library/windows/desktop/ms676718(v=vs.85).aspx
    ''Provider=sqloledb
    cn.ConnectionString = ServerCon & "Connect Timeout=1;"

    On Error Resume Next
    cn.Open

    If Err.Number <> 0 Then
        IsSQLServer = "No;" & Err.Description
        Err.Clear
    Else
        If cn.State = adStateOpen Then
            IsSQLServer = "Yes"
        Else
            IsSQLServer = "Maybe"
        End If
        cn.Close
    End If

    Set cn = Nothing

End Function
于 2012-08-13T09:11:31.967 回答