Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ADOQuery.Delete / 18 сообщений из 18, страница 1 из 1
16.12.2019, 14:12
    #39903463
HobbytF
HobbytF
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
Приветствую.

Требуется удалить запись из набора DataSet.

Код: pascal
1.
2.
3.
4.
5.
6.
ADOQuery.SQL.Text:='select article from table where article='0005';
ADOQuery.Open;
ADOQuery.Locate('article','0005',[loPartialKey]);
ShowMessage(ADOQuery.FieldByName('article').AsString);
ADOQuery.Delete;
ShowMessage(ADOQuery.FieldByName('article').AsString);



При первом запуске программы первый ShowMessage показывает article, а второй показывает NULL. Этого я и добиваюсь.
Но при последующих запусках программы даже первый ShowMessage показывает NULL.
Запись в базе данных не удалена, но она больше не отображается.

Для чего я это делаю: Есть два больших набора данных, которые мне требуется сравнить. Прохожу циклом по первому набору данных и нахожу соответствующую запись из второго. Если запись существует, удаляю ее из второго набора. В итоге во втором наборе останутся только записи, отсутствующие в первом.
Может есть более элегантное решение?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 14:36
    #39903482
kv67
kv67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
HobbytF,

Код: pascal
1.
2.
ADOQuery.SQL.Text:='delete from table where article=''0005''';
ADOQuery.ExecSQL;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 14:46
    #39903488
Квейд
Квейд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
HobbytF

Для чего я это делаю: Есть два больших набора данных, которые мне требуется сравнить. Прохожу циклом по первому набору данных и нахожу соответствующую запись из второго. Если запись существует, удаляю ее из второго набора. В итоге во втором наборе останутся только записи, отсутствующие в первом.

Может есть более элегантное решение?

