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

[Mitriy08]

и еще вопрос что озночает этот код

Код:


UpdateQuery := TADOQuery.Create(Self);
With UpdateDelQuery do
begin
Name := 'UpdateDelQuery';
Connection := AdoConnection
Close;
end;

UpdateQuery := TADOQuery.Create(Self); //Создаем экземпляр TADOQuery
With UpdateDelQuery do 
begin
     Name := 'UpdateDelQuery'; //Задаем ему имя
     Connection := AdoConnection //Указываем как ему конектится т.е он получает такие же свойства конекта как и AdoConnection 
     Close;//Закрываем его
end;

Написал With UpdateDelQuery do , чтобы не писать не сколько раз UpdateDelQuery.Name =.. и тд

Его можно не создавать, а кинуть сразу в датамодуль и просто менять ему скл запрос и выполнять, но он нам нужен только для апдэйта записей...

[Mitriy08]

Чтобы избавится от ошибок типа

[Error] Sales.pas(191): Undeclared identifier: 'TAdoquery'
[Error] Sales.pas(195): Undeclared identifier: 'First'
[Error] Sales.pas(196): Undeclared identifier: 'UpdateQuery'
[Error] Sales.pas(204): Undeclared identifier: 'RecordCount'
[Error] Sales.pas(209): Undeclared identifier: 'UpdateDelQuery'
[Error] Sales.pas(224): Declaration expected but identifier 'UpdateDelQuery' found

Пропиши в разделе Uses ADODB
Я специально в некоторых местах допускал ошибку не ставил ";"
Так сказать на внимательность поставь этот значок в конце каждой строчки))))

UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add(''); //Сдесь должен быть запрос на вставку записи!!!!! Если не знаеш как его написать закоментарь этот кусок кода потом дойдем до его
UpdateDelQuery.ExecSQL;

UpdateDelQuery.SQL.Add(delete from корзина);

Еще запомни все, что SQL.Add() - должно быть текстом, корзина - это реальная имя твоей таблчики куда попадают записи после нажатия кнопки "добавить в корзину", т.е в идиале у тя должно получится, что то типа

UpdateDelQuery.SQL.Add('delete from корзина');//корзина - замени на название своей таблички!!! :)

ps. Опиши все таки структуру своей БД!!!!!!!!!! Я уже как то писал, что надо начинать с нее в начале.

[фЁдОр]

Зачем такие сложности? Нужно просто поставить указатель на первую строку и все!!!

DataModule1.zaiavkiQuery.first;//устанавливает указатель, что бы производить удаление с начало!
 while not DataModule1.zaiavkiQuery.eof do
 DataModule1.zaiavkiQuery.delete;

[Mitriy08]

Я бы сказал, что это оптимизация.
к примеру у тебя будет 100 (зачем 100 давайте пару нулей еще прибавим оО) записей и будет обращение к базе ити 100 раз. А сдесь 1 раз и дальше все сделает сама база...

А так и то и то будет правильно и дело выбора будет за автором.

Но что то мне кажится либо у автора все гуд получается либо автор забил

[opel.omega]

вот изменил код но по прежнему не работает выкидывает ошибки

procedure TForm5.SpeedButton2Click(Sender: TObject);
var
  j : Integer;
  UpdateDelQuery: TADOQuery;
begin
DataModule1.zaiavkiQuery.First;
UpdateDelQuery := TADOQuery.Create(Self);
With UpdateDelQuery do
begin
     Name := 'UpdateDelQuery';
     Connection:=ADOConnection1;
     Close;
end;
for j:=0 to DataModule1.zaiavkiQueryamount.RecordCount - 1 do
begin

DataModule1.UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('Update zaiavkiQuery set amount=amount-'DataModule1.zaiavkiQueryamount.AsString +' Where IDSales = 'IntToStr(IDSales);
UpdateDelQuery.ExecSQL;
UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('');
UpdateDelQuery.ExecSQL;
DataModule1.zaiavkiQueryamount.Next;
end;
UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add(delete from zaiavkiQuery);
UpdateDelQuery.ExecSQL;
ShowMessage('Товар продан');
UpdateDelQuery.Free;
end;

а вот ошибки после оптимизации их стало меньше но.... все равно есть

[Error] Sales.pas(198): Undeclared identifier: 'ADOConnection1'
[Error] Sales.pas(201): Undeclared identifier: 'RecordCount'
[Error] Sales.pas(204): Undeclared identifier: 'UpdateDelQuery'
[Error] Sales.pas(204): Missing operator or semicolon
[Error] Sales.pas(205): ')' expected but identifier 'DataModule1' found
[Error] Sales.pas(205): Missing operator or semicolon
[Error] Sales.pas(207): Undeclared identifier: 'Clear'
[Error] Sales.pas(210): Undeclared identifier: 'Next'
[Error] Sales.pas(212): Undeclared identifier: 'Clear'
[Error] Sales.pas(213): '(' expected but identifier 'from' found
[Error] Sales.pas(213): Not enough actual parameters
[Fatal Error] skt.dpr(14): Could not compile used unit 'Sales.pas'

[opel.omega]

ADODB в раздел Uses я добавил

[фЁдОр]

Мне не понятно, что вы хотите от кнопки. опишите словами, что должно происходить по нажатию кнопки SpeedButton2. мне кажится, что вы что-то перемудрили.

[opel.omega]

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

тоисть раньше мы отнимали количество со склада во время добавления в корзину а счас это надо делать во время продажи

[Sm1Le]

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

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

тоисть раньше мы отнимали количество со склада во время добавления в корзину а счас это надо делать во время продажи

И это Вы настолько усложнили ???? - перестарались .... =)))) Если никто не поможет то чуть позже напишу код ... =))
Ну зачем такую достаточно простую задачу усложнять ... ? =))

[фЁдОр]

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

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

тоисть раньше мы отнимали количество со склада во время добавления в корзину а счас это надо делать во время продажи

да нет, думаю тут ничего сложного и нового нет!!! все можно сделать по аналогии предыдущих постов. но, блин, сейчас я не могу помочь. со вчерашнего дня делов наволилось, сейчас все разгребать приодится. так, что попзже помогу, если вопрос еще актуален будет