БД Delphi+access

[Gonsalez]

В общем в БД нужно сделать диапазон поиска по дате нарушений.. например с 12.12.05 по 12.12.07.. помогите пжл не получается сделать.. вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
f:string;
b:string;
i:integer;
begin
f:=Edit1.Text;
b:=Edit2.Text;
i:=Datamodule2.ADOTable1.RecordCount;
DataModule2.ADOTable1.First;
while i>0 do
begin
i:=i-1;
if
(DataModule2.ADOTable1DSDesigner.AsString>f)
and (DataModule2.ADOTable1DSDesigner.AsString<b)
then

??
DataModule2.ADOTable1.Next;
end;

end;

под ?? должна быть какая то строчка которая после того как происходит цикл выводит результаты в Мемо.. если нужно могу выложить сам исходник

 

[Guest]

В общем в БД нужно сделать диапазон поиска по дате нарушений.. например с 12.12.05 по 12.12.07.. помогите пжл не получается сделать.. вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
f:string;
b:string;
i:integer;
begin
f:=Edit1.Text;
b:=Edit2.Text;
i:=Datamodule2.ADOTable1.RecordCount;
DataModule2.ADOTable1.First;
while i>0 do
begin
i:=i-1;
if
(DataModule2.ADOTable1DSDesigner.AsString>f)
and (DataModule2.ADOTable1DSDesigner.AsString<b)
then

??
DataModule2.ADOTable1.Next;
end;

end;

под ?? должна быть какая то строчка которая после того как происходит цикл выводит результаты в Мемо.. если нужно могу выложить сам исходник

Используй SQL запрос типа select * from "таблица" where "поле" between :параметр1 and :параметр2

 

[BVS]

под ?? должна быть какая то строчка которая после того как происходит цикл выводит результаты в Мемо..

Как и какие результаты вы хотите вывести?
Что после этого собираетесь делать?
Если Таблица большая - то незачем выводить все результаты (воспользуйтесь выше предложенным решением).

 

[Guest]

В общем в БД нужно сделать диапазон поиска по дате нарушений.. например с 12.12.05 по 12.12.07.. помогите пжл не получается сделать.. вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
f:string;
b:string;
i:integer;
begin
f:=Edit1.Text;
b:=Edit2.Text;
i:=Datamodule2.ADOTable1.RecordCount;
DataModule2.ADOTable1.First;
while i>0 do
begin
i:=i-1;
if
(DataModule2.ADOTable1DSDesigner.AsString>f)
and (DataModule2.ADOTable1DSDesigner.AsString<b)
then

??
DataModule2.ADOTable1.Next;
end;

end;

под ?? должна быть какая то строчка которая после того как происходит цикл выводит результаты в Мемо.. если нужно могу выложить сам исходник

Доброго дня!
Если необходимо в мемо, то ответ один - за место вопросов должна стоять строка
Memo1.Lines.Add(DataModule2.ADOTable1DSDesigner.AsString);

но предложение с SQL мне тоже нравится больше