SQL'den Excel'e Veri Çekme

[bthn35]

Merhaba,
Excel'de aşağıdaki kodu kullanarak SQL'den verileri excel'e aktarıyorum ancak yapmak istediğim kodu hiç değiştirmeden bir buton yardımıyla koddaki tarih aralığını belirleyip öyle kodu çekmem mümkün mü?

SELECT TOP 2000 [PrimaryObjectName],
      [MessageUTC]
      ,[SecondaryObjectName]   
FROM [SWHSystemJournal].[dbo].[JournalLog]
where SecondaryObjectName like '%tur%' and MessageUTC between '2018-06-25 00:00:00' and '2018-07-01 23:59:00'

 

[merakli_72]

Selam;
Tr1="2018-06-25 00:00:00"
Tr2="2018-07-01 23:59:00"
.......
where SecondaryObjectName like '%tur%' and MessageUTC between '" & Tr1 &"' and '" & Tr2 &"'"
şeklinde denermisiniz

 

[bthn35]

Merhaba,
Aşağıdaki hatayı veriyor

Selam;
Tr1="2018-06-25 00:00:00"
Tr2="2018-07-01 23:59:00"
.......
where SecondaryObjectName like '%tur%' and MessageUTC between '" & Tr1 &"' and '" & Tr2 &"'"
şeklinde denermisiniz

 

[merakli_72]

hatayı göremiyorum,
tırnak işaretlerinde problem olabilir mi?

 

[bthn35]

Aşağıdakileri herhangi 2 satıra yapıştırmam yeterli mi? Yoksa başka bir işlem mi yapmam gerekiyor?
Tr1="2018-06-25 00:00:00"
Tr2="2018-07-01 23:59:00"

 

[merakli_72]

Where satırında da tarihler yerine değişkenleri yazmanız gerekir

 

[Zeki Gürsoy]

Önerilen değişken değerleri ADO & VBA kodu gerektirir. Anladığım kadarıyla Excelin "dış veri" özelliğini kullanacaksınız.
Microsoft query ile dış veri alarak editörde kısıt kısmına köşeli parantez [] yazıp parametre özelliği açılır. Nasıl yapıldığı konusunu buradan tarif etmek de biraz zor.

 

[bthn35]

Merhaba,
Excel'i aşağıdaki linke yükledim, rica etsem istediğim gibi üstünde değişiklik yapıp verir misiniz?
http://s7.dosya.tc/server8/1n8lyq/rapor2.xlsx.html

 

[sakoz]

verdiği hata tırnak işareti ile ilgili bir hata

SELECT TOP 2000 [PrimaryObjectName],
[MessageUTC]
,[SecondaryObjectName]
FROM [SWHSystemJournal].[dbo].[JournalLog]
Tr1="2018-06-25 00:00:00"
Tr2="2018-07-01 23:59:00"
where SecondaryObjectName like '%tur%' and MessageUTC between ' "& Tr1 &" ' and ' " & Tr2 &" '

bu şekilde denermisiniz...

 

[alicimri]

CommandText'i, ancak makro ile değişken yapabilirsiniz.F1 ve F2 hücrelerini metin olarak biçimlendirin ve hücrelere tarihleri 2018-06-25 00:00:00 şeklinde girin F3'e ise adı veya adın bir kısmını girin makroyu çalıştırın

Sub Makro2()
    With Range("A1").ListObject.QueryTable
        .CommandText = Array( _
        "Select PrimaryObjectName, MessageUTC, SecondaryObjectName from JournalLog where SecondaryObjectName like '%" & Range("f3") & "%' an" _
        , "d MessageUTC between '" & Range("f1") & "' And '" & Range("f2") & "'")
        .Refresh BackgroundQuery:=False
    End With
End Sub