добавления нескольких записей в MS Acces

[Mitriy08]

Я думал автор прочитает все таки какую нибудь литературу по скл....
И так стандартнай синтаксис для вствки записи в таблицу:

Insert into MyTable (Field1,Field2,Field3) values (1,2,'3')

Field1 и Field2 - имеют целочисленный тип
Field3 - имеет тип строковый

также записи можно вставлять и брать при этом данные с других таблиц:

Insert into MyTable (Field1,Field2,Field3)
Select Field4,Field5,Field6 From MyTable2

При таком раскладе все записи из MyTable2 попадают в MyTable1
Главное чтобы совпадали типы полей!!! т.е
тип поля Field1 был равен типу поля Field4 итд

как я понел мы просто берем все детали и переносим их в продажу?

На самом деле нет!
Мы берем 1 запись (на которой находится курсор) из zaiavki и вставляем в Sales
Я специально написал так, чтобы ты додумался и сделал вот так:

просто берем все детали и переносим их в продажу

И всетаки хочется чтобы этот момент (одним запросом перенести все записи из одной таблички в другую) автор додумал сам!!!!
Прочитав внимательно, что сдесь написано это можно сделать

ps. При вставке данных типа дата, чтобы не нажить себе гемороя лучше использовать Скл функцию Convert которая имеет следующий вид:

Convert(dateTime,'МояДата',104)
-104 формат конверта даты остальные форматы можно узнать обратившись к гуглю :)

[jklm347]

I hung him up to dry ??????????Jim and Mary were both patients in a Mental Hospital. One day while they were walking by the hospital swimming pool, Jim suddenly jumped into the deep end. He sank to the bottom. Mary promptly jumped in to save him. She swam to the bottom and pulled Jim out. When the medical director became aware of Mary's heroic act he immediately reviewed her file and called her into his office. "Mary, I have good news and bad news. The good news is you're being discharged because since you were able to jump in and save the life of another patient, I think you've regained your senses. The bad news is Jim, the patient you saved, hung himself with his bathrobe belt in the bathroom?he's dead." Mary replied, "He didn't hang himself, I hung him up to dry." Jim?Mary??????????????????????????? Jim??????????????????Mary?????????? ?????Jim????????????????????????????????????????????????????????????????????????????????????????,????????????Mary?????????????????? ?,????????????“Mary???????????????? ??????????????????????????????????? ??????????Jim?????????????????????? ???????”Mary??“???????????????????”

[opel.omega]

ребят вот сделал только неработает говорит пропавший оператор
все пересмотрел вроде все нормально

Отрезок кода:
UpdateDelQuery.ExecSQL;
UpdateDelQuery.SQL.Clear;
UpdateDelQuery.SQL.Add('Insert into Sales (header,detail_name,parameters,amount,price_1detail,KlientName,DataOfsales');
UpdateDelQuery.SQL.Add('select (header,detail_name,parameters,amount,price_1detail,KlientName,DataOfsales from zaiavki where IDSales=' + dataModule1.zaiavkiQuery.FieldByName('IDSales').AsString'');
UpdateDelQuery.ExecSQL;
DataModule1.zaiavkiQuery.Next;

[фЁдОр]

я два вечера потратил что бы понять как произвести удаление количество проданного товара. да, для меня,признаться, это оказалось не просто
ЗЫ: Пора б, наверно, и Михалычу высказаться...

[Mitriy08]

Сообщение от opel.omega

ребят вот сделал только неработает говорит пропавший оператор
все пересмотрел вроде все нормально

Отрезок кода:
UpdateDelQuery.ExecSQL;
UpdateDelQuery.SQL.Clear;
UpdateDelQuery.SQL.Add('Insert into Sales (header,detail_name,parameters,amount,price_1detail,KlientName,DataOfsales');
UpdateDelQuery.SQL.Add('select (header,detail_name,parameters,amount,price_1detail,KlientName,DataOfsales from zaiavki where IDSales=' + dataModule1.zaiavkiQuery.FieldByName('IDSales').AsString'');
UpdateDelQuery.ExecSQL;
DataModule1.zaiavkiQuery.Next;

Ни чего сдесь сложного нету!!!!!
Лично у меня на это было затрачено мин 5

UpdateDelQuery.SQL.Add('Insert into Sales (header,detail_name,parameters,amount,price_1detail,KlientName,DataOfsales)');
UpdateDelQuery.SQL.Add('select header,detail_name,parameters,amount,price_1detail,KlientName,DataOfsales from zaiavki where IDSales=' + dataModule1.zaiavkiQuery.FieldByName('IDSales').AsString);

У вас одна скобка была не закрыта (которая выделена жирным) и одна лишняя открывающая скобка

ps. Ну все таки хочется, чтобы автор перечитал мой предыдущий запрос и сделал одним запросом перенос все записи из одной таблички в другую
pss. Если он этого не хочет делать то смысл конструкции insert.... select теряется и тогда лучше сделать стандартную вставку (самое начало моего предыдущего поста)

[opel.omega]

вот исправил все равно пишет ошибку

UpdateDelQuery.SQL.Add('Insert into Sales (header,detail_name,parameters,amount,price_1detail,KlientName,DataOfsales)');
UpdateDelQuery.SQL.Add('select header,detail_name,parameters,amount,price_1detail,KlientName,DataOfsales from zaiavki where IDSales=' + dataModule1.zaiavkiQuery.FieldByName('IDSales').AsString'');

Ошибка:

[Error] Sales.pas(211): Missing operator or semicolon
[Fatal Error] skt.dpr(14): Could not compile used unit 'Sales.pas'

в указанном жирном месте говорит ошибка

('IDSales').AsString''|);

[фЁдОр]

Mitriy08, простите, а где вы в вашем коде, производите вычитание проданного товара со склада?

[Mitriy08]

To opel.omega
У меня вроде в этом месте нету кавычек....

To фЁдОр
В цикле выполняется это

UpdateDelQuery.SQL.Add('Update zaiavki set amount=amount-'
+DataModule1.zaiavkiQueryamount.AsString +' Where IDSales = '+
DataModule1.zaiavkiQuery.FieldByName('IDSales').AsString );
UpdateDelQuery.ExecSQL;

[opel.omega]

Mitriy08 убрал последние две кавычки откомпилировал но при нажатии на кнопку пишет ишибка синтаксиса в INSERT INTO

[Mitriy08]

Выкидывай проект...