目标是将 Access 表与 SQL Server 表中的匹配数据连接起来。我会使用 Access 中的链接表来执行此操作,但遇到了 Access 的 BigInt 问题(我会创建一个视图来将 BigInt 转换为 Int,但现在这不是一个选项)。
所以我一直在尝试创建两个记录集并将它们加入到 VBA/ADO 中。连接的左侧是包含 Season 和 WeekNum 的 Access 表,连接的右侧是包含 Season 和 WeekNum 以及其他数据的 SQL Server 表。这工作正常,直到我尝试创建作为联接结果的第三个记录集(在本示例中,我没有尝试进行联接,只是通过从 Access 记录集中选择来进行联接的第一部分)。当我执行 Set ObjRecordset3 = "SELECT * FROM " & Access_Recordset ' 时,出现类型不匹配错误。
是否有可能连接两个记录集?如果是这样,这是如何完成的?
Function Join()
Dim SQL_Server_Connection As ADODB.Connection
Set SQL_Server_Connection = New ADODB.Connection
Dim SQL_Server_Query As String
Dim SQL_Server_Recordset As New ADODB.Recordset
Dim Access_Recordset As New ADODB.Recordset
Dim ObjConnection As ADODB.Connection
Set ObjConnection = CreateObject("ADODB.Connection")
Dim ObjRecordset3 …Run Code Online (Sandbox Code Playgroud)