Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1760858 Mon, 12 Nov 2007 09:19:54 +0000 Ошибка вставки записи в БД MS Access https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1760858 Цитата MIF @
Не, там в коде есть Last.

упс.. проглядел :)]]> Игорь Акопян Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1758227 Fri, 09 Nov 2007 11:26:46 +0000 Ошибка вставки записи в БД MS Access https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1758227 Цитата Игорь Акопян @
Он, судя по запросу, хватает первый попавшийся
Не, там в коде есть Last. Если первичного ключа нет, то выбирает ID близкое к максимальному.
SkyStar, если всё таки хочешь сам генерировать ИД (хотя багов при таком подходе бывает немеряно) то измени запрос так, как советует Игорь Акопян.]]> MIF Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1758208 Fri, 09 Nov 2007 11:15:58 +0000 Ошибка вставки записи в БД MS Access https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1758208 Кроме того, откуда видно, что метод getLastId возвращает именно Last ID? Он, судя по запросу, хватает первый попавшийся, может там МАХ поставить?]]> Игорь Акопян Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1757526 Fri, 09 Nov 2007 04:33:53 +0000 Ошибка вставки записи в БД MS Access https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1757526 MIF Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1757523 Fri, 09 Nov 2007 04:30:39 +0000 Ошибка вставки записи в БД MS Access https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1757523 нафига ты писал все эти функции и процедуры, когда можно всё сделать намного короче и практичнее!
возможно что у тебя где просто идёт очень большая утечка памяти...
надо дебажить...]]> dron-s Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1757522 Fri, 09 Nov 2007 04:18:33 +0000 Ошибка вставки записи в БД MS Access https://forum.sources.ru/index.php?showtopic=209551&view=findpost&p=1757522
при создании формы:
    ta := TAccessWorker.Create('db1.mdb');


вставка происходит так (TGood - произвольный класс):
    good := TGood.Create;
    good.SetId(ta.getLastGoodId + 1);
     
    ta.insertGood(good);


TAccessWorker.insertGood(good);(SQLInsert взят из DRKB)
     procedure TAccessWorker.insertGood(good :TGood);
      var
        query :TADOQuery;
      begin
        query := TADOQuery.Create(nil);
     
        with query do begin
          ConnectionString := globalDbConnectionString;
          SQL.Text := SqlInsert(
            [good.GetId, good.GetParentId, good.GetName, good.GetDescription, CurrToStr(good.GetPrice), good.GetQuantity],
            'goods'
          );
          ExecSQL;
          Close;
        end;
      end;


TAccessWorker.getLastGoodId - выясняет значение последнего id
      function TAccessWorker.getLastGoodId : Integer;
      var
        query :TADOQuery;
        num :String;
      begin
        query := TADOQuery.Create(nil);
        with query do begin
          ConnectionString := globalDbConnectionString;
          SQL.Text := 'SELECT id from goods';
          Open;
          Last;
     
          num := FieldByName('id').AsString;
          if(num <> '') then begin
            Result := StrToInt(num);
          end else begin
            Result := -1;
          end;
     
          Close;
        end;
      end;


    globalDbConnectionString :=
              'Provider=Microsoft.Jet.OLEDB.4.0;' +
              'Data Source=' + fileName + ';' +
              'Persist Security Info=False;' +
              'Jet OLEDB:Database Password=' + password;


Когда я произвожу подряд 32 вставки (между вставками промеуток времени ~1 сек), то после 32-ой итерации, у меня программа падает и выкидывает такой exception (падает постоянно и ИМЕННО после 32-х вставок подряд): EOleException "Неопознанная ошибка"

Падает он в методе getLastId в строке c Open:
    ...
    SQL.Text := 'SELECT id from goods';
    Open;
    Last;
    ...
.

Также, если производить вставки в БД с меньгим интервалом, то программа падает с EOleException из-за того что я пытаюсь вставить запись с уже существующим Id. То есть видно getLastGoodId возращает ещё необновившийся id.

Подскажите как бороться с этими 2-я проблемами...]]> SkyStar Delphi: Базы данных