как переписать код из DAO в ADO?

Question

Мы получили некоторые старые унаследованное приложение, которое было разработано в 2000 году, и мы перешли от доступа 2003 к 2007. Когда я пытаюсь запустить модуль приложения, он дает мне ошибку:

"Run-time error 3847. ODBCDirect is no longer supported. Rewrite the code to use ADO instead of 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-сервер отказывается от поддержки oleDB, над которым работает ADO. (так что не ходите туда).

Смотрите эту ссылку о SQL сервер капельной поддержки OLEDB:

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

промышленность отошла от ADO и всех основных поставщиков предлагает использовать Open Database Connectivity в качестве промышленного стандарта. (это означает 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-while будет более чем достаточным, а также, как показано выше, сохраните ведра времени кодирования и разработчика. Если у вас есть «левое» выражение, вы можете вернуть нуль, тогда вам, вероятно, понадобится обернуть это выражение в nz(), чтобы вернуть «» (нулевую строку) или соответствующее значение.