DAO에서 ADO로 코드를 다시 작성하는 방법은 무엇입니까?

Question

우리는 2000 동안 개발 된 오래된 레거시 응용 프로그램을 가지고 우리는 내가 응용 프로그램의 모듈을 실행하려고 할 때, 그것은 나에게 오류주고있다 2007 액세스 2003 년 이사 :

"Run-time error 3847. ODBCDirect is no longer supported. Rewrite the code to use ADO instead of DAO".

과 그것은 라인 Set WS = CreateWorkspace("NewWS", "", "", dbUseODBC) 하이라이트. 내가 Access에 정말 처음 왔기 때문에이 문제를 게시하기 전에 조사를했지만 행운은 없습니다. DAO 대신 ADO를 사용하도록 코드를 다시 작성하려고합니다.

다음은 내 오랜 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

처음에는 DAO를 기반으로 작성되고 설계된 응용 프로그램에 ADO를 도입하고 싶지 않습니다. 더 나쁜 것은, ADO가 약 15 년 동안 나섰다는 것입니다. 실제로 SQL 서버는 ADO가 작동하는 oleDB에 대한 지원을 중단합니다. (그래서 가지 마세요). 업계는 멀리 ADO 및 모든 주요 벤더 이동 한 업계 표준으로 개방형 데이터베이스 연결을 사용하도록 제안하는

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

:

는 SQL 서버 삭제 OLEDB 지원에 대한 링크를 참조하십시오. (즉, 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를 사용하고있는 모든 장소에서 그것을 아주 많이 사용할 수 있습니다. 액세스 2007에서는 제트 다이렉트 지원이 중단되었지만 단순한 통과 쿼리를 사용하는 것만으로 충분할뿐만 아니라 코딩 및 개발자 시간을 절약 할 수 있습니다. 가지고있는 "왼쪽"표현식이 null을 반환 할 수 있다면 그 표현식을 ""(null 문자열) 또는 적절한 값을 반환하기 위해 nz()에 랩핑해야 할 가능성이 높습니다.