SQL'den Excel'e Veri Çekme

bthn35

Altın Üye
Katılım
12 Kasım 2009
Mesajlar
191
Excel Vers. ve Dili
365 ProPlus TR
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ü?

Kod:
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'
 
Katılım
24 Temmuz 2007
Mesajlar
728
Excel Vers. ve Dili
Excel 2010 tr
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
 
Katılım
24 Temmuz 2007
Mesajlar
728
Excel Vers. ve Dili
Excel 2010 tr
hatayı göremiyorum,
tırnak işaretlerinde problem olabilir mi?
 

bthn35

Altın Üye
Katılım
12 Kasım 2009
Mesajlar
191
Excel Vers. ve Dili
365 ProPlus TR
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"
 
Katılım
24 Temmuz 2007
Mesajlar
728
Excel Vers. ve Dili
Excel 2010 tr
Where satırında da tarihler yerine değişkenleri yazmanız gerekir
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Ö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.
 
Katılım
17 Nisan 2007
Mesajlar
319
Excel Vers. ve Dili
Office 2013 Türkçe
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...
 
Katılım
12 Aralık 2015
Mesajlar
1,200
Excel Vers. ve Dili
Türkçe Ofis 2007
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
Kod:
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
 
Üst