ado ile iki tarih arası rapor

[akd]

Merhaba arkadaşlar,
Ben sayın Haluk kardeşimin ado ile ilgili çalışmasından yararlanarak
bir çalışma yapıyorum, sağolsun çok yaralandım
Þimdiki sorunum iki tarih arası rapor almada sorun yaşıyorum,
Yardımcı olacak arkadaşlara şimdiden teşekkürler...
tr1 ve tr2 adında iki textbox un var bu iki texte yazacağım tarihler arası sorgu yapmak istiyorum...
Private Sub CommandButton37_Click() 'raporlar//
'On Error Resume Next
Dim Mytarih As Date, Mytarihh As Date
Mytarih = tr1.Value
Mytarihh = tr2.Value
Set RS = CreateObject("ADODB.recordset")
DatabasePath = "C:\Akd_Db.mdb"
strSQL = "SELECT * FROM Mytarih WHERE " & ">=" & Mytarihh & " ORDER BY " & "Tarih"
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Liste2.ListItems.Clear
Do While Not RS.EOF
Set kyt = Liste2.ListItems.Add(, , RS("sırano"))
kyt.SubItems(0) = RS("sırano")
kyt.SubItems(1) = RS("Müsno")
kyt.SubItems(2) = RS("Tarih")
kyt.SubItems(3) = RS("Açıklama")
kyt.SubItems(4) = RS("Miktar")
kyt.SubItems(4) = Format(kyt.SubItems(4), "#,##0.00")
RS.MoveNext
x = x + 1
Loop
End Sub
strSQL satırında çıkmamış mdb deki sorgu alanım "Tarih" dir

 

[dost]

Merhaba,

strSQL = "SELECT * FROM Mytarih WHERE " & ">=" & Mytarihh & " ORDER BY " & "Tarih"

Mytarih Tablo adı mı? Değilse Tablo adını yazmanız gerekir.


Tablondaki Tarih alanındaki Mytarihh değikenindeki tarihten büyük eşit olanları getirir.

strSQL = "SELECT * FROM Tablo Adı WHERE Tarih >=CDate('" & Mytarihh & "') ORDER BY Tarih

Tablondaki Tarih alanındaki Mytarihh ve Mytarih değişkenlerindeki tarih aralığındaki olanları getirir.

strSQL = "SELECT * FROM Tablo Adı WHERE Tarih BETWEEN CDate('" & Mytarih & "') AND CDate('" & Mytarihh & "')) ORDER BY Tarih

 

[akd]

Merhaba sayın dost,
Kod malesef aşağıdaki hatayı verdi,
Tarih BETWEN Cdate('25.01.2006')AND Cdate('24.02.2006'))' sorgu ifadesi içindeki Fazladan )
kodu bu şekilde degiştirdim,
strSQL = "SELECT * FROM [Mycari] WHERE Tarih BETWEEN CDate('" & Mytarih & "') AND CDate('" & Mytarihh & "')) ORDER BY Tarih "

tablo ismi [Mycari] dir
selamlar...

 

[dost]

Merhaba,

Pardon, bir parantez fazladan yazılmış.

strSQL = "SELECT * FROM [Mycari] WHERE Tarih BETWEEN CDate('" & Mytarih & "') AND CDate('" & Mytarihh & "') ORDER BY Tarih "

şeklinde düzeltiniz.

 

[akd]

Sayın dost ,
bu tarihden küçük ( < ) ve bu tarihden büyük ( > ) olanları bul
kodun son durumu aşağıdaki gibidir,
Tablonun ismi Mycari dir
Dim Mytarih As Date, Mytarihh As Date
Mytarih = tr1.Value
Mytarihh = tr2.Value
Set RS = CreateObject("ADODB.recordset")
DatabasePath = "C:\Akd_Db.mdb"
strSQL = "SELECT * FROM Mycari WHERE Tarih BETWEEN CDate('" & Mytarih & "') AND CDate('" & Mytarihh & "')) ORDER BY Tarih "
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Liste2.ListItems.Clear
Do While Not RS.EOF
Set kyt = Liste2.ListItems.Add(, , RS("sırano"))
kyt.SubItems(0) = RS("sırano")
kyt.SubItems(1) = RS("Müsno")
kyt.SubItems(2) = RS("Tarih")
kyt.SubItems(3) = RS("Açıklama")
kyt.SubItems(4) = RS("Miktar")
kyt.SubItems(4) = Format(kyt.SubItems(4), "#,##0.00")
RS.MoveNext
x = x + 1
Loop

 

[akd]

ÇOK ÇOK TEÞEKKÜRLER SAYIN DOST
ELLERİN DERT GÃ?RMESİN,
SORUNUM ÇÃ?ZÜLDÜ
SELAM VE SAYGILAR....

 

[akd]

Merhaba sayın dost,
bu sorgunun içine Açıklama alanınıda katabilirmiyiz,
yani bu tarihler arasındaki şu ürünü sırala komutu
ben şöyle birşey yaptım malesef olmadı,
strSQL = "SELECT * FROM [Mycari] WHERE (((Mycari.Tarih) Between & Mytarih & And & Mytarihh &) AND ((Mycari.Açıklama)=Myaciklama));"
selam ve saygılar...

 

[dost]

Sayın akd,

İlk önce, Table (tablo) isimlerinde yada field (alan) isimlerinde "TÜrkçe" karakter kullanmamanızı öneririm.

Yine değişken isimlerinde "TÜrkçe" karakter kullanmamanızı öneririm.

Aşağıdaki kodu dener misin?

strSQL = "SELECT * FROM [Mycari] WHERE Tarih BETWEEN CDate('" & Mytarih & "') AND CDate('" & Mytarihh & "') AND Açıklama= '" & Myaciklama & "' "

 

[akd]

Merhaba sayın dost kardeş,
Cevabınız ve ilginiz için çok çok teşekkürler.
Herşey gönlünüzce olsun...