Sql kodundaki tarih kısıtını excel hücresinden alma

[kuzey_yolcu]

Merhaba,
Elimizde "SELECT SUM(TBLMCEK.TUTAR) FROM TBLMCEK INNER JOIN TBLBNKHESSABIT ON TBLBNKHESSABIT.NETHESKODU=TBLMCEK.SC_VERILENK WHERE TBLMCEK.VADETRH < "05.01.2011" AND TBLMCEK.SC_SONDUR="B" AND TBLBNKHESSABIT.ACIKLAMA="INGBANK TEMİNAT ÇEKLERİ" GROUP BY TBLBNKHESSABIT.ACIKLAMA " şeklinde bir sql sorgusu var. Bu sorgudaki "05.01.2011" tarihini, her defasında girip kodun içinden düzeltmek yerine; kodun bu tarihi, tarihin girileceği bir excel hücresinden veya bir inputboxtan almasını nasıl sağlayabiliriz?

 

[halit3]

Merhaba,
Elimizde "SELECT SUM(TBLMCEK.TUTAR) FROM TBLMCEK INNER JOIN TBLBNKHESSABIT ON TBLBNKHESSABIT.NETHESKODU=TBLMCEK.SC_VERILENK WHERE TBLMCEK.VADETRH < "05.01.2011" AND TBLMCEK.SC_SONDUR="B" AND TBLBNKHESSABIT.ACIKLAMA="INGBANK TEMİNAT ÇEKLERİ" GROUP BY TBLBNKHESSABIT.ACIKLAMA " şeklinde bir sql sorgusu var. Bu sorgudaki "05.01.2011" tarihini, her defasında girip kodun içinden düzeltmek yerine; kodun bu tarihi, tarihin girileceği bir excel hücresinden veya bir inputboxtan almasını nasıl sağlayabiliriz?

Pek anlamam ama;

"05.01.2011"

yukarıdaki kodun yerine aşağıdaki kodla değiştirin

& Cells(1, "A").Value &

not : tarihi A1 hücresinden alır.

 

[kuzey_yolcu]

& Cells(1, "A").Value &

Denedim, hata verdi kod.

 

[kuzey_yolcu]

Ek bilgi olarak şunu da söylemek istiyorum. Bu kod, bir erp yazılımının veritabanından veri almaktadır. Rapor da bu yazılıma entegre edilmiş bir excel sayfasında yer almakta ve burdan yani excelden çalışmaktadır. Yani excelin sunduğu nimetlerle bu sorunun halledilebileceğini zannediyorum. Araştırma yapıyorum fakat programlama bilgim sadece bu sql kodlarını yazabilecek seviyede olduğu için sonuca ulaşamıyorum.

 

[halit3]

Birde böyle deneyin

& CDate(Cells(1, "A").Value) &

başkada aklımdan bir şey gelmiyor.

 

[kuzey_yolcu]

& CDate(Cells(1, "A").Value) &

Malesef bu da olmadı. Birkaç değişik şekilde de deniyorum. Tırnak içinde falan yazıp. sql kod hata veriyor hep.

 

[halit3]

& CDate(Cells(1, "A").Value) &

Malesef bu da olmadı. Birkaç değişik şekilde de deniyorum. Tırnak içinde falan yazıp. sql kod hata veriyor hep.

Birde sadece böyle dene

Cells(1, "A").Value

 

[Korhan Ayhan]

Merhaba,

Birde aşağıdaki şekilde denermisiniz.

