Удаление строки с одной базы и перемещение ее в Архив (Таблицу)

@names1995 · Регистрация: 13.11.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте, Надо с одной таблицы удалить строку как бы и переместить в ее в корзину (в другую таблицу) скажем.
На формах ADOTable1, DataSource1, DBGrid1

Добавлено через 4 часа 2 минуты
????????????????????

@Витальич · 23.07.2014, 14:41

Стараюсь ни когда не делать функционала удаления данных в своих проектах, вместо этого в таблицу добавляю поле "View". Если поле View равно 1 то данные отображаются, если 0 то не отображаются.

@names1995 · 23.07.2014, 15:12 **[ТС]**

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

Добавлено через 1 минуту

Сообщение от Витальич

Стараюсь ни когда не делать функционала удаления данных в своих проектах, вместо этого в таблицу добавляю поле "View". Если поле View равно 1 то данные отображаются, если 0 то не отображаются.

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

@D1973 · 23.07.2014, 15:31

Для БД, которые работали с BDE (тот же Paradox) был применим такой хороший компонент как TBatchMove, который позволял это делать очень просто.
Для ADO такого не предусмотрели, поэтому приходится что-то выдумывать, например так, как в примерном проекте (делался на RAD XE3)

@D1973 · 23.07.2014, 15:33

Сообщение от Витальич

Стараюсь ни когда не делать функционала удаления данных

А как на счет разрастания объемов БД?

@Витальич · 23.07.2014, 15:36

Таблица1 - где удаляем, Таблица 2 - куда записываем.
создали новую запись в таблице 2 записали туда значения, удали запись в таблице 1

@names1995 · 23.07.2014, 15:45 **[ТС]**

НЕ могу понять что ты там сделал в проекте ?

Добавлено через 1 минуту
ну и как это реализовать?

C++

1
2
3

Form5->ADOTable1->Edit ();
Form5->ADOTable1->Insert();
ADOTable1->Delete ();

а как записать туда значение?

Добавлено через 6 минут

C++

Form5->ADOTable1->Edit ();
Form5->ADOTable1->Insert();
ADOTable1=Form5->ADOTable1;
ADOTable1->Delete ();

@Витальич · 23.07.2014, 16:07

Сообщение от D1973

А как на счет разрастания объемов БД?

У меня есть мелкосерийный проект на FB (4 инсталляции у заказчика) где базы по 120 и более гигов. Проблем по обработке данных нет. Дисковая подсистема аппаратный рейд пять. Еже секундный инсерт около 800 параметров (правда дискреты пакую в int 32). К чему это я? Да кого сейчас волнует размер БД.

Добавлено через 20 минут
names1995, Вот Выдрал из проекта, в нем есть перенос данных из таблицы в таблицу.

Читаю данные из таблицы (Курсор стоит на выбранной записи:

C++

1
2
3

dataBD->p[0] = DataSourceIn->DataSet->FieldByName("ID")->AsInteger;
dataBD->p[1] = DataSourceIn->DataSet->FieldByName("S")->AsFloat;
dataBD->p[2] = DataSourceIn->DataSet->FieldByName("F")->AsInteger;

Запись(перенос) данных в новую таблицу.

C++

   DataSourceOut->DataSet->Append();
   DataSourceOut->DataSet->FieldByName("ID")->AsInteger = dataBD->p[0];
   DataSourceOut->DataSet->FieldByName("P1")->AsAnsiString = dataBD->p[1];
   DataSourceOut->DataSet->FieldByName("P2")->AsAnsiString = dataBD->p[2];
 
   DataSourceOut->DataSet->Post();

Удаляю в первой таблице

C++

1	DataSourceIn->DataSet->Delete();

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

@D1973 · 23.07.2014, 16:16

Не по теме:

Сообщение от Витальич

Да кого сейчас волнует размер БД.

Ну это я так... По старинке еще рассуждаю :D

Добавлено через 2 минуты

Сообщение от names1995

НЕ могу понять что ты там сделал в проекте ?

А пытался?

@Витальич · 23.07.2014, 16:21

D1973, у ТС ADOTable Ваш пример он может не понять. Мой вариант тоже не айс, но ближе идеологически.

@D1973 · 23.07.2014, 16:25

Сообщение от Витальич

у ТС ADOTable

Дык а у меня что? Тот же Access, те же компоненты TADOTable, TADOQuery, TADOConnection.
А если Вы про

Сообщение от D1973

такой хороший компонент как TBatchMove

, то это я так упомянул, я его всегда поминаю, когда аналогичную задачу делать приходится

@Витальич · 23.07.2014, 16:28

D1973, У Вас сделано через TADOQuery, а ТС скорей всего не знает его, по крайней мере он о нем не упоминал в вопросе.

Сообщение от D1973

TBatchMove

ни когда не юзал (не знал), даже в темные времена BDE

@D1973 · 23.07.2014, 16:41

Не по теме:

Сообщение от Витальич

ТС скорей всего не знает его

Ну, судя по соседним темам на форуме - знаком хотя бы в общих чертах

@names1995 · 24.07.2014, 11:35 **[ТС]**

Попытаюсь потом еще раз, спасибо вам ) будут вопросы обращусь

