[true]

БД На аксесе, мне нужно знать например какие нарушения совершили сотрудники от 12.12.04 по 13.04.05, неполучается это сдела и вывести например в мемо помогите вот код по которому я работаю могу дать исходник парни выручайте

Код:

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;

[lmikle]

А не проще сделать через запрос?
сам запрос:

Код:

SELECT * FROM [Table] WHERE [DateField] > :DF AND [DateField] < :DE

Заменить имя таблицы и поле даты, что в кв. скобках, на твои.

код

Код:

var
  I : Integer;
  S : String;
begin
ADOQuery1.Params.PAramByName('DF').AsTDateTime := DateTimePicker1.Date;
ADOQuery1.Params.PAramByName('DE').AsTDateTime := DateTimePicker1.Date;
ADOQuery1.Open;
ADOQuery1.First;
While Not ADOQuery1.EOF Do
Begin
  S := '';
  For I := 0 To ADOQuery1.Fields.Count-1 Do
    S := S + ADOQuery1.Fields[0].AsString + ' ';
  Memo1.Lines.Add(S);
  ADOQuery1.Next;
End;

[true]

Извените сразу не сказал я не использую ADoQuery и неочень знаком с SQL вы можете помочь может ее будет просто переделать под ADoQuery чем решить мою проблему?

[true]

Ну помогите пожалуста.. я уже мозг сломал кто нибудь..
я исходник может кто нить поможет.. там есть форма вот на нее вывест нужно туда мемо добавлю а дбэдит удалю мне главное чтобы диапазон работал.. выручайте


_http://zalil.ru/30003517

ну или так обьясните я сам попробую..

[Страдалецъ]

Использовать ручной обход всех записей для решения вашей проблемы - изначально неверная постановка задачи. lmikle вам предложил хорошую альтернативу, но хозяин барин:

Код:

var
f,b:TDateTime;
begin
f := StrToDateTime(Edit1.Text);
b := StrToDateTime(Edit2.Text);
while not AdoTable1.Eof
do begin
    if (AdoTable1.FieldByName('ДатаНарушения').asDateTime >= b) and 
       (AdoTable1.FieldByName('ДатаНарушения').asDateTime <= f)
    then Memo1.Lines.Add(AdoTable1.FieldByName('ФИО').asString);
    AdoTable1.Next;
    end; 
end;

[true]

Спасибо, я понимаю что это может быть легче.. но врядли для меня,
в вашем коде у меня ошибки на:

while not AdoTable1.Eof

и здесь..

if (AdoTable1.FieldByName(

блиин..(((((

[true]

Сообщение от Страдалецъ

Использовать ручной обход всех записей для решения вашей проблемы - изначально неверная постановка задачи. lmikle вам предложил хорошую альтернативу, но хозяин барин:

Код:

var
f,b:TDateTime;
begin
f := StrToDateTime(Edit1.Text);
b := StrToDateTime(Edit2.Text);
while not AdoTable1.Eof
do begin
    if (AdoTable1.FieldByName('ДатаНарушения').asDateTime >= b) and 
       (AdoTable1.FieldByName('ДатаНарушения').asDateTime <= f)
    then Memo1.Lines.Add(AdoTable1.FieldByName('ФИО').asString);
    AdoTable1.Next;
    end; 
end;

с этим разобрался но результата не дало((

[Страдалецъ]

У вас дата в таблице каким образом хранится? Как текст или дата?