SQL tarihte gün sorgulama

[tamer42]

Merhaba,

Ekli dosyada aşağıdaki tarih sorgusu neden hata veriyor olabilir?
gün' e göre verileri sorgulatmak istiyordum;

Sub Tarihsorguu()


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

Sayfa2.Activate
Cells.ClearContents

yol = ThisWorkbook.FullName

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select * from[Data$] where Day([Tarih]) = 12 "

Set RS = Con.Execute(sorgu)

Range("A2").CopyFromRecordset RS

x = 1
Cells.EntireColumn.AutoFit

End Sub

teşekkürler,
iyi akşamlar.

 

[Necdet]

Merhaba,

Kullandığınız alan Tarih değil Tarih-Saat
Düzeltirseniz kod çalışıyor.

 

[tamer42]

Merhaba,

Kullandığınız alan Tarih değil Tarih-Saat
Düzeltirseniz kod çalışıyor.

Necdet Hocam hücre formatı bu şekilde; çok fazla satır mevcut, bu düzende nasıl bir yol takip edebiliriz?
teşekkürler,

 

[Korhan Ayhan]

Necdet beyin kastettiği bölümü bold olarak belirttim.

sorgu = "select * from[Data$] where Day([Tarih-Saat]) = 12"

 

[tamer42]

Necdet beyin kastettiği bölümü bold olarak belirttim.

sorgu = "select * from[Data$] where Day([Tarih-Saat]) = 12"

Korhan & Necdet hocam çok teşekkürler,

 

[tamer42]

Merhabalar
Ekli dosyadaki [Tarih-Saat] alanında;
tarihi bir ay öncesinden büyük olanları filtrelemek için aşağıdaki sorguda hata veriyor,

özetle 17.10.2022 tarihinden büyük olanları almak istiyorum.

Sub Tarihsorguu()

Dim dt As Date

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

Sayfa2.Activate
Cells.ClearContents

yol = ThisWorkbook.FullName

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

dt = Date - 30

sorgu = "select * from[Data$] where [Tarih-Saat]> " & dt

Set RS = Con.Execute(sorgu)

Range("A2").CopyFromRecordset RS

End Sub

teşekkürler, iyi çalışmalar.

 

[Haluk]

sorgu = "select * from [Data$] where [Tarih-Saat]> " & CDbl(dt)

.

 

[tamer42]

sorgu = "select * from [Data$] where [Tarih-Saat]> " & CDbl(dt)

.

çok teşekkürler Haluk Hocam,
şu Tarih formatlarını kafamda bir türlü oturtamadım.
iyi çalışmalar.

 

[Erdem Akdemir]

Mantığı basit aslında. Vba kod penceresinde Locals ekranında, sorgu değişkenindeki tarih ile ilgili kısmı sayı olarak görürseniz (44583 gibi) muhtemelen sonuç gelir.

 

[tamer42]

Mantığı basit aslında. Vba kod penceresinde Locals ekranında, sorgu değişkenindeki tarih ile ilgili kısmı sayı olarak görürseniz (44583 gibi) muhtemelen sonuç gelir.

Teşekkürler Erdem Hocam, zamanla öğrenmiş olacağız.