[B]"SELECT SUM(TBLMCEK.TUTAR) FROM TBLMCEK INNER JOIN TBLBNKHESSABIT ON TBLBNKHESSABIT.NETHESKODU=TBLMCEK.SC_VERILENK WHERE TBLMCEK.VADETRH < [COLOR=red]" & Cdbl(CDate(Cells(1, "A").Value) & "[/COLOR] AND TBLMCEK.SC_SONDUR="B" AND TBLBNKHESSABIT.ACIKLAMA="INGBANK TEMİNAT ÇEKLERİ" GROUP BY TBLBNKHESSABIT.ACIKLAMA "

[/B]

 

[kuzey_yolcu]

Sayın Korhan Ayhan ve halit3, en son yazdıklarınızı da denedim. Olmadı malesef

 

[halit3]

[B]"05.01.2011"[/B]

iki tırnak arasındaki tarih değerine bir isim yazıp denermisiniz. mesela

[B]"deneme"[/B]

 

[kuzey_yolcu]

iki tırnak arasındaki tarih değerine bir isim yazıp denermisiniz. mesela

o zaman da hata veriyor. ama kod çalışıyor ondan müsterih olun.

 

[halit3]

iki tırnak arasındaki tarih değerine bir isim yazıp denermisiniz. mesela

o zaman da hata veriyor. ama kod çalışıyor ondan müsterih olun.

çalışan örnek dosyanızı buraya ekleyin.

 

[Necdet]

Merhaba,

Olmaması doğal.

Sql i hiç kullanmadım o yüzden sormam gerek.

Eğer vt oracle olsaydı oracle da değişkenler çift tırnak değil tek tırnak arasında verilir.

sql de değişkenler çift tırnak arasında mı veriliyor?

Eğer durum bu ise tarihi hem bir hücreden alacak hemde tarihi sql cümlesi içinde "01.08.2010" şeklinde düzenlenmesi gerekecektir diye düşünüyorum.

Fikir olması açısından kodlarınızın tamamını görmek daha mantıklı olurdu.

 

[kuzey_yolcu]

Dosyada deneme yapıp sonuçlarını görmek için programa bağlanmak gerekeceği için dosyayı eklememiştim. Yoksa dosyayı görmeden çözüm üretmenizi istemek gibi bir zahmete katlanmanızı istemezdim tabiki.
Kodun tamamını ilk mesajımda vermiştim. Sql, sayı haricinde her şeyi iki tırnak arasına almamızı istiyor. Yoksa dikkate almıyor verileni.

 

[Necdet]

Merhaba,

Dener misiniz? bende merak ettim. A1 hücresinde tarih olduğu varsayılmıştır.

Dim Tarih As String
Dim sql As String
Tarih = """" & Format([A1], "dd.mm.yyyy") & """"
sql = "SELECT SUM(TBLMCEK.TUTAR) FROM TBLMCEK INNER JOIN TBLBNKHESSABIT ON TBLBNKHESSABIT.NETHESKODU=TBLMCEK.SC_VERILENK WHERE TBLMCEK.VADETRH < " & _
Tarih & " AND TBLMCEK.SC_SONDUR=""B"" AND TBLBNKHESSABIT.ACIKLAMA=""INGBANK TEMİNAT ÇEKLERİ"" GROUP BY TBLBNKHESSABIT.ACIKLAMA "

 

[halit3]

son hakkımı kullanmak istiyorum.
birde bunu deneyin

"""" & Cells(1, "A").Value & """"

 

[kuzey_yolcu]

Merhaba,

Dener misiniz? bende merak ettim. A1 hücresinde tarih olduğu varsayılmıştır.

Dim Tarih As String
Dim sql As String
Tarih = """" & Format([A1], "dd.mm.yyyy") & """"
sql = "SELECT SUM(TBLMCEK.TUTAR) FROM TBLMCEK INNER JOIN TBLBNKHESSABIT ON TBLBNKHESSABIT.NETHESKODU=TBLMCEK.SC_VERILENK WHERE TBLMCEK.VADETRH < " & _
Tarih & " AND TBLMCEK.SC_SONDUR=""B"" AND TBLBNKHESSABIT.ACIKLAMA=""INGBANK TEMİNAT ÇEKLERİ"" GROUP BY TBLBNKHESSABIT.ACIKLAMA "

Yalnız şöyle bir şey var. Bu excel dosyasından erp programına giriş yapıyorum. Çalışan kod, sadece verdiğim sql kodu. ve o da bir hücrede yer alıyor.
Dim Tarih As String
Dim sql As String
Tarih = """" & Format([A1], "dd.mm.yyyy") & """"
Yukarıda verdiğiniz bu kodu nereye yapıştıracağım? Visual Basic düzenleyicisinde yazdığım zaman compile error verdi.

 

[Necdet]

kodları boşuna istemedik herhalde

ne olduğunu tam olarak görmek için, illa biryerlere bağlanmak için değildi.

 

[Necdet]

Tekrar Merhaba,

"SELECT SUM(TBLMCEK.TUTAR) FROM TBLMCEK INNER JOIN TBLBNKHESSABIT ON TBLBNKHESSABIT.NETHESKODU=TBLMCEK.SC_VERILENK WHERE TBLMCEK.VADETRH < " & _
"""" & Format([A1], "dd.mm.yyyy") & """" & " AND TBLMCEK.SC_SONDUR=""B"" AND TBLBNKHESSABIT.ACIKLAMA=""INGBANK TEMİNAT ÇEKLERİ"" GROUP BY TBLBNKHESSABIT.ACIKLAMA "

 

[halit3]

[COLOR=red]"[/COLOR]05.01.2011[COLOR=red]"[/COLOR]

Anlamak amacıyla soruyorum yukarıdaki bölüme ait tarihin sağında ve solunda olan kırmızı işaretli tırnakları sildiğinizden eminmisiniz.

eğer silmediyseniz. yukarıdaki bölümü yani tırnak işaretleriyle beraber silip aşağıdaki bölümü ekleyip denermiziniz.

"""" & Cells(1, "A").Value & """"