Database içinde çok sayıda kayıt olduğundan, verilerin yavaş ekrana gelmesi ve çökme ihtimaline karşı farklı database içinde arama yaptırmak istiyorum fakat bir türlü mantık kuramadım, C:\DATALAR\15.05.2015 ve 16.05.2015 gibi tarihli datalardan verileri tek bir ListViewe nasıl alabilirim...
Kod: Tümünü seç
begin
try
Form1.ListView1.Items.Clear;
with Form1.Playlist do
begin
Close;
SQL.Clear;
SQL.Add('Select * From PLAYLIST');
SQL.Add('Where ADI Like ' + QuotedStr('%' + Edit1.Text + '%'));
SQL.Add('And YTARIH BETWEEN :Tarih1 and :Tarih2 Order by SIRANO ASC');
params.ParamByName('Tarih1').AsDate := MonthCalendar1.Date;
params.ParamByName('Tarih2').AsDate := MonthCalendar2.Date;
Prepared := True;
Open;
if Not IsEmpty then // Kayıt Varsa
begin
while Not Eof do
begin
with Form1.ListView1.Items.Add do
begin
Caption := IntToStr(Form1.ListView1.Items.Count);
SubItems.Add(FieldByName('START').AsString);
SubItems.Add(FieldByName('ADI').AsString);
SubItems.Add(FieldByName('YTARIH').AsString);
Next;
end
end
end
else
begin
Application.MessageBox('Kayıt Bulunamadı!', 'Bulunamadı!',
MB_Ok or MB_ICONQUESTION);
end;
end;
except
end;
end;