Запрос на добавление

[Slame]

Всем добрый вечер.
Знающие люди, будьте добры помогите,а то скоро сойду с ума
В общем есть таблица Билет на самолёт в ней находятся поля типа: дата вылета и время вылета, дата и время прибытия, место и класс.
И что бы не прописывать для 100 билетов везде одну и ту же дату и время вылета,хочу сделать запрос на добавление,т.е. мы вводим 1 раз дату и время вылета,кол-во мест в 1 классе, бизнес классе,и эконом классе,а место заполняеться по порядковому номеру записи,т.е. если сто билетов от 1 до 100.
Сам запрос на добавление вот:

INSERT INTO Билет ( [Дата вылета], [Время вылета], [Дата прибытия], [Время прибытия], [Цена билета], [Класс билета], [Страна прибытия], [Город прибытия], [Аэропорт прибытия] )
SELECT [Дата вылета] AS Выражение1, [Время вылета] AS Выражение2, [Дата прибытия] AS Выражение3, [Время прибытия] AS Выражение4,[Цена билета], [Класс билета] AS Выражение7, [Страна прибытия] AS Выражение6, [Город прибытия] AS Выражение8, [Аэропорт прибытия] AS Выражение9;

Как сделать цикл добавлений записей?

[gluk_fm]

Как то так:

dat = "15.11.2011"
for i=1 to 100
INSERT INTO Билет ( [Дата вылета], [Время вылета], [Дата прибытия], [Время прибытия], [Цена билета], [Класс билета], [Страна прибытия], [Город прибытия], [Аэропорт прибытия],"&i&" )
SELECT "&dat &" AS Выражение1, [Время вылета] AS Выражение2, [Дата прибытия] AS Выражение3, [Время прибытия] AS Выражение4,[Цена билета], [Класс билета] AS Выражение7, [Страна прибытия] AS Выражение6, [Город прибытия] AS Выражение8, [Аэропорт прибытия] AS Выражение9;"&i&" as par


next

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

[Slame]

Спасибо, но пока с логикой переменных разобраться не могу, т.к. столкнулся ещё с 1 проблемой.Если в MA делать запрос через конструктор и там выбирать "Запрос на добавленние" то он кроме как Insert ничего не воспринимает.Как сделать запрос что б туда можно было вставить цикл?и вообще свой sql код?
И ещё вопрос Как сделать в sql Что то на подобе :

Writeln('VVedite peremnnuyu');
readln(dat);

????

[gluk_fm]

Что то вроде run.sql или
dim db as database
set db = currentdb

for i=1 to 100

db.execute ("KOD")

next