БД Delphi+access

  • Автор темы Gonsalez
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Gonsalez

#1
В общем в БД нужно сделать диапазон поиска по дате нарушений.. например с 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;
под ?? должна быть какая то строчка которая после того как происходит цикл выводит результаты в Мемо.. если нужно могу выложить сам исходник
 
G

Guest

#2
В общем в БД нужно сделать диапазон поиска по дате нарушений.. например с 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
 
B
#3
под ?? должна быть какая то строчка которая после того как происходит цикл выводит результаты в Мемо..
Как и какие результаты вы хотите вывести?
Что после этого собираетесь делать?
Если Таблица большая - то незачем выводить все результаты (воспользуйтесь выше предложенным решением).
 
G

Guest

#4
В общем в БД нужно сделать диапазон поиска по дате нарушений.. например с 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 мне тоже нравится больше
 
Статус
Закрыто для дальнейших ответов.