因此,我尝试做的是将数据从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选项,或者我需要另一种方法来复制到链接表。这样一个简单的复制和粘贴逐行宏 - 我也无法找到,因为大多数理智的人只会写一个查询。
谢谢!