Выполнить проверку на наличие данных посредством ADO или SQL

[Blood_ghosT]

17:49
Доброго времени формучане!

Существует Access и Delphi!

Помогите решить проблему с проверкой таблицы на наличие данных!
Существует таблица оформление продажи и склад, при оформлении товара надо выполнять проверку таблицу оформление продажи на наличие товара в таблице! то есть при добавлении нового товара делаем запрос, который проверяет, есть ли уже такой товар в таблице. Если нет, то добавляем полностью запись, а если уже есть - просто увеличивает количество.
Я делал через ADOQuery! пробовал через фильтрацию Where в SQL! не смог помогите пожалуйста!!
Вот код:

procedure TfrmAmount.btnOkfrmAmountClick(Sender: TObject);
begin
frmConnection.qSells.Active:=false;
frmConnection.qSells.SQL.Clear;
frmConnection.qSells.SQL.Add('Select Naimenov, Naimenov,  Zavnumber, Edizmerenie, Amount, Price, Sumprice');
frmConnection.qSells.SQL.Add('from Sells');
frmConnection.qSells.Active:=true;
  begin
  if frmConnection.qSells.FieldByName('Naimenov').AsString=Naimenov then
       begin
       frmConnection.qSells.Edit;
       frmConnection.qSells.FieldByName('Naimenov').AsString:=frmConnection.qSells.FieldByName('Naimenov').AsString;
frmConnection.qSells.FieldByName('Zavnumber').AsInteger:=ZavNum;

frmConnection.qSells.FieldByName('Edizmerenie').AsString:=EdIzmer;

frmConnection.qSells.FieldByName('Price').AsCurrency:=Price;
frmConnection.qSells.FieldByName('Sumprice').AsCurrency:=Sumprice; 
      frmConnection.qSells.FieldByName('Amount').AsInteger:=frmConnection.qSells.FieldByName('Amount').AsInteger+strtoint(spinedit1.Text);
       frmConnection.qSells.Post
       end
       else
      frmConnection.qSells.Insert;
      frmConnection.qSells.FieldByName('Naimenov').AsString:=Naimenov;
      frmConnection.qSells.FieldByName('Zavnumber').AsInteger:=ZavNum;
      frmConnection.qSells.FieldByName('Amount').AsInteger:=strtoint(spinedit1.Text);
      frmConnection.qSells.FieldByName('Edizmerenie').AsString:=EdIzmer;
      frmConnection.qSells.FieldByName('Price').AsCurrency:=Price;
      frmConnection.qSells.FieldByName('Sumprice').AsCurrency:=Sumprice;
      frmConnection.qWarehouse.Edit;
      frmConnection.qWarehouse.FieldByName('Amount').AsInteger:=frmConnection.qWarehouse.FieldByName('Amount').AsInteger - strtoint(spinedit1.Text);
      frmConnection.qSells.Post;
      frmConnection.qWarehouse.Post;
      if frmConnection.qWarehouse.FieldByName('Amount').AsInteger=0 then frmConnection.qWarehouse.Delete;
      frmAmount.Close;
      frmWarehouse.Show;
      end;
  end;

У меня первичный ключ на Naimenov, поэтому ошибка?если да то как решить данную проблему!
плохо знаю SQL по этому с ним не смог!поэтому сделал через ADOQuery

20:43
Ну хотя бы на истинный путь направьте!

Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
У нас есть кнопка "Правка".
Читаем правила раздела.
По правилам это приравнивается к флуду.

[Аватар]

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

[Blood_ghosT]

Сори если не правильно пояснил ошибку!Делаю программу склад!БД=Аксес!
Моя кнопка добавляет в таблицу оформление заказа товар из таблицы склад если добавить один раз товар то код работает!А если еще раз добавить тот же товар то он будет заноситься как не то же товар а как новый!
Хотелось бы что бы при добавлении нового товара, который уже существует в таблице, количество просто увеличивалось, а не заносилось как новый товар!

данное условие

 if frmConnection.qSells.FieldByName('Naimenov').AsString=Naimenov then

проверяет на наличие товара! но выходит ошибка что qSells не знает что делать то ли заносить то ли редактировать!

Надеюсь на этот раз я все правильно пояснил!

[Аватар]

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

дальше

...
frmConnection.qSells.SQL.Clear;
frmConnection.qSells.SQL.Add('Select Naimenov, Naimenov,  Zavnumber, Edizmerenie, Amount, Price, Sumprice'); //зачем два раза Naimenov?
frmConnection.qSells.SQL.Add('from Sells');
frmConnection.qSells.Active:=true;
  begin  //begin лишний
  if frmConnection.qSells.FieldByName('Naimenov').AsString=Naimenov then
