where koşuluna hücrede değişken tanımlama

[frtnamu]

arkadaşlar konu ile ilgili forumdaki yazıları uygulamaya çalıştım ama olmadı
sorunum query ile sql den excele aldığım sorguya değişken atamak yani WHERE KOŞULUNU excel hücresinden alması ;
query ile tek tabloda parametre ile istediğim oluyor fakat iç içe tablolarda olmuyor


BAĞLANTI ;

DRIVER=SQL Server;SERVER=HP\SQLEXPRESS;UID=XXX;PWD=XXX;APP=20 07 Microsoft Office system;WSID=HP\SQLEXPRESS;DATABASE=DATA2015;Networ k=DBNMPNTW;Address=\\HP\pipe\MSSQL$SQLEXPRESS\sql\ query

SORGU ;

SELECT*FROM CARI INNER JOIN
RUT ON CARI.KOD = RUT.CARIKOD INNER JOIN
CARIBORCALACAK ON CARI.KOD = CARIBORCALACAK.CARIKOD INNER JOIN
SATICI ON RUT.SATICITKOD = SATICI.KOD
WHERE (CARIBORCALACAK.YIL = 2014) """burada between ifadesi de olacak ; where tarih between 01012015 and 31122015 gibi "" buradaki tarih referansını excel hücresinden aldırmak istiyorum

AYRICA BAĞLANTI İÇİN HANGİ ADO NESNESİNİ SEÇMEM GEREKİYOR

yardımlarınız için şimdiden teşekkürler

 

[Erdem Akdemir]

arkadaşlar konu ile ilgili forumdaki yazıları uygulamaya çalıştım ama olmadı
sorunum query ile sql den excele aldığım sorguya değişken atamak yani WHERE KOŞULUNU excel hücresinden alması ;
query ile tek tabloda parametre ile istediğim oluyor fakat iç içe tablolarda olmuyor


BAĞLANTI ;

DRIVER=SQL Server;SERVER=HP\SQLEXPRESS;UID=XXX;PWD=XXX;APP=20 07 Microsoft Office system;WSID=HP\SQLEXPRESS;DATABASE=DATA2015;Networ k=DBNMPNTW;Address=\\HP\pipe\MSSQL$SQLEXPRESS\sql\ query

SORGU ;

SELECT*FROM CARI INNER JOIN
RUT ON CARI.KOD = RUT.CARIKOD INNER JOIN
CARIBORCALACAK ON CARI.KOD = CARIBORCALACAK.CARIKOD INNER JOIN
SATICI ON RUT.SATICITKOD = SATICI.KOD
WHERE (CARIBORCALACAK.YIL = 2014) """burada between ifadesi de olacak ; where tarih between 01012015 and 31122015 gibi "" buradaki tarih referansını excel hücresinden aldırmak istiyorum

AYRICA BAĞLANTI İÇİN HANGİ ADO NESNESİNİ SEÇMEM GEREKİYOR

yardımlarınız için şimdiden teşekkürler

Örnek bir dosya ekleyebilir misiniz?

ado nesnesi için

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

recordset nesnesi içinde sorgudan sonra

set rs = con.execute(sorgu)

hücreden değer vermek istiyorsanız where tarih = ' " &range("a1") &"' yazmanız gerekir.

Ayrıca tarih için cdate kullanmakta gerekebilir.

 

[frtnamu]

http://www.dosya.tc/server2/r5c6py/SQL_SORGU.rar.html

hocam dosyada biraz açıklamaya çalıştım
activex data object 2,8 seçili

 

[Erdem Akdemir]

Örnek dosya üzerinden çözüm üretmek çok zor.

Bağlandığınız veritabanınıda bilmek lazım,programın tarih formatını bilmek gerekiyor.

 

[frtnamu]

Örnek dosya üzerinden çözüm üretmek çok zor.

Bağlandığınız veritabanınıda bilmek lazım,programın tarih formatını bilmek gerekiyor.

hocam sql server 2005
tarih formatı 20151231

 

[kada006]

sql den veri alırken where in komutu

Örnek bir dosya ekleyebilir misiniz?

ado nesnesi için

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

recordset nesnesi içinde sorgudan sonra

set rs = con.execute(sorgu)

hücreden değer vermek istiyorsanız where tarih = ' " &range("a1") &"' yazmanız gerekir.

Ayrıca tarih için cdate kullanmakta gerekebilir.

Hocam bu şekilde sorguda where in komutu nasıl kullanılabilir
örneğin; where in (1,2,3,4) ayları seçmek için hücreye yazdığım ayları sorguya alacak

 

[Zeki Gürsoy]

"... where month([tarih]) in (1,2,3,4)" şeklinde kullanmalısınız.