Добавлено через 17 часов 9 минут

Сообщение от Витальич

(Курсор стоит на выбранной записи:

как мне курсор на выбранную запись поставить?

C++

ADOTable1-> ADOTable1->FieldByName("ÔÈÎ")->AsString;
ADOTable1-> = ADOTable1->FieldByName("Íîìåð äîãîâîðà")->AsString;
ADOTable1-> = ADOTable1->FieldByName("Àäðåñ")->AsString;
ADOTable1-> = ADOTable1->FieldByName("Äîìàøíèé òåëåôîí")->AsString;
ADOTable1-> = ADOTable1->FieldByName("Äàòà ïîäêëþ÷åíèÿ")->AsInteger;

@Витальич · 24.07.2014, 11:43

У Вас Grid(таблица) подключен? Если да, то через него и устанавливаете. Для управления из кода, есть методы First(), Next() итд

@names1995 · 24.07.2014, 11:54 **[ТС]**

да, т.е оно будет как-то вот так.

C++

ADOTable1->First () = ADOTable1->FieldByName("ФИО")->AsString;
ADOTable1->First () = ADOTable1->FieldByName("Номер договора")->AsString;
ADOTable1->First () = ADOTable1->FieldByName("Адрес")->AsString;
ADOTable1->First () = ADOTable1->FieldByName("Домашний телефон")->AsString;
ADOTable1->First () = ADOTable1->FieldByName("Дата подключения")->AsInteger;

а как я метод буду приравнивать ?

@Витальич · 24.07.2014, 12:08

C++

ADOTable1->First ();  // Перешли к первой записи в таблице 1
ADOTable2->Append(); // Открыли датасет в таблице 2 на вставку новой записи.
ADOTable2->FieldByName("ФИО")->AsString = ADOTable1->FieldByName("ФИО")->AsString;
ADOTable2->FieldByName("Еще поля")->AsString = ADOTable1->FieldByName("Еще поля")->AsString;
ADOTable2->Post(); // Фиксируем данные в таблице 2
ADOTable1->Delete(); // Удаляем данные из таблице 1

Я ни когда не работал с ADO, пример который я привел из своего проекта использует таблицу MIDAS, там я работаю не с самой таблицей, а датасетом

Сообщение от Витальич

DataSourceOut->DataSet->Append();

Возможно и в ADO так надо, тогда код для переноса/удаления будет выглядеть так:

C++

ADOTable1->DataSet->First ();  // Перешли к первой записи в таблице 1
ADOTable2->DataSet->Append(); // Открыли датасет в таблице 2 на вставку новой записи.
ADOTable2->DataSet->FieldByName("ФИО")->AsString = ADOTable1->DataSet->FieldByName("ФИО")->AsString;
ADOTable2->DataSet->FieldByName("Еще поля")->AsString = ADOTable1->DataSet->FieldByName("Еще поля")->AsString;
ADOTable2->DataSet->Post(); // Фиксируем данные в таблице 2
ADOTable1->DataSet->Delete(); // Удаляем данные из таблице 1

@names1995 · 24.07.2014, 12:41 **[ТС]**

Вот так работает, спасибо )

C++

void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
 
Form5->ADOTable1->Append();
Form5->ADOTable1->FieldByName("ÔÈÎ")->AsString = ADOTable1->FieldByName("ÔÈÎ")->AsString;
Form5->ADOTable1->FieldByName("Íîìåð äîãîâîðà")->AsString = ADOTable1->FieldByName("Íîìåð äîãîâîðà")->AsString;
Form5->ADOTable1->FieldByName("Àäðåñ")->AsString = ADOTable1->FieldByName("Àäðåñ")->AsString;
Form5->ADOTable1->FieldByName("Äîìàøíèé òåëåôîí")->AsString = ADOTable1->FieldByName("Äîìàøíèé òåëåôîí")->AsString;
Form5->ADOTable1->Post();
ADOTable1->Delete();
 
 
 
 
}

@Витальич 1280 / 1185 / 175 Регистрация: 02.12.2013 Сообщений: 4,883
	23.07.2014, 16:21	10
	D1973, у ТС ADOTable Ваш пример он может не понять. Мой вариант тоже не айс, но ближе идеологически. 0

Удаление строки с одной базы и перемещение ее в Архив (Таблицу)

Решение

Решение

@names1995 12 / 13 / 6 Регистрация: 13.11.2012 Сообщений: 295
		1
	Удаление строки с одной базы и перемещение ее в Архив (Таблицу) 23.07.2014, 14:31. Показов 1160. Ответов 17 Метки нет (Все метки) Здравствуйте, Надо с одной таблицы удалить строку как бы и переместить в ее в корзину (в другую таблицу) скажем. На формах ADOTable1, DataSource1, DBGrid1 Добавлено через 4 часа 2 минуты ???????????????????? 0

@Витальич 1280 / 1185 / 175 Регистрация: 02.12.2013 Сообщений: 4,883
	23.07.2014, 14:41	2
	Стараюсь ни когда не делать функционала удаления данных в своих проектах, вместо этого в таблицу добавляю поле "View". Если поле View равно 1 то данные отображаются, если 0 то не отображаются. 0

@names1995 12 / 13 / 6 Регистрация: 13.11.2012 Сообщений: 295
	23.07.2014, 15:12 [ТС]	3
	мне нужно чтобы когда я их удалял, они перемещались в другую таблицу, обычный cutpaste Добавлено через 1 минуту Сообщение от Витальич Стараюсь ни когда не делать функционала удаления данных в своих проектах, вместо этого в таблицу добавляю поле "View". Если поле View равно 1 то данные отображаются, если 0 то не отображаются. мне нужно чтобы когда я их удалял, они перемещались в другую таблицу, обычный cutpaste 0

@D1973 Модератор 9267 / 6045 / 2380 Регистрация: 21.01.2014 Сообщений: 25,820 Записей в блоге: 3
	23.07.2014, 15:33	5
	Сообщение от Витальич Стараюсь ни когда не делать функционала удаления данных А как на счет разрастания объемов БД? 0

@Витальич 1280 / 1185 / 175 Регистрация: 02.12.2013 Сообщений: 4,883
	23.07.2014, 15:36	6
	Таблица1 - где удаляем, Таблица 2 - куда записываем. создали новую запись в таблице 2 записали туда значения, удали запись в таблице 1 1

@D1973 Модератор 9267 / 6045 / 2380 Регистрация: 21.01.2014 Сообщений: 25,820 Записей в блоге: 3
	23.07.2014, 16:16	9
	Не по теме: Сообщение от Витальич Да кого сейчас волнует размер БД. Ну это я так... По старинке еще рассуждаю :D Добавлено через 2 минуты Сообщение от names1995 НЕ могу понять что ты там сделал в проекте ? А пытался? 0

@D1973 Модератор 9267 / 6045 / 2380 Регистрация: 21.01.2014 Сообщений: 25,820 Записей в блоге: 3
	23.07.2014, 16:25	11
	Сообщение от Витальич у ТС ADOTable Дык а у меня что? Тот же Access, те же компоненты TADOTable, TADOQuery, TADOConnection. А если Вы про Сообщение от D1973 такой хороший компонент как TBatchMove , то это я так упомянул, я его всегда поминаю, когда аналогичную задачу делать приходится 2

@Витальич 1280 / 1185 / 175 Регистрация: 02.12.2013 Сообщений: 4,883
	23.07.2014, 16:28	12
	D1973, У Вас сделано через TADOQuery, а ТС скорей всего не знает его, по крайней мере он о нем не упоминал в вопросе. Сообщение от D1973 TBatchMove ни когда не юзал (не знал), даже в темные времена BDE 1

@D1973
	23.07.2014, 16:41 #13
	Не по теме: Сообщение от Витальич ТС скорей всего не знает его Ну, судя по соседним темам на форуме - знаком хотя бы в общих чертах 0

@Витальич 1280 / 1185 / 175 Регистрация: 02.12.2013 Сообщений: 4,883
	24.07.2014, 11:43	15
	У Вас Grid(таблица) подключен? Если да, то через него и устанавливаете. Для управления из кода, есть методы First(), Next() итд 1