Çözüldü Access Data'dan Tarih Sorgusu

[ragnorak]

http://s2.dosya.tc/server9/r5a8z8/DENEME.mdb.html
Yukarıda eklediğim Access dosyasında "Bugünün tarihi" [SIPARIS_TARIHI] ve [TESLIM_TARIHI] alanlarının arasında olan [IS_KODU] 'larını tekrarsız olarak almak istiyorum. Between ile iki tarih aralığında işlem yapabiliyorum ama buradaki olayı çözemedim.

 

[metehan8001]

Yanlış anlamadı isem aşağıdaki şekilde bir sorgu kodumu istiyorsunuz.

Sub exceldestek()
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\DENEME.mdb"
Set rs = CreateObject("adodb.recordset")
sorgu = "select distinct(IS_KODU) from IS_EMIRLERI "
sorgu = sorgu & "where cdate(TESLIM_TARIHI) = '20.04.2019' and cdate(SIPARIS_TARIHI) ='11.07.2019' "
rs.Open sorgu, con, 1, 1
If rs.RecordCount > 0 Then
Range("a2").CopyFromRecordset rs
End If
End Sub

 

[Utekiner]

Metehan Bey Selamlar,
Kodlar için teşekkür ederim. Arşivime aldım. İyi günler.

 

[ragnorak]

Sub exceldestek()
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\DENEME.mdb"
Set rs = CreateObject("adodb.recordset")
sorgu = "select distinct(IS_KODU) from IS_EMIRLERI "
sorgu = sorgu & "where cdate(TESLIM_TARIHI) = '20.04.2019' and cdate(SIPARIS_TARIHI) ='11.07.2019' "
rs.Open sorgu, con, 1, 1
If rs.RecordCount > 0 Then
Range("a2").CopyFromRecordset rs
End If
End Sub

metehan8001 kod için teşekkür ederim. Teslim ve Sipariş tarihine kendin değer verip aralıkta sorgulama yapmışsın. Benim istediğim Tabloda Bugünün tarihi; Teslim ve Sipariş tarihi arasında olan işlerin sorgulaması

 

[ragnorak]

sorgu = "select distinct(IS_KODU) from IS_EMIRLERI "
sorgu = sorgu & "where cdate(TESLIM_TARIHI) > cdate(DATE) and cdate(SIPARIS_TARIHI) < cdate(DATE) "

Bunun gibi bişe olacak ama çalışmıyor

 

[metehan8001]

sorgu = "select distinct(IS_KODU) from IS_EMIRLERI "
sorgu = sorgu & "where cdate(TESLIM_TARIHI) > cdate(DATE) and cdate(SIPARIS_TARIHI) < cdate(DATE) "

Bunun gibi bişe olacak ama çalışmıyor

Yazmış olduğunuz sorgu kodunun doğru yazılışı aşağıdaki gibi olmalıdır.

sorgu = "select distinct(IS_KODU) from IS_EMIRLERI "
sorgu = sorgu & "where cdate(TESLIM_TARIHI) > '" & Date & "' and cdate(SIPARIS_TARIHI) < '" & Date & "' "

 

[ragnorak]

teşekkür ederim. elinize sağlık