...
       frmConnection.qSells.Post
       end
       else begin  //begin потеряли
      frmConnection.qSells.Insert;
...

add

if frmConnection.qSells.FieldByName('N aimenov').AsString=Naimenov

Эта проверка даст False даже при сравнении 'Б' и 'б'. Используйте AnsiUpperCase при сравнении

add

evg_m прав, даже не заметил что в первом запросе WHERE нет

[evg_m]

Чтобы знать что такого товара нет его надо искать, а не просто сравнивать первый попавшийся с искомым так написано у тебя в программе.
Для этого можно использовать разные методы.
1. SQL искать с помощью Access

frmConnection.qSells.SQL.:='Select Naimenov, Naimenov,  Zavnumber, Edizmerenie, Amount, Price, Sumprice' #13
 + 'from Sells'#13
 + 'where Naimenov =:Naimtovar';
frmConnection.qSells.Parammeters.ParamByname('naimtovar').value:=Naimenov;
frmConnection.Open;
if not frmConnection.IsEmpty then begin 
//товар есть
// но товар может оказаться и не один
end
else begin
//товара нет
end;

2. тащить всю таблицу в программу (как сейчас)

frmConnection.Open;
if frmConnection.locate('naimenov', naimenoc, []) then begin
// будет найдена первая запись
end
else begin
// не нашли
end;

3. искать самостоятельно перебирая записи.

frmConnection.Open;
while not frmConnection.EOf do begin
  if ............ then begin
  // нашли товар
  end; 
  frmConnection.next;
end;
// о том что товара нет мы узнаем только перебрав ВСЕ записи.
if frmConnection.EOF then begin
// не нашли
end;

[Blood_ghosT]

Спасибо парни за помощь вроде код работает!!

procedure TfrmAmount.btnOkfrmAmountClick(Sender: TObject);
begin
frmConnection.qSells.Active:=false;
frmConnection.qSells.SQL.Clear;
frmConnection.qSells.SQL.Add('Select Naimenov, Zavnumber, Edizmerenie, Amount, Price, Sumprice');
frmConnection.qSells.SQL.Add('from Sells');
frmConnection.qSells.Active:=true;

  if frmConnection.qSells.Locate('Naimenov', Naimenov,[])
  then
    begin
       frmConnection.qSells.Edit;
       frmConnection.qSells.FieldByName('Naimenov').AsString:=frmConnection.qSells.FieldByName('Naimenov').AsString;
       frmConnection.qSells.FieldByName('Zavnumber').AsInteger:=ZavNum;
       frmConnection.qSells.FieldByName('Amount').AsInteger:=frmConnection.qSells.FieldByName('Amount').AsInteger+strtoint(spinedit1.Text);
       frmConnection.qSells.FieldByName('Edizmerenie').AsString:=EdIzmer;
       frmConnection.qSells.FieldByName('Price').AsCurrency:=Price;
       frmConnection.qSells.FieldByName('Sumprice').AsCurrency:=Sumprice;
       frmConnection.qWarehouse.Edit;
       frmConnection.qWarehouse.FieldByName('Amount').AsInteger:=frmConnection.qWarehouse.FieldByName('Amount').AsInteger - strtoint(spinedit1.Text);
       frmConnection.qSells.Post;
       frmConnection.qWarehouse.Post;
       if frmConnection.qWarehouse.FieldByName('Amount').AsInteger=0 then frmConnection.qWarehouse.Delete;
       frmAmount.Close;
       frmWarehouse.Show;
       end
       else
       begin
      frmConnection.qSells.Insert;
      frmConnection.qSells.FieldByName('Naimenov').AsString:=Naimenov;
      frmConnection.qSells.FieldByName('Zavnumber').AsInteger:=ZavNum;
      frmConnection.qSells.FieldByName('Amount').AsInteger:=strtoint(spinedit1.Text);
      frmConnection.qSells.FieldByName('Edizmerenie').AsString:=EdIzmer;
      frmConnection.qSells.FieldByName('Price').AsCurrency:=Price;
      frmConnection.qSells.FieldByName('Sumprice').AsCurrency:=Sumprice;
      frmConnection.qWarehouse.Edit;
      frmConnection.qWarehouse.FieldByName('Amount').AsInteger:=frmConnection.qWarehouse.FieldByName('Amount').AsInteger - strtoint(spinedit1.Text);
      frmConnection.qSells.Post;
      frmConnection.qWarehouse.Post;
      if frmConnection.qWarehouse.FieldByName('Amount').AsInteger=0 then frmConnection.qWarehouse.Delete;
      frmAmount.Close;
      frmWarehouse.Show;
      end;
  end;

Правда че то третьим способом не получилось!