如何使用VBA将数据从非链接表复制到Access 2010中的链接表

时间:2017-02-16 00:59:47

标签: sql vba ms-access access-vba odbc

因此,我尝试做的是将数据从Access本地表复制到SQL Server上的链接表。我希望通过宏工作,以便在打开报告时触发。或者我可以绕过链接表并直接插入远程服务器。

我难以找到的是完成此任务的正确语法。这应该很容易,但显然不是。

Public Sub CopyPT()
Dim strSQL As String

Dim strConnect As String
Dim strDatabase As String
Dim strTableName As String

ODBC_String = "ODBC;DRIVER={SQL Server};SERVER=aaa;DATABASE=bbb;UID=ccc;PWD=ddd;" _
                & "LANGUAGE=us_english;TRUSTED_CONNECTION=No"

' Id also like to truncate the Destination table here too
strSQL = "SELECT * INTO dbo_DESTINATION_TABLE IN [" & ODBC_String & "]" _
           & " FROM [ACCESS_LOCAL_TABLE];"
DoCmd.RunSQL strSQL

MsgBox "Success!"
End Sub

我需要为IN语句获取正确的格式,它似乎没有ODBC选项,或者我需要另一种方法来复制到链接表。这样一个简单的复制和粘贴逐行宏 - 我也无法找到,因为大多数理智的人只会写一个查询。

谢谢!

0 个答案:

没有答案