레코드 집합의 VBA 오류, .open이 작동하지 않습니다.

Question

With 문에서 ".Open"행에 오류가 발생합니다.

모든 참조가 올바르게 정의되었는지 확인하려고했습니다. 그 밖의 무엇이 문제를 일으킬 수 있습니까? 전문 지식을 가져 주셔서 감사합니다.

Option Explicit 



Sub ConnectTODB2() 
'early binding 

Dim CustomerTEST As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim sqlText As String 
Dim ConStrAccess As String 

Set CustomerTEST = New ADODB.Connection 
ConStrAccess = "Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data   Source=C:\Users\YacubDavid\Desktop\CIC SOD TOOL 2011 GBW.mdb;Mode=ReadWrite;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False" 



    CustomerTEST.Open ConStrAccess 

    sqlText = "select * FROM 50 GBW People;" 
    Set rs = New ADODB.Recordset 

    rs.Open sqlText, CustomerTEST, adOpenForwardOnly, adLockReadOnly, adCmdText 



'Worksheets.Add 
'Range("A2").CopyFromRecordset rs 




    rs.Close 
    CustomerTEST.Close 
    Set CustomerTEST = Nothing 

최종 하위

Answer 1

업데이트 12/20 : 테이블 이름 주위에 [] 넣습니다. 또 다른 옵션은 다음과 같은 접근 방식 :

Option Explicit 

Sub ConnectTODB() 
'early binding 

Dim CustomerTEST As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim r As Range 
Dim ConStrAccess As String 
Dim sqlText   As String 

Set CustomerTEST = New ADODB.Connection 
ConStrAccess = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
         "Data Source=C:\Users\YacubDavid\Desktop\xyz SOD TOOL 20x1 abc.mdb;" & _ 
         "Jet OLEDB:Engine Type=5;" & _ 
         "Persist Security Info=False;" 
CustomerTEST.Open ConStrAccess 

sqlText = "select * from [50 GBW People];" 
Set rs = New ADODB.Recordset 
rs.Open sqlText, CustomerTEST, adOpenForwardOnly, adLockReadOnly, adCmdText 

'Worksheets.Add 
'Range("A2").CopyFromRecordset rs 

rs.Close 
CustomerTEST.Close 
Set CustomerTEST = Nothing 

End Sub