İki Tarih Arası veri almak

[fdisk]

Herkese Selam Arkadaşlar burda ben iki tarih arasındaki veri almak istiyorum
inputbox ile girdiğim tarih,
sorguda sabit olan tarihin yerine nasıl yapabilirim, denedim ama yapamadım.
Teşekkürler.

"WHERE (kupbarkod1.K_Tar>={ts '2007-02-06 00:00'} And kupbarkod1.K_Tar<{ts '2007-02-07 00:00'})" _




Dim Tarih
Dim Tarih1
Tarih = Date
Tarih1 = Date
InputBox "1. Tarihi giriniz,", Tarih
InputBox "2. Tarihi giriniz,", Tarih1

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER=SQL Server;SERVER=BARKOD;UID=depo;APP=Microsoft&#174; Query;WSID=DEPO;Trusted_Connection=Yes" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT kupbarkod1.kalemadi, kupbarkod1.firma, kupbarkod1.kalemack, kupbarkod1.musadi, kupbarkod1.kalemkod, kupbarkod1.LOT, kupbarkod1.K_Mt, kupbarkod1.K_Tar, kupbarkod1.K_Kalite, kupbarkod1.renkg, kup" _
, _
"barkod1.TopID, kupbarkod1.lotsa, kupbarkod1.isemrino, kupbarkod1.ay, kupbarkod1.yil, kupbarkod1.gun, kupbarkod1.hafta, kupbarkod1.kontrolor, kupbarkod1.K_Kg" & Chr(13) & "" & Chr(10) & "FROM KayitDb.dbo.kupbarkod1 kupbarkod1" & Chr(13) & "" & Chr(10) & "" _
, _
"WHERE (kupbarkod1.K_Tar>={ts '2007-02-06 00:00'} And kupbarkod1.K_Tar<{ts '2007-02-07 00:00'})" _
)
.Name = "Raporu Al kayna&#287;&#305;ndan sorgula"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

 

[veyselemre]

"WHERE (kupbarkod1.K_Tar>={ts '" & tarih1 & " 00:00'} And kupbarkod1.K_Tar<{ts '" & tarih2 & " 00:00'})"


şeklinde deneyin.

 

[fdisk]

Denedim ama olmadı runtime error 1004 genel ODBC hatası veriyor

 

[emrexcel123]

yani ekstre

e&#287;er ekstre tarz&#305; bir &#351;ey istiyorsan buyur...
kullan&#305;c&#305; ad&#305; : emre
parola : 147258

 

[Zeki Gürsoy]

Sub SQL_Server_Veri_Al()
    
    tarih1 = InputBox("Başlama tarihi; " & Chr(10) & _
    "Tarih formatı: ""gg.aa.yyyy"" ", , "01.01.2007")
    If tarih1 = "" Or tarih1 = False Then Exit Sub
    
    tarih2 = InputBox("Bitiş tarihi; " & Chr(10) & _
    "Tarih formatı: ""gg.aa.yyyy"" ", , "01.01.2007")
    If tarih2 = "" Or tarih2 = False Then Exit Sub
    
    '/////////////////////////////////////////////////////////////////////////////////
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER=SQL Server;SERVER=BARKOD;UID=depo;APP=Microsoft® Query;WSID=DEPO" & _
        ";Trusted_Connection=Yes", Destination:=Range("A1"))
        
    '*********************************************************************************
    
    .CommandText = _
            "Select kalemadi,firma,kalemack,musadi,kalemkod,LOT,K_Mt,K_Tar,K_Kalite,renkg,TopID," & _
            "lotsa,isemrino,ay,yil,gun,hafta,kontrolor,K_Kg From KayitDb.dbo.kupbarkod1 " & _
            "Where K_Tar>=" & CLng(CDate(tarih1)) & " And K_Tar <= " & CLng(CDate(tarih2))
            
    '*************************************************************************************
    
    .Name = "Raporu Al kaynağından sorgula"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
    End With
End Sub

 

[fdisk]

Anemos hocam çok teşekkür ederim.

 

[fdisk]

Anemos hocam çalışıyor
ama ben 1 tarih ve 2 tarihi giriyorum ama bana 2 tarihden sonraki günü veriyor.
açaba nerde yanlış yapıyorum.

 

[Zeki Gürsoy]

Yazd&#305;&#287;&#305;n&#305;z tarih format&#305; nas&#305;ld&#305;r?
"gg.aa.yyyy" olmas&#305; gerekir.

 

[fdisk]

Yazdığınız tarih formatı nasıldır?
"gg.aa.yyyy" olması gerekir.

aynı böyle hocam ama
"yyyy.aa.gg"
"yyyy-aa-gg"
böylede denedim
aynısını veriyor
bende -2 veriyorum