将 MS-SQL 数据导入 Access 表 ADO

Question

我希望您能帮助我或为我指明正确的方向。多年来，我一直使用一种非常简洁的方法将数据（在 VB6 中，是的！）从 MS-SQL 表导入到 MS-Access 数据库/表中，如下所示：-

没有内部连接的工作查询

Dim myConnection As ADODB.connection
Dim mySQL As String
Set myConnection = New ADODB.connection
myConnection.Open "Driver={Microsoft Access Driver (*.mdb)};" & "Dbq=DB1.mdb;" & "DefaultDir=C:\Temp;" & "Uid=Admin;Pwd=;"
mySQL = "SELECT * INTO [Xray] FROM [ODBC;Driver=SQL Server; SERVER=myServer;DATABASE=myDatabase;UID=myUID;PWD=myPassword;].[ShipTo] WHERE [ShipTo].Company='ABC001'"
myConnection.Execute mySQL
Set myConnection = Nothing

但是，我现在第一次需要开始使用内部联接。我以为我可以像上面那样简单地做一些事情，但是我已经陷入困境并且不知道如何进步。我的内部连接查询如下：-

SELECT        
    dbo.InvcHead.InvoiceNum AS DocNum, 
    SUM(dbo.InvcTax.TaxAmt) AS DocTaxAmt
FROM                        
    dbo.InvcTax
        INNER JOIN
    dbo.InvcHead ON (dbo.InvcTax.InvoiceNum = dbo.InvcHead.InvoiceNum) 
GROUP BY 
dbo.InvcHead.InvoiceNum**

由于我明显缺乏使用经过尝试和测试的方法的连接的经验，我收到一个错误，这可能是因为我的语法，但我只是看不到光。下面是新的连接字符串/查询尝试：-

内连接查询失败

Dim myConnection As ADODB.connection
Dim mySQL As String

Set myConnection = New ADODB.connection
myConnection.Open "Driver={Microsoft Access Driver (*.mdb)};" & "Dbq= DB1.mdb;" & "DefaultDir= C:\Temp;" & "Uid=Admin;Pwd=;"

mySQL = ""
mySQL = mySQL & "SELECT "
mySQL = mySQL & "dbo.InvcHead.InvoiceNum AS DocNum, "
mySQL = mySQL & "SUM(dbo.InvcTax.TaxAmt) As Doctaxamt "
mySQL = mySQL & "INTO [Xray] FROM [ODBC;Driver=SQL Server; SERVER= myServer;DATABASE= myDatabase;UID= myUID;PWD=myPassword;].[dbo.InvcTax] "
mySQL = mySQL & "Inner Join dbo.InvcHead ON (dbo.InvcTax.InvoiceNum = dbo.InvcHead.InvoiceNum)"
mySQL = mySQL & "Group By dbo.InvcHead.Invoicenum"

myConnection.Execute mySQL
Set myConnection = Nothing

我收到的错误消息是“连接操作中的语法错误”

是否可以通过内部连接查询使用此方法进行提取？我怀疑我的问题与我引用连接的第一个表的脚本区域有关。

.[dbo.InvcTax] "

如果这是不可能的，有没有办法动态地创建一个表（就像我所做的那样），而是从一个记录集中？

我们将不胜感激任何引导正确方向的帮助。

谢谢， 杰克

Answer 1

Access SQL 中的 dbo 前缀失败，您错过了第二个表的数据库引用：

mySQL = ""
mySQL = mySQL & "SELECT "
mySQL = mySQL & "T1.InvoiceNum AS DocNum, "
mySQL = mySQL & "SUM(T1.TaxAmt) As Doctaxamt "
mySQL = mySQL & "INTO [Xray] FROM [ODBC;Driver=SQL Server;SERVER=myServer;DATABASE=myDatabase;UID=myUID;PWD=myPassword;].dbo.InvcTax AS T1 "
mySQL = mySQL & "INNER JOIN [ODBC;Driver=SQL Server;SERVER=myServer;DATABASE=myDatabase;UID=myUID;PWD=myPassword;].dbo.InvcHead AS T2 ON (T1.InvoiceNum = T2.InvoiceNum)"
mySQL = mySQL & "Group By T2.Invoicenum"