Left Join Operatöründe hata

[tamer42]

Merhabalar,
Ekli dosyada Hedef sayfasında;
Kaynak Sayfasından "DüşeyAra" formülü ile aldığım verileri, aşağıdaki kodda ADO "Left Join" operaatörü ile almak istediğimde hiç beklemediğim bir şekilde veri geliyor.

DüşeyAra ile aldığım veriler doğru gelirken; Left Join operaatörü ile saçma sapan veriler geliyor.
nerede hata yapıyorum, bir türlü içinden çıkmadım.

şimdiden teşekkürler,
iyi çalışmalar.

Sub LeftJoinAction()
Dim Con As Object, RS As Object
Dim WS As Worksheet, Sht As Worksheet
Dim Rng As Range, tmpArray As Variant
Dim myFile As String, qry As String
Dim LR As Long, LC As Byte, i As Byte

Dim arrMs As Variant

'''On Error GoTo errMsg

Set WS = Sheets("Hedef")

WS.Range("D:E").ClearContents

myFile = ThisWorkbook.FullName

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

    strConnection = _
        "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "User ID=Admin;" & _
        "Data Source='" & myFile & "';" & _
        "Extended Properties=""Excel 12.0;hdr=yes"""
 
    sorgu = _
        "Select t2.[VP Name] from [Hedef$] as t1 " & _
        "left join " & _
       " [Kaynak$] as t2 " & _
        "on t1.[Cost centre] = t2.[CC code]"

Con.Open strConnection

Set RS = Con.Execute(sorgu)

WS.Activate

WS.Range("D2").CopyFromRecordset RS

80:

Set RS = Nothing
Con.Close
Set Con = Nothing

Set WS = Nothing

Exit Sub

errMsg:
MsgBox "There seems to be an error" & vbCrLf & Err.Description

End Sub

 

[FERAZ]

Merhaba.
Dosyanızı deneyemedim ama ado ile first ve left join ile bence tam sonuç alınabilinir.

 

[tamer42]

Merhaba.
Dosyanızı deneyemedim ama ado ile first ve left join ile bence tam sonuç alınabilinir.

Hocam bende sizinle aynı fikirdeyim ama burada neden olmuyor?

iyi pazarlar...

 

[Erdem Akdemir]

Merhaba,

Verileriniz düzensiz olduğu için istediğiniz sonuçlar gelmiyor.
Sayı gibi görünse de metin olan ifadeler var.
Ayrıca düşeyara'da tek sonuç geliyor olabilir ama aranan değere ait diğer sonuçlarda Left join'de gelir.
ADO nesnesini kullanacaksınız veritabanının düzgün ve stabil olması gerekir

 

[FERAZ]

Hocam bende sizinle aynı fikirdeyim ama burada neden olmuyor?

iyi pazarlar...

İyi pazarlar.
Altın üye olmaığım için dosyanızı inceleyemedim.Ama unutmazsam harici siteye örnek yükleyebilirim first ile.Ayrıca imex=1 ekleyebilirsinizde düzensizse üstadın dediği gibi ise.

 

[tamer42]

İyi pazarlar.
Altın üye olmaığım için dosyanızı inceleyemedim.Ama unutmazsam harici siteye örnek yükleyebilirim first ile.Ayrıca imex=1 ekleyebilirsinizde düzensizse üstadın dediği gibi ise.

Dosya linki ektedir Hocam
https://s6.dosya

 

[Korhan Ayhan]

Diğer sorunuzda paylaştığım bilgiyi yenilemek isterim. Burada belirttiğim kurallara dikkat etmenizde fayda var.

SQL sorgusunda "Is Not Null" problemi hk.

İyi Pazarlar, Ekli dosyada SQL koduyla boş olmayanları almak istediğimde sadece "0" değerleri gelmekte; oysa başka bir çok ifade bulunmuyor. onları neden getirmiyor olabilir? problemin kaynağını bulamadım, nasıl bir çözüm öneririsiniz? Dim RS3 As Object Dim strSQL As String Set RS3 =...

www.excel.web.tr

Ek olarak örnek dosyayı inceleyebilirsiniz. Yardımcı sorgu kullanarak çözüm ürettim.

 

[Haluk]

Korhan Bey, "Tekrarsız Liste" sayfasına sütun başlıklarını da aktarmanız gerekiyor, yoksa kod çalışmıyor.

.

 

[Korhan Ayhan]

Hatırlatmanız için teşekkürler Haluk bey.

Dosyayı revize ettim.

 

[FERAZ]

Alttaki gibi sonuç getiriyor tabii A3 deki veri sayıya çevirilince.
Belki bunada bir çözüm bulunabilinir bakarım sonra.

        sorgu = "select K.ilkVPName from [Hedef$] as H left join " & _
                 "(select [CC code] ,first([VP Name]) as ilkVPName from [Kaynak$] group by [CC code]) as K " & _
                  "on K.[CC code]= H.[Cost centre]"

 

[FERAZ]

on (K.[CC code]& '')= (H.[Cost centre]& '')
Yukardaki gibi tek tırnaklar ekleyince çalıştı ne hikmetse A3 deki sayı olmasada.

        sorgu = "select K.ilkVPName from [Hedef$] as H left join " & _
                 "(select [CC code] ,first([VP Name]) as ilkVPName from [Kaynak$] group by [CC code]) as K " & _
                  "on (K.[CC code]& '')= (H.[Cost centre]& '')"

 

[tamer42]

Hatırlatmanız için teşekkürler Haluk bey.

Dosyayı revize ettim.

Çok teşekkür ederim Korhan Hocam
iyi haftalar, iyi çalışmalar.

 

[tamer42]

on (K.[CC code]& '')= (H.[Cost centre]& '')
Yukardaki gibi tek tırnaklar ekleyince çalıştı ne hikmetse A3 deki sayı olmasada.

        sorgu = "select K.ilkVPName from [Hedef$] as H left join " & _
                 "(select [CC code] ,first([VP Name]) as ilkVPName from [Kaynak$] group by [CC code]) as K " & _
                  "on (K.[CC code]& '')= (H.[Cost centre]& '')"

Hocam Teşekkürler,
ekli dosyada olduğu gibi; Kaynak dosyasında Out adında 3. bir sütun ekleyerek; bu alanda sadece "1" değeri olanları sorgulatarak çözüm üretebilir miyiz,
sorgunun sonuna;

WHERE K.[Out] = 1

ekledim, ama hata verdi.

iyi günler, iyi çalışmalar.

 

[Haluk]

    Sorgu = " Select K.ilkVPName " & _
            " From [Hedef$] As H " & _
            " Left Join " & _
            " ( " & _
            "   Select [CC code] ,First([VP Name]) As ilkVPName From [Kaynak$]  Where [Out] = 1 Group By [CC code] " & _
            " )  As K  " & _
            " On (K.[CC code]& '')= (H.[Cost centre]&'') "

.

 

[tamer42]

    Sorgu = " Select K.ilkVPName " & _
            " From [Hedef$] As H " & _
            " Left Join " & _
            " ( " & _
            "   Select [CC code] ,First([VP Name]) As ilkVPName From [Kaynak$]  Where [Out] = 1 Group By [CC code] " & _
            " )  As K  " & _
            " On (K.[CC code]& '')= (H.[Cost centre]&'') "

.

Teşekkürler Haluk;
Hocam iyiki varsınız!