Вопрос по Locate

[raccoon]

Помогите пожалуйста с задачей(я в этом совсем новичок). Для начала мой код:

if ADOQuery1.Locate('employee_id', Variant(ADOQuery2.FieldbyName('e_id').AsInteger), [loCaseInsensitive]) Then
  Showmessage('Запись уже существует')
else
begin
  ADOQuery1.insert;
  ADOQuery1.FieldByName('employee').AsString:=ADOQuery2.FieldByName('employee');
  ADOQuery1.Post;
end;

У меня происходит сначала проверка записи на дубликат, потом вставка записи.

Все функционирует. Только проблема если я выбераю не одну а несколько записей, вставка все равно происходит не смотря на то что в некоторых из выбранных записей дубликат присутствует. Как это исправить, пожалуйста помогите очень надо (если можно без sql запроса)

Сообщение отредактировано: raccoon - 17.08.15, 16:03

[ViktorXP]

Цитата raccoon @ 17.08.15, 16:02

Только проблема если я выбераю не одну а несколько записей

ем....
locate не умеет искать две строки.
TDataSet не умеет иметь сразу несколько позиций (только одну (+ метки но это не всчет. и то наверное это в гриде метки))

[Bas]

Как организован проход (цикл) по ADOQuery2?

[raccoon]

Цитата Bas @ 18.08.15, 06:00

Цикл вообще никак не организован, об этом я даже не подумал мне казалось локейт вполне достаточно. Если честно я даже не имею представление как этот цикл сделать, не подскажите пожалуйста, очень важно?

[Bas]

Цитата raccoon @ 18.08.15, 06:37

Цикл вообще никак не организован, об этом я даже не подумал

При множественном выборе как вы делаете перебор записей в ADOQuery2?

Цитата raccoon @ 18.08.15, 06:37

мне казалось локейт вполне достаточно.

Цитата ViktorXP @ 17.08.15, 20:13

locate не умеет искать две строки.

Цитата raccoon @ 18.08.15, 06:37

Если честно я даже не имею представление как этот цикл сделать, не подскажите пожалуйста, очень важно?

Как то так.

if ADOTable1.Supports(coSeek) then begin
 with ADOTable1 do begin
   Close;
   IndexName := strIndex;
   CursorLocation := clUseServer;
   Open;
   Seek (Edit1.Text, soFirstEQ);
  end;
  if ADOTable1.EOF then
   ShowMessage ('Record value NOT found');
end

или так

while not ADOQuery2.EOF do  
if ADOQuery1.Locate('employee_id', Variant(ADOQuery2.FieldbyName('e_id').AsInteger), [loCaseInsensitive]) Then
  Showmessage('Запись уже существует')
else
begin
  ADOQuery1.insert;
  ADOQuery1.FieldByName('employee').AsString:=ADOQuery2.FieldByName('employee');
  ADOQuery1.Post;
end;
.....

[raccoon]

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

[Bas]

Цитата raccoon @ 18.08.15, 15:36

Вместо, того чтобы проверять записи выбранные мной,

Где выбираете где храните выбранное?

Цитата raccoon @ 18.08.15, 15:36

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

Ошибка в 17-ой строке. Телепаты сейчас в отпуске.

[raccoon]

Цитата Bas @ 19.08.15, 05:47

выбираю в dbgrid-e, храню в mysql. Использовал второй код, ошибка не знаю в чем, сделал запрос в mysql а там теперь более 2 тысяч записей, а было около 40, и именно те записи повторяются, которые я выбрал

Сообщение отредактировано: raccoon - 19.08.15, 08:52

[Bas]

Цитата raccoon @ 19.08.15, 08:49

в mysql а там теперь более 2 тысяч записе

Что было в ADOQuery2?

Цитата raccoon @ 19.08.15, 08:49

выбираю в dbgrid-e, храню в mysql.

Тогда цикл (for) надо проводить по DBGrid.SelectedRows.Count

[raccoon]

спасибо очень помогло!!!!