Sql Left Join operatörünün Access te kullanımı

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
3,053
Excel Vers. ve Dili
Office 2013 İngilizce
Merhaba,
Aşağıdaki kod ile kapalı başka bir excel dosyasından Left Join operatörü kullanabiliyoruz,

Burada kaynak dosya olan WB2 Excel dosyası yerine Access veritabanı olursa kodlar üzerinde nasıl bir düzzenleme yapmak gerekecektir?

"db2.accdb"


Kod:
Sub demememe()

Set con = VBA.CreateObject("adodb.Connection")

    WB1 = ActiveWorkbook.FullName
    WB2 = "kaynak dosya"
            
    strConnection = _
        "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "User ID=Admin;" & _
        "Data Source='" & ActiveWorkbook.FullName & "';" & _
        "Extended Properties=""Excel 12.0;hdr=yes"""

    sorgu = _
        "Select t2.[şehir] from [" & WB1 & "].[hedef$] as t1 " & _
        "left join " & _
        "[" & WB2 & "].[Plakalar$] as t2 " & _
        "on t1.[plaka] = t2.[plaka]"

con.Open strConnection

Set rs = con.Execute(sorgu)

Range("B2").CopyFromRecordset rs

End Sub
teşekkürler,
iyi Çalışmalar.
 
Üst