ADODataset Select problemi

[Berdem]

Merhaba Arkadaşlar,
Veritabanım Access , Ado bileşenlerini kullanıyorum.Aşagıdaki select sorgusunu çalıştıramıyorum.Program hata vermiyor.DateTimePicker da tarih degiştiğinde exe uygun yanıt vermiyor.Kısacası DateTimePickerda tarih degiştiginde gridde hiçbir değişiklik yok.
Sevgi ve Saygılar...

Kod: Tümünü seç

procedure TForm1.DBComboBox3Change(Sender: TObject);
begin
  ADODataSet1.Close;
  ADODataSet1.CommandType:=cmdText;
  ADODataSet1.CommandText := 'SELECT * FROM gelen WHERE TARIH=:Tar';
  ADODataSet1.Parameters.ParamByName('Tar').Value:=datetostr(DateTimePicker3.Date);
  ADODataSet1.Prepared;
  ADODataSet1.Open;
end;

[naile]

Kod: Tümünü seç

ADODataSet1.Parameters.ParamByName('Tar').Value:=DateTimePicker3.Date; 

diyerek dener misiniz?

[Berdem]

İlginize çok teşekkürler.Daha önce forumda buna benzer sorunlara göre bu kodu yazdım .Malasef önerdiginizi tekrar yaptım olmadı.

[husonet]

Alan Tarih+Saat içeriyor olabilir onu bir kontrol edin.

Bu konular Forum da çok konuşuldu bilginiz olsun.

Kolay Gelsin...

[Berdem]

Çok teşekkürler Hüseyin Bey, Access Tarih alanını kontrol ettim.İlk önce Accsess de TARIH alanını Kısa tarih olarak aldım.Kod çalışmadı.Dediğiniz gibi kontrol ettim birde Genel Tarih olarak denedim yine çalışmadı bir yerde hata yapıyorum ama bir türlü anlayamadım. ADO komple tarattım.Bahsettiğiniz konularıda okudum .Bir sonuç alamadım.

[husonet]

Alan'ın içine F2 diyerek bak tanımlamalardan değil bir de tabloya Tarih kaydı yaparken DATEOF bileşeninden yararlan.


Kolay Gelsin...

[husonet]

viewtopic.php?t=1899&highlight=dateof

Kolay Gelsin...

[Berdem]

Tekrar Teşekkür ediyorum.Sayenizde bu sorunu hallettim , Hüseyin Bey.
Access de kısa zaman yerine genel tarih ve saati içine alacak şeklinde tanımlamak gerekiyormuş.
Ekleme veya sorgulama yaparken önerdiğiniz şekilde yaptım. :

Ekleme sorgusunu

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); //kayıt
Begin
 try
  ADODataSet1.FieldByName('Tarih').AsDateTime:=DateOf(DateTimePicker3.Date);
  ADODataSet1.Append;
 except
 ShowMessage('Tekrarlayan kayıt giriyorsunuz.!');
 end;

Degiştirme sorgusunu

Kod: Tümünü seç

procedure TForm1.DateTimePicker3Change(Sender: TObject);
begin
  ADODataSet1.Close;
  ADODataSet1.CommandType:=cmdText;
  ADODataSet1.CommandText := 'SELECT * FROM gelen WHERE TARIH=:Tar';
  ADODataSet1.Parameters.ParamByName('Tar').Value:=DateOf(DateTimePicker3.Date);
  ADODataSet1.Prepared;
  ADODataSet1.Open;
end;

şeklinde yaptım çalışıyor.Alan'ın içine F2 diyerek bak konusunu biraz açarmısınız.Nasıl yapılıyor ?,StrToDate neden çalışmadı onu anlamadım.IBX BDE ADO farklı tarih tanım formatlarını kullanıyorlar sanırım.Bunu çözmenin pratik yolu var mı?
Sevgi ve Saygılar..

[husonet]

Sorunun halettiğine sevindim.

Alan'ın içine F2 diyerek bak konusunu biraz açarmısınız.

Tablondaki Tarih alanının bir hücresindeki verinin içine bak demiştim.

Kolay Gelsin...