Есть. Выполнить всего один запрос вроде такого
Код: plsql
1.
DELETE FROM TABLE2 WHERE ARTICLE IN (SELECT ARTICLE FROM TABLE1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 15:10
    #39903524
HobbytF
HobbytF
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
kv67
HobbytF,

Код: pascal
1.
2.
ADOQuery.SQL.Text:='delete from table where article=''0005''';
ADOQuery.ExecSQL;



Нет, мне не нужно удалять эту запись из базы данных. Мне нужно только найти разницу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 15:11
    #39903526
HobbytF
HobbytF
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
Квейд
HobbytF

Для чего я это делаю: Есть два больших набора данных, которые мне требуется сравнить. Прохожу циклом по первому набору данных и нахожу соответствующую запись из второго. Если запись существует, удаляю ее из второго набора. В итоге во втором наборе останутся только записи, отсутствующие в первом.

Может есть более элегантное решение?

Есть. Выполнить всего один запрос вроде такого
Код: plsql
1.
DELETE FROM TABLE2 WHERE ARTICLE IN (SELECT ARTICLE FROM TABLE1)



Это тоже удаление из базы. У мне нужно на этапе обработки этих датасетов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 15:16
    #39903532
kv67
kv67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
HobbytF,

Код: pascal
1.
2.
ADOQuery.SQL.Text:='select article from table2 where article not in (select article from table1)';
ADOQuery.Open;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 15:56
    #39903564
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
HobbytF
Нет, мне не нужно удалять эту запись из базы данных. Мне нужно только найти разницу.
HobbytF
Код: pascal
1.
ADOQuery.Delete;

Вы как-то определитесь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 21:14
    #39903716
HobbytF
HobbytF
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
kv67
HobbytF,

Код: pascal
1.
2.
ADOQuery.SQL.Text:='select article from table2 where article not in (select article from table1)';
ADOQuery.Open;



Это тоже не то. Дело в том, что первый датасет формируется из бд oracle, второй - из postgresql. Задача - их сравнить в приложении. Все, что можно сделать в бд, я уже сделал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 21:20
    #39903719
HobbytF
HobbytF
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
_Vasilisk_
HobbytF
Нет, мне не нужно удалять эту запись из базы данных. Мне нужно только найти разницу.
HobbytF
Код: pascal
1.
ADOQuery.Delete;

Вы как-то определитесь


Да вроде определенно сказал. Нужно удалить запись из датасета, а не из базы. Может быть я неправильно термины употреляю. В результате ADOQuery.Open формируется набор данных - датасет. Вот что я имею в виду. Другой вопрос - что делает метод delete? Он и из базы не удаляет, и из датасета удаляет напрочь (описал в первом посте).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 21:58
    #39903740
HobbytF
HobbytF
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
HobbytF
_Vasilisk_
пропущено...
пропущено...
Вы как-то определитесь


Да вроде определенно сказал. Нужно удалить запись из датасета, а не из базы. Может быть я неправильно термины употреляю. В результате ADOQuery.Open формируется набор данных - датасет. Вот что я имею в виду. Другой вопрос - что делает метод delete? Он и из базы не удаляет, и из датасета удаляет напрочь (описал в первом посте).


Дико извиняюсь. ADOQuery.Delete все-таки удаляет запись из базы. А это совершенно не нужно. Значит этот метод не подходит. Вообще, есть ли такой метод, который удовлетворяет моей потребности?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 22:32
    #39903755
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
HobbytF
Вообще, есть ли такой метод, который удовлетворяет моей потребности?

Метод есть, просто вы не можете сформулировать чего хотите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 22:45
    #39903759
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
DimaBr
HobbytF
Вообще, есть ли такой метод, который удовлетворяет моей потребности?

Метод есть, просто вы не можете сформулировать чего хотите

Перевожу: он хочет сравнить две таблицы в разных СУБД и получить разницу в датасете.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 23:07
    #39903767
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
HobbytF
kv67
HobbytF,

Код: pascal
1.
2.
ADOQuery.SQL.Text:='select article from table2 where article not in (select article from table1)';
ADOQuery.Open;



Это тоже не то. Дело в том, что первый датасет формируется из бд oracle, второй - из postgresql. Задача - их сравнить в приложении. Все, что можно сделать в бд, я уже сделал.

Самое смешное, что то, что вы хотите делается именно в СУБД. Либо один сервер линкуется к другому, либо с помощью openquery.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 23:32
    #39903773
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
Сравниваем ПЕРВЫЙ датасет со ВТОРЫМ (а ведь можно и сравнивать наоборот) на клиенте
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dataset1.Open;
Dataset2.Open;
Dataset1.First;
while not Dataset1.Eof do begin
  if Dataset2.Locate('Id',Dataset1['Id'],[]) then begin
    // да, такой Id есть во втором датасете
  end;
  Dataset1.Nest;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2019, 23:38
    #39903774
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
DimaBr
Сравниваем ПЕРВЫЙ датасет со ВТОРЫМ (а ведь можно и сравнивать наоборот) на клиенте
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dataset1.Open;
Dataset2.Open;
Dataset1.First;
while not Dataset1.Eof do begin
  if Dataset2.Locate('Id',Dataset1['Id'],[]) then begin
    // да, такой Id есть во втором датасете
  end;
  Dataset1.Nest;
end;


автор...Есть два больших набора данных, которые мне требуется сравнить. ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2019, 00:47
    #39903787
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
автор...Есть два больших набора данных, которые мне требуется сравнить. ...
Для человека который не разбирается что такое Delete и 1000 записей - большой набор данных
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2019, 08:09
    #39903829
goldmi45
goldmi45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
HobbytF
ADOQuery.Delete все-таки удаляет запись из базы. А это совершенно не нужно. Значит этот метод не подходит. Вообще, есть ли такой метод, который удовлетворяет моей потребности?

1) Попробуйте использовать memory DataSet. По-крайней мере, удаление записи у них не удаляет записи на сервере.
2) Переливаете из второй БД в первую нужную таблицу и сравниваете на стороне SQL.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2019, 10:04
    #39903865
Василий 2
Василий 2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOQuery.Delete
Можно еще применить CachedUpdates, если у компонента есть такая фича
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ADOQuery.Delete / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 446ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2038763]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 145ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 209ms
total:  446ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]