我以各种方式无法获得正确的代码。
我尝试了不同的方法，但是我无法让Join工作。
一个文件是.sep，另一个文件是.ses都是可以通过Access查看的CAD文件。
表一是该产品中包含的产品列表。它应该参考表二，表二对此有描述。
Option Explicit
SubStücklisteJoinAbfrage（）
Dim con As Object
Dim con2As Object
Dim rsAs Object
Dim AccessFileAs String
Dim AccessPfad2 As String
Dim AccessFile2 As String
Dim strTableAs String
Dim strTable2 As String
Dim AccessPasswordAs String
Dim SQL As String
Dim i As Integer
Application.ScreenUpdating = False
AccessFile = "C:\Users\FE3\Desktop\SEP-Dateien\Ansicht-Netze_BW.sep"
AccessFile2 = "C:\Users\FE3\Desktop\Symbols\Types.ses"
AccessPfad2 = "C:\Users\FE3\Desktop\Symbols\"
AccessPassword = "HIDDEN"
strTable = "AllComponentTypesCount"
strTable2 = "Type"
On Error Resume Next
Set con = CreateObject("ADODB.connection")
Set con2 = CreateObject("ADODB.connection")
If Err.Number <> 0 Then
MsgBox "Connection was not created!", vbCritical, "Connection Error"
Exit Sub
End If
On Error GoTo 0
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & AccessFile & ";" & _
"Jet OLEDB:Database Password=" & AccessPassword
con2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & AccessFile2 & ";" & _
"Jet OLEDB:Database Password=" & AccessPassword
SQL = "SELECT * " _
& "FROM Ansicht-Netze_BW.sep AllComponentTypesCount AS 'Products' " _
& "LEFT JOIN [text;database=" & AccessPfad2 & "].Types.ses AS Types " _
'& "ON AllComponentTypesCount.160040 = Types.Type"
On Error Resume Next
Set rs = CreateObject("ADODB.Recordset")
If Err.Number <> 0 Then
Set rs = Nothing
Set con = Nothing
MsgBox "Recordset wurde nicht erstellt!", vbCritical, "Recordset Error"
Exit Sub
End If
On Error GoTo 0
rs.CursorLocation = 3 'adUseClient on earlybinding
rs.CursorType = 1 'adOpenKeyset on earlybinding
rs.Open SQL, con
If rs.EOF And rs.BOF Then
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
Set con2 = Nothing
Application.ScreenUpdating = True
MsgBox "Keine Aufzeichnungen im Recordset!", vbCritical, "No Records"
Exit Sub
End If
For i = 0 To rs.Fields.count - 1
Sheets("Stückliste").Cells(1, i + 1) = rs.Fields(i).Name
Next i
Sheets("Stückliste").Range("A2").CopyFromRecordset rs
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
Sheets("Stückliste").Columns("A:E").AutoFit
Application.ScreenUpdating = True
MsgBox "Produktliste wurde erfolgreich aus '" & strTable & "' generiert!", vbInformation, "Done"
()？语法如下：SELECT CategoryName, ProductName FROM Categories LEFT JOIN Products ON Categories.CategoryID = Products.CategoryID;•这里不应该有AS某个地方Ansicht-Netze_BW.sep AllComponentTypesCount吗？