Question

似乎已弃用从VBA项目直接访问SQL Server数据库的所有方法：

DAO with ODBCDirect：Access 2007已取消支持。
通过JET DAO：你不认真，对吧？无论如何，它是微软的considered obsolete。
使用SQLOLEDB提供程序进行ADO：Deprecated。
ADO与SQL Server Native OLEDB提供程序：Won't be supported after SQL Sever 2012。
ADO与用于ODBC的Microsoft OLE DB提供程序：Not supported：＆＃34; Microsoft OLE DB提供程序（MSDASQL）不支持SQL Server Native Client。＆＃34; < / em>的

我错过了什么？微软批准的从VBA访问SQL Server数据库的官方方式是什么（毕竟，不已弃用且仍然是Office 2013附带的官方开发语言）？

Answer 1

我错过了什么？

普通的旧ODBC。在Access以外的Office应用程序的VBA项目中，通过ADO的ODBC是最直接的：

Sub AdoOdbcExample()
    Dim con As Object
    Set con = CreateObject("ADODB.Connection")
    con.Open _
            "Driver={SQL Server Native Client 11.0};" & _
            "Server=.\SQLEXPRESS;" & _
            "Database=myDb;" & _
            "Trusted_Connection=yes;"
    con.Execute "UPDATE Clients SET FirstName='Gord' WHERE ID=5;"
    con.Close
    Set con = Nothing
End Sub

对于Access中的VBA项目，我们还可以选择通过ACE DAO使用ODBC链接表和传递查询，就像我们一直有

Sub DaoOdbcExample()
    Dim cdb As DAO.Database, qdf As DAO.QueryDef
    Set cdb = CurrentDb
    Set qdf = cdb.CreateQueryDef("")
    qdf.Connect = "ODBC;" & _
            "Driver={SQL Server Native Client 11.0};" & _
            "Server=.\SQLEXPRESS;" & _
            "Database=myDb;" & _
            "Trusted_Connection=yes;"
    qdf.sql = "UPDATE Clients SET FirstName='Gord' WHERE ID=5;"
    qdf.ReturnsRecords = False
    qdf.Execute dbFailOnError
    Set qdf = Nothing
    Set cdb = Nothing
End Sub

注意：

SQL Server Native Client 11.0是SQL Server 2014附带的版本（参考：here）。
引用的Obsolete Data Access Technologies列表表示＆＃34; DAO 3.6是该技术的最终版本。它在64位Windows操作系统上不可用。＆＃34;。这指的是 Jet DAO（＆＃34; Microsoft DAO 3.6 Object Library＆＃34;）。如果安装了64位版本的Access数据库引擎， ACE DAO（＆＃34; Microsoft Office 14.0 Access数据库引擎对象库＆＃34;）确实可用于64位应用程序。

Answer 2

正确和未来的方法是使用ACE对象模型。您是100％正确的，从SQL服务器中删除本机oleDB。另外非常重要的是要注意，当.net出现时，“一般”开发者社区开始放弃ADO（ado.net提供者是一个非常不同的野兽，一个不依赖于oleDB，而是sqlprovider）。

因此，我们的行业正在出现重大趋势。

我们离开了oleDB。这通常是仅限Windows的技术。随着iPad，智能手机，Android等的兴起，你没有这样的平台特定提供商，他们没有oleDB。因此，您必须使用开放式数据库连接标准（ODBC）恢复TOWARDS。甲骨文，微软，MySQL都表示这是未来的道路和选择。

虽然JET被认为是过时的，但ACE不是。

SINCE Access 2007（现在完全是3个版本），你不要也不应该引用DAO。因此，对于最后3个版本的Access，您不需要也不需要或使用对DAO对象库的引用。

您现在应该使用新的内置ACE数据库引擎。这意味着您不需要单独引用DAO。

ACE引擎有几个优点：

您不再需要DAO参考。

一旦引用数据引擎，就会处理前两个库引用。

有一个x32和x64位版本可供使用（因此.net应用程序等可以使用此数据引擎的x64位版本）。 JET只是x32位。

ACE提供商继续接收更新和增强功能。对于JET来说也是如此，或者对于ADO来说也是如此。

ACE现在支持商店程序和表触发器。它还支持基于Web服务的SharePoint列表。

还对Access / ACE进行了更改以使用SQL Azure。

对于使用Access与SQL Server，您只需使用ACE和链接表。如上所述，远离ADO MUCH的趋势始于大约13年前.net出现在现场。

因此标准方法现在推荐的是ACE + odbc。

所以你在这里没有错过任何东西。令人困惑的原因很大程度上来自国家JET折旧的文章，但是其中遗漏了非常重要的细节，即最后3版本的Access现在不使用JET，但使用了一个名为ACE的新库。

显而易见，您不再需要也不想在访问应用程序中引用DAO。

您肯定使用兼容的DAO库，它甚至建议您使用DAO为reocrdset代码添加前缀（因此，如果您在过去执行此操作时，旧的现有代码将正常工作，或者您总是忽略DAO声明记录集时的限定符。

对于像sql传递的东西，你可以使用保存的pass pass查询，并执行以下操作：

   CurrentDb.QueryDefs("MyPass").Execute

或者某些t-sql如何，你可以这样做：

With CurrentDb.QueryDefs("MyPass")
  .SQL = "ALTER TABLE Contacts ADD MiddleName nvarchar(50) NULL"
  .Execute
End If

或使用参数

“即时”调用您选择的商店程序

With CurrentDb.QueryDefs("MyPass")
  .SQL = "Exec MyStoreProc " & strMyParm1
  .Execute
End If

以上不是那么干净整洁吗？如上所述，上面的代码示例往往比使用发布的oleDB / ADO示例更少代码和麻烦。

长期以来，Access的用户围绕ODBC和sql server开发了他们的技能，你不需要做任何事情，因为行业很多决定你一直在做什么是推荐的方法。

虽然ACE不支持JET-DIRECT，但是如果使用上面的pass-though querydef示例代替JET direct，我无法想到错过这个选择的任何情况。

Answer 3

在vba中初始化adodb.connection时，我们替换了

          .Provider = "sqloledb"
          .Properties("Data Source").Value = sServer
          .Properties("Initial Catalog").Value = sDB
          .Properties("Integrated Security").Value = "SSPI"

与

           .ConnectionString = _
               "DRIVER={ODBC Driver 11 for SQL Server}; " & _
               "SERVER=" & sServer & "; " & _
               "Trusted_Connection=Yes; " & _
               "DATABASE=" & sDB & "; "

使用.Provider =＆＃34; MSDASQL.1＆＃34;但你不必添加它。

如何以不推荐的方式从VBA访问SQL Server？

3 个答案: