verilen tarihteki kaydı çağırmak..

[Misafir]

query1.Close;
query1.SQL.clear;
query1.sql.add('select * from data where tarih = ''' + datetostr(datetimepicker1.Date) + '''' );
query1.open;


datetimepickerdeki kaydı çağırmak istedim..
yani iki tarih arası değil...o kaydı...her tarihte bi kayıt var..birden fazla değil...geriye bişi dönmüyor...boş ? hata nerde ?

tşk.

[husonet]

Parametreni ParamByName ile neden geçmiyorsun?

Kod: Tümünü seç

    with Query1 do
    Begin
        Close;
        SQL.Clear;
        SQL.Add('select * from data where tarih = :tarih');
        ParamByName('tarih').AsDate := datetimepicker1.Date;
        Open;
    End;

Şu şekilde kesin çalışması lazım?

Kolay Gelsin...

[y.kulac]

hocam benim yaptığım biraz acemice ama belki şine yarar.
forma bir adet edit koy ve visible özelliğini false yap.
sonra;

Kod: Tümünü seç

edit1.text:= datetostr(datetimepicker1.Date);
query1.Close; 
query1.SQL.clear; 
query1.sql.add('select * from data where tarih = '''+edit1.text+'''' ); 
query1.open; 

kolay gelsin

[rsimsek]

işi uzatmaktan başka birşey değil ki;

Kod: Tümünü seç

query1.sql.add('select * from data where tarih = ''' + datetostr(datetimepicker1.Date) + '''' ); 

[dtgb]

merhabalar aynı islemi filitre kullanarak yapmanın bi sakıncası yok sanırım

begin
query1.Filter:='tarih='+ Quotedstr(datetostr(datetimepicker1.Date));
query1.Filtered:=true;
end;

[vedatkaba]

Kod: Tümünü seç

query1.sql.add('select * from data where tarih='+quotedstr(datetostr(datetimepicker1.date)));

Ben böyle yapıyorum eğer yine sorun varsa tarih formatlarnı kontrol et.
query nin sql.text özelliğinden sql cümlesine bak ona göre işlem yap.

[ozanyazar]

function tarihyaz(txt:tdate) :string;
var
Year,Month,Day:Word;
begin
DecodeDate(txt,Year,Month,Day);
result:='#'+inttostr(Day)+'/'+inttostr(Month)+'/'+inttostr(Year)+'#';
end;

[bobasturk]

merhabalar,

sanırım form açık ve aynı oradan kayda konumlanmak isterse locate ilede konumlanabilir.

kolay gelsin