如何将 SQL Server 表中的数据追加到 Access 表？

Question

我正在尝试在 MS Access 中编写查询以打开与本地 SQL Server 的连接，然后将选择表导入 MS Access。

我的代码一直运行到Cn.Execute语句。 我得到

运行时错误“-2471765 (80040e37)”[Microsoft][ODBC SQL Server 驱动程序][SQL Server] 无效的对象名称“dbo_SQLServertable”。

我需要导入额外的表，所以我需要一个代码，当我更改表名时，它会起作用。

Private Sub Command28_Click()    
        
    Dim Cn As ADODB.Connection
    Dim Server_Name As String
    im Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    
    Server_Name = "" ' Enter your server name here
    Database_Name = "Test" ' Enter your database name here
    User_ID = "" ' enter your user ID here
    Password = "" ' Enter your password here
       
    Set Cn = New ADODB.Connection
    Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & ";"
    
    Cn.Execute "INSERT INTO Access Table SELECT dbo_SQLServerTable.* FROM dbo_SQLServerTable;"
    
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing

我进行了更改，但收到一条新的错误消息

运行时错误 '-2147216900 (80040e14)' [Microsoft][ODBC SQL Server 驱动程序][SQL Server] 无法将值 NULL 插入列 'DiagnosisOrdinal'，表 'Office.dbo.Test' 列不允许空值。 插入失败。

看来我的插入语句仍在引用（或试图引用）SQL 服务器中的表。 “Office”是我从中提取的数据库名称。

我是否必须关闭连接然后将数据粘贴到我的本地 Access 表中？ 如果我想对多个表执行此操作，是否必须重新打开和关闭连接？

我改变了我的执行语句

Cn.Execute "INSERT INTO Access Table SELECT dbo_SQLServerTable.* FROM dbo_SQLServerTable;"

到

Cn.Execute "INSERT INTO Test(VisitID, Provider) SELECT VisitID, Provider FROM dbo.SQLServerTable;"

Answer 1

您不希望在 SQL 表中的 SELECT 中使用表前缀。 只需执行SELECT * FROM dbo_SQLServerTable; 但是，最佳实践不是使用SELECT *而是指定列以防表模式发生变化。

Answer 2

针对这个特定问题有一些建议

1. 传递查询
2. 来自 SQL Server 的链接表。 Youll prolly 必须设置一个 dsn 文件，这不是非常困难。
3. 或者直接在 SQL Server Insert into Access from SQL Server 中处理
4. 通过 VBA 的 ODBC 连接（你在做什么，看起来最复杂）

所有这些方法都可以正常工作。 我建议使用链接表，这样您就不会重复数据，但这对您来说是一种耻辱，因为我不知道项目的要求。

Answer 3

dbo_SQLServerTable 是 Access 表名，而不是 SQL 服务器表名。 因为您已经创建了链接表 dbo_SQLServerTable，所以您可以使用以下 VBA 代码。

Currentproject.connection.execute "INSERT INTO MyAccessTable(fld1, fld2, fld3) SELECT fld1, fld2,fld3 FROM dbo_SQLServerTable"

无需在 VBA 代码中创建连接对象。 Currentproject.connection 始终可供引用。

Answer 4

我能想到的最少代码是使用传递查询。

设置对有问题的服务器数据库的 PT 查询。

然后，您在 access 中创建新表的代码如下所示：

Sub TestImport()

  Dim strSQL     As String
  
  With CurrentDb.QueryDefs("qryPassR")
     .SQL = "select * from tblHotels"
  End With
  
  Dim strLocalTable  As String
  
  strLocalTable = "zoo"
  
  CurrentDb.Execute "select * into " & strLocalTable & " FROM qryPassR"
  
End Sub

以上当然假设您在创建 PT 查询时设置了到 sql server（一个数据库）的连接。 上述方法很好，因为您不会在代码中处理连接字符串。

但是，鉴于您需要（想要）指定数据库（和可能的服务器），那么上面变成了这样：

Sub TestImport2()

  Dim strSQL           As String
  Dim strServer        As String
  Dim strDatabase      As String
  Dim strUser          As String
  Dim strPass          As String
  
  strServer = ""
  strDatabse = ""
  strUser = ""
  strPass = ""
  
  Dim strLocalTable       As String
  Dim strServerTable      As String
  
  With CurrentDb.QueryDefs("qryPassR")
     .Connect = dbCon(strServer, strDatabase, strUser, strPass)
     .SQL = "select * from " & strServerAble
  End With
  
  CurrentDb.Execute "select * into " & strLocalTable & " FROM qryPassR"
  
End Sub

上面使用了一个“方便”的函数来创建你的连接字符串。

该函数如下：

Public Function dbCon(ServerName As String, _
                     DataBaseName As String, _
                     Optional UserID As String = "", _
                     Optional USERpw As String, _
                     Optional APP As String = "Office 2010", _
                     Optional WSID As String = "Import") As String

   ' returns a SQL server conneciton string
   
  dbCon = "ODBC;DRIVER=" & SQLDRIVER & ";" & _
          "SERVER=" & ServerName & ";" & _
          "DATABASE=" & DataBaseName & ";"
          If UserID <> "" Then
             dbCon = dbCon & "UID=" & UserID & ";" & "PWD=" & USERpw & ";"
          End If
          dbCon = dbCon & _
          "APP=" & APP & ";" & _
          "WSID=" & WSID & ";" & _
          "Network=DBMSSOCN"

End Function

编辑

海报要求解决方案将数据附加到现有表中。

在这种情况下，只需更改以下内容：

  CurrentDb.Execute "select * into " & strLocalTable & " FROM qryPassR"

到

  CurrentDb.Execute "INSERT INTO " & strLocalTable & " SELECT * FROM qryPassR"