새 데이터로 SQL 데이터 테이블 바꾸기

Question

다음 코드는 액세스에서 SQL Server 테이블로 데이터를 업로드합니다. 문제는 테이블을 덮어 쓰거나 업데이트하려고 할 때 테이블을 덮어 쓰거나 바꾸지 않는다는 것입니다. 테이블이 이미 존재한다는 오류가 발생합니다. 새 테이블을 업로드하거나 테이블에 새/편집 된 레코드를 추가 할 수 있도록 테이블을 삭제하는 코드를 추가해야합니다.

Public Function Update() 
DoCmd.TransferDatabase _ 
     acExport, _ 
     "ODBC Database", _ 
     "ODBC;" & _ 
      "Driver={SQL Server Native Client 10.0};" & _ 
      "Server=SERVER;" & _ 
      "Database=DB;" & _ 
      "UID=ID;" & _ 
      "PWD=PW;", _ 
     acTable, _ 
     "CDData", _ 
     "AC_CDData", _ 
     False 
End Function 

는 그래서 AC_CDData의 표는 새로운 하나를 전송하기 전에 기존 대상 테이블을 삭제하려면 다음 코드가 될 경우

Answer 1

를 교체해야 하나보기 다음과 같습니다 :

Option Compare Database 
Option Explicit 

Public Function TransferTableToSqlServer() 
    Dim cdb As dao.Database, qdf As dao.QueryDef 
    Dim err As dao.Error 
    Const DestinationTableName = "AC_CDData" 
    Const ConnectionString = _ 
      "ODBC;" & _ 
       "Driver={SQL Server Native Client 10.0};" & _ 
       "Server=(local)\SQLEXPRESS;" & _ 
       "Database=YourDatabaseName;" & _ 
       "UID=YourSqlUserId;" & _ 
       "PWD=YourSqlPassword;" 
    Set cdb = CurrentDb 
    Set qdf = cdb.CreateQueryDef("") 
    qdf.Connect = ConnectionString 
    qdf.sql = _ 
      "IF EXISTS " & _ 
       "(" & _ 
        "SELECT * FROM INFORMATION_SCHEMA.TABLES " & _ 
        "WHERE TABLE_NAME='" & DestinationTableName & " '" & _ 
       ") " & _ 
      "DROP TABLE [" & DestinationTableName & "]" 
    qdf.ReturnsRecords = False 
    On Error GoTo TransferTableToSqlServer_qdfError 
    qdf.Execute dbFailOnError 
    On Error GoTo 0 
    Set qdf = Nothing 
    Set cdb = Nothing 
    DoCmd.TransferDatabase _ 
      acExport, _ 
      "ODBC Database", _ 
      ConnectionString, _ 
      acTable, _ 
      "CDData", _ 
      DestinationTableName, _ 
      False 
    Exit Function 

TransferTableToSqlServer_qdfError: 
    For Each err In dao.Errors 
     MsgBox err.Description, vbCritical, "Error " & err.Number 
    Next 
End Function