Ado ile başka sayfadan belli kriter göre veri getirme hk.

[hakanaslan78]

Merhaba Arkadaşlar,

Aşağıdaki kodlarile başka sayfalardan veri alıyorum. Benim sizden şöyle bir ricam olacak. Verilerin geldiği dosyada Fatura Tarih sütünundaki belli tarih aralığınıdaki belirliyerek ( Fatura tarihi aralığı 01.01.2021 - 01.05.2021 ) değerlerin getirilmesini istiyorum. Veri dosyama sql den değerler gelmektedir ve yaklaşık satır sayısı 190.000. Birde kodlarda değişiklik yaparak verilerin çekilmesi hızlandırılabilirmi. Bu konuda bana yardımcı olursanız çok sevinirim.

Sub DEFOLU()
Dim Con As Object, Rs As Object, Sorgu As String
Set Con = CreateObject("AdoDB.Connection")
Set Rs = CreateObject("AdoDB.RecordSet")
Con.Open "provider=microsoft.ACE.oledb.12.0;data source=C:\Users\Hakanaslan.AYASLOGO\Desktop\AYAS İNDEX\A\ORTAK ÇALIŞMA\TIGER MANUEL SATIŞ RAPORLARI\AYRINTILI FATURA RAPORU.xlsx;extended properties=""Excel 12.0;hdr=yes"""

Sorgu = "Select [MALZEME KODU], [MALZEME AÇIKLAMASI], [Fatura Tarihi], [Fiş Türü], [Giriş Miktarı], [Giriş Net Tutar], [Çıkış Miktarı], [Çıkış Net Tutar], [BİRİM TUTARI] From [ALIŞ SATIŞ RAPORU$]"

Rs.Open Sorgu, Con, 1, 1
Range("A3").CopyFromRecordset Rs
Rs.Close: Con.Close
Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing

End Sub

Saygılarımla,

Hakan ASLAN

 

[Haluk]

Başlangıç ve bitiş tarihleri J2 ve J3 hücrelerindeyse;

    Dim dateStart As Double, dateEnd As Double
    
    dateStart = CDbl(Range("J2"))
    dateEnd = CDbl(Range("J3"))
    
    Sorgu = "Select [MALZEME KODU], [MALZEME AÇIKLAMASI], [Fatura Tarihi], [Fiş Türü], " & _
            "[Giriş Miktarı], [Giriş Net Tutar], [Çıkış Miktarı], [Çıkış Net Tutar], " & _
            "[BİRİM TUTARI] From [ALIŞ SATIŞ RAPORU$] Where [Fatura Tarihi] Between " & dateStart & " and " & dateEnd

 

[hakanaslan78]

Başlangıç ve bitiş tarihleri J2 ve J3 hücrelerindeyse;

    Dim dateStart As Double, dateEnd As Double
   
    dateStart = CDbl(Range("J2"))
    dateEnd = CDbl(Range("J3"))
   
    Sorgu = "Select [MALZEME KODU], [MALZEME AÇIKLAMASI], [Fatura Tarihi], [Fiş Türü], " & _
            "[Giriş Miktarı], [Giriş Net Tutar], [Çıkış Miktarı], [Çıkış Net Tutar], " & _
            "[BİRİM TUTARI] From [ALIŞ SATIŞ RAPORU$] Where [Fatura Tarihi] Between " & dateStart & " and " & dateEnd

Haluk Bey çok teşekkür ederim, ellerinize sağlık çok işime yaradı. Size bir sorum olacak, sorgu kısmında [Ort.Alış Birim Fiy.] başlığında yazım hatası alıyorum, farklı bir şekildemi yazmalayım ?

Saygılarımla,

Hakan ASLAN

 

[Haluk]

Alan adı o şekildeyse, sorguda şöyle kullanın;

[Ort#Alış Birim Fiy#]

Yani "." karakteri gördüğünüz yerde "#" kullanacaksınız....

.

 

[hakanaslan78]

Alan adı o şekildeyse, sorguda şöyle kullanın;

[Ort#Alış Birim Fiy#]

Yani "." karakteri gördüğünüz yerde "#" kullanacaksınız....

.

Çok teşekkür ederim.