如何将代码从DAO重写为ADO？

Question

我们有一些旧的遗留应用程序是在 2000 年开发的，我们已经从 2003 年访问到 2007 年。当我尝试运行应用程序的模块时，它给了我一个错误：

“运行时错误 3847。不再支持 ODBCDirect。重写代码以使用 ADO 而不是 DAO”。

它突出显示到Set WS = CreateWorkspace("NewWS", "", "", dbUseODBC) 行。由于我对 Access 非常陌生，因此我在此处发布此问题之前进行了研究，但没有运气。我正在尝试重写代码以使用 ADO 而不是 DAO。

以下是我的旧 vba 代码：

Public Function GetID (ByRef SegmentItem As clsSegmentDefinitions) As Long 
    Dim qdf As QueryDef
    Dim qdfNewID As QueryDef
    Dim rs As Recordset
    Dim rsNewID As Recordset
    Dim NaturalDescription As String
    Dim WS As Workspace
    Dim con As Connection 
    Set WS = CreateWorkspace("NewWS", "", "", dbUseODBC)
    WS.DefaultCursorDriver = dbUseODBCCursor
    Set con = WS.OpenConnection("", , , SQLConnectString)
    DoCmd.Hourglass False
    DoCmd.OpenForm " frmQuickAdd_AddNatural ", , , , , acDialog, SegmentItem.AddValue
    DoCmd.Hourglass True
    If Form_frmQuickAdd_AddNatural.Tag Then
        Set qdf = con.CreateQueryDef("", "{ ? = call sp_Insert(?, ?, ?) }")
        qdf.Parameters.Refresh
        qdf![@prmDescription] = Left(Form_frmQuickAdd_AddNatural.txtSegmentDescription, 34)
        qdf![@prmCreateUser] = CurrentUser
        qdf![@prmProjectID] = 0
        qdf.Execute
        Set qdfNewID = CodeDb.CreateQueryDef("")
        qdfNewID.Connect = SQLConnectString
        qdfNewID.ReturnsRecords = True
        qdfNewID.SQL = "sp_GetNewSegmentID"
        Set rsNewID = qdfNewID.OpenRecordset
        If Not IsNull(rsNewID!MaxOfSegmentID) Then
            GetID = rsNewID!MaxOfSegmentID
        Else
            GetID = 0
        End If        
    Else
        GetID = 0
    End If
    DoCmd.Close acForm, "frmQuickAdd_AddNatural"    
End Function

我已经开始重写代码，但我不知道它是否应该是这样的。

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

cnn.Open "Provider=mssql;Data Source=" & dbq & ";User Id=" & uid & ";Password=" & pwd
With rst
    .Open "SELECT COUNT(*) FROM " & tbl, cnn, adOpenKeyset, adLockOptimistic
    num = .Fields(0)
    .Close
End With
cnn.Close
Set rst = Nothing
Set cnn = Nothing

Answer 1

首先，您确实不想将 ADO 引入围绕 DAO 构建和设计的应用程序中。更糟糕的是，ADO 已经退出了大约 15 年。事实上，SQL Server 正在放弃对 ADO 工作的 oleDB 的支持。 （所以不要去那里）。

有关 SQL Server 放弃 oleDB 支持的信息，请参阅此链接：

http://blogs.msdn.com/b/sqlnativeclient/archive/2011/08/29/microsoft-is-aligning-with-odbc-for-native-relational-data-access.aspx

行业已远离 ADO，所有主要供应商都建议使用开放式数据库连接作为行业标准。 （这意味着 ODBC）。

我将在 Access 中创建并保存传递查询。然后您的代码可以重写为：

Public Function GetID(ByRef SegmentItem As String) As Long

  Dim strSQL     As String

  strSQL = "sp_Insert('" & _
           Left(Form_frmQuickAdd_AddNatural.txtSegmentDescription, 34) & "'," & _
           "'" & CurrentUser & "', 0)"

  With CurrentDb.QueryDefs("qryPass")
     .SQL = strSQL
     .ReturnsRecords = False
     .Execute
  End If

  With CurrentDb.QueryDefs("qryPass")
     .SQL = "sp_GetNewSegmentID"
     .ReturnsRecords = True
     GetID = Nz(.OpenRecordset()("MaxOfSegmentID"),0)
  End With

End Function

所以创建一个传递查询。您可以在使用 JET-DIRECT 的所有地方使用它。在 access 2007 中，jet-direct 支持被删除，但使用简单的 pass-through 查询就足够了，而且如上所示，可以节省大量的编码和开发人员时间。如果您拥有的“左”表达式可以返回 null，那么您可能需要将该表达式包装在 nz() 中以返回“”（空字符串）或适当的值。