SELECT CÜMLESİNDE HATA (VİSUAL BASİC)

[majid]

ben veri tabanında kayıtlı olan tarih bilgilerini bugünün tarihi ile karşılaştırıp öyle listelemesini istiyorum ve bunun için şunu yazıyorum;

Private Sub pano_list()
Dim sistem_tarih As Date
'pano ya aktarma
Set hastane_vt = New ADODB.Connection
            With hastane_vt
                .CursorLocation = adUseServer
                .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                "Data Source=hastane_oto_db.mdb;" & _
                                "User ID=admin;" & _
                                "Password=;"
            End With
            sistem_tarih = Date
          Set hasta = New ADODB.Recordset
            With hasta
               .ActiveConnection = hastane_vt
               .CursorLocation = adUseClient
               .Open "SELECT bas_zamani,bit_zamani,oda_no FROM hasta_tkp_tbl WHERE bas_tarih = ' " & sistem_tarih & " ' ", hastane_vt, adOpenStatic, adLockOptimistic           
End With
            Set DataGrid1.DataSource = hasta
End Sub



bana şöyle bir hata veriyor : " Ölçüt ifadesinde veri türü uyuşmazlığı.  " . Bu sorunu nasıl çözebilirim!!!

herkese kolay gelsin...

[Meletoth]

bas_tarih alanının veri tipi date ise, date = '27.03.2006' yı kullanamazsın, ayrıca tipi date olan değerleri sql içinde #..# işaretleri arasında ve ay-gün-yıl dizilişinde sorgulamalısın;

Kod:

....  where bas_tarih = #" & format("mm-dd-yyyy", sistem_tarih) & "#;", hastane_vt, adOpenKeyset, adLockReadOnly

[majid]

bas_tarih alanını date/time olarak tanımlayamaz mıyım? çünkü senin dediğin gibi yazdım yine hata verdi : 'bas_tarih = #mm-dd-yyyy#' sorgu ifadesi içindeki Tarihte sözdizimi hatası.

ne yapmalıyım???

[Meletoth]

bas_tarih alanını date/time olarak ayarlayabilirsin tabiiki. Ayarlarsan '...' içinde değer atayamazsın sadece # ... # atamalısın.

format("mm/dd/yyyy", system_tarih) dene

[Meletoth]

hata verirse aynısını yaz buraya bi zamet

[majid]

'bas_tarih = #mm/dd/yyyy#' sorgu ifadesi içindeki Tarihte sözdizimi hatası.

yine aynı hatayı verdi. veri tabanında tarih 27.03.2006 diye kayıtlanıyor. bunu da hatırlatmak isterim...

[majid]

.Open "SELECT bas_zamani,bit_zamani,oda_no FROM hasta_tkp_tbl WHERE bas_tarih  LIKE '" & FormatDateTime(Format(sistem_tarih, "mm/dd/yyyy")) & "'", hastane_vt, adOpenStatic, adLockOptimistic

sorunumu böyle çözdüm..

herkese kolay gelsin...