[nadyanadya]

Код:

1 2 3 4 5 6

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;

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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

Код:

1 2 3

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

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

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

[slabak]

а разве не так?

Код:

1 2 3

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

MAD: Не забываем про теги!

у меня к примеру sql server 2005 вообще не знает что такое: DateValue