Код:
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 не имеет значения по умолчанию