[nadyanadya]

Код:

ADOQuery(ADODB). В параметрах Инспектора Объектов введем SQL – команду:
ADOQuery1.Clear := True;
ADOQuery1.Add('SELECT table2.Материал, table2.Описание_материала, table2.Созданный');
ADOQuery1.Add('FROM table2');
ADOQuery1.Add('WHERE ((table2.Созданный) BETWEEN (DateValue(''' + Edit1.Text + ''')) AND (DateValue(''' + Edit2.Text + ''')) );');
ADOQuery1.Active := True;

в обновлении запроса

Код:

procedure TForm6.Button1Click(Sender: TObject);
sqlfile: TextFile;
i: Integer;
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT table2.Материал, table2.Описание_материала,table2.Созданный');
ADOQuery1.SQL.Add('FROM table2');
ADOQuery1.SQL.Add('WHERE ((table2.Созданный) BETWEEN (DateValue(''01.01.2009' + Edit1.Text +
                         ''')) AND (DateValue(''31.12.2009' + Edit2.Text + ''')));');
 ADOQuery1.Active := True;AssignFile(sqlfile,'sql_instructions.txt');
Rewrite(sqlfile);
for i := 0 to ADOQuery1.SQL.Count-1 do Writeln(sqlfile, ADOQuery1.SQL.Strings[i]);
CloseFile(sqlfile);
end;

и текст в блокноте sql_instructions.txt

Код:

SELECT table2.Материал, table2.Описание_материала, table2.Созданный
FROM table2
WHERE ((table2.Созданный) BETWEEN (DateValue('01.01.2009')) AND (DateValue('31.12.2014')));

Админ: Пользуемся тегами при оформлении кода!

пишет table2 не имеет значения по умолчанию