Sqlde tarihi hücreden çekmek

[cavanoos]

Merhaba arkadaşlar;

Sqlde "cari kart" tablosunda kayıt tarihleri var.Sqlden veriyi çekip excele atıyorum.Sütun olarak cari kod ve kayıt tarihi var.Ve uzun bir liste çıkıyor.

Acaba şunu yapabilir miyiz ?

A1 hücresine tarih yazıcam ve bir makro oluşturup A1 hücresindeki tarihten büyük olan kayıt tarihlerini vericek.Makro sql ile bağlantılı olmalı ki istediğimiz sonucu versin.

Yardım edebilir misiniz ?

 

[cavanoos]

Arkadaşlar;

Makro3 Makro
'With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER=SQL Server;SERVER=SERVER\SQL2008;UID=sas;;APP=Microsoft Office 2003;WSID=SERVER;DATABASE=kalem" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT tbFirma.sKodu, tbFirma.sAciklama, tbFirma.dteKayitTarihi, tbFirma.sKullaniciAdi" & Chr(13) & "" & Chr(10) & "FROM OPEN2010.dbo.tbFirma tbFirma" & Chr(13) & "" & Chr(10) & "WHERE tbFirma.dteKayitTarihi Between #" & cdate (Range E1) & "# And #" & cdate (Range F1) & "# )
.Name = "deneme_3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With



Sorgum yukarıdaki şekildedir.E1 hücresine ilk tarih,F1 hücresine ikinci tarihi yazıyorum.Komutta Where kısmından sonra başlayan kısımda sorguyu nasıl yazmam gerekir.

Yardımlarınızı bekliyorum...

 

[Zeki Gürsoy]

Ben genelde aşağıdaki gibi kullanıyorum.

where alan between " & cdbl(cdate([e])) & " And " & cdbl(cdate([f1]))