Перенос данных из таблицы в таблицу - БД в Delphi

Kisma · 25.03.2010, 22:20

Доброго времени суток! У меня есть таблица (Paradox+Table+DBGrid), в ней содержаться данные о системных блоках, и есть кнопка "Списать". Так вот мне необходимо выделить в таблице номер системного блока, нажать на кнопку "списать" и чтобы выделенный системный блок перенесся из этой таблицы в таблицу "списанные" и там сохранился и после последующих открытий программы никуда не исчезал оттуда! Как такое организовать и возможно ли? Заранее огромное спасибо!

mihali4 · 26.03.2010, 23:38

1. Выделяем.

Код:

2. TableSpisan.Insert;
3. TableSpisan.FieldByName('SystBlock').Value:=TableNeSpisan.FieldByName('SystBlock').Value;
4. TableSpisan.Post;
5. TableNeSpisan.Delete;

Хоть какую книжку по базам данных почитать в голову не приходило ?
Или хотя бы встроенным хэлпом воспользоваться ?

Rebelion_Angel · 18.10.2010, 16:09

Цитата:

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

1. Выделяем.

Код:

2. TableSpisan.Insert;
3. TableSpisan.FieldByName('SystBlock').Value:=TableNeSpisan.FieldByName('SystBlock').Value;
4. TableSpisan.Post;
5. TableNeSpisan.Delete;

используя данный метод он создает в другой таблице строку но заполненым остаеться лишь параметр (SystBlock) а остальные поля в строке пустые .

Как сделать чтоб именно эту строку переносил полностью со всеми параметрами?

структура таблиц исходной и приемника одинаковы.

Подскажите пожалуйста.

palevg · 19.10.2010, 22:54

Решение вопроса для Вашего варианта (две таблицы с одинаковой структурой):

Код:

for i := 0 to TableNeSpisan.FieldCount - 1 do
 TableSpisan.Fields.Fields[i].AsVariant := TableNeSpisan.Fields.Fields[i].AsVariant;
TableSpisan.Post;
TableNeSpisan.Delete

Хотя я бы сделал всего одну таблицу и добавил в неё поле ну хотя бы Boolean (поскольку таблица Paradox): значение по умолчанию - False (не списано), если надо списать - меняем значение на True.

И потом можно уже делать выборку по списанным/несписанным

Rebelion_Angel · 19.10.2010, 23:17

большое спасибо за ответ буду пробовать, нас чет поля типа boolean подумаю

Rebelion_Angel · 20.10.2010, 11:59

После вставки кода формируеться сообщение : исключение EdatabaseErorr Table2:Dataset not in edit or insert mode.

Что еще я мог не доделать или не подключить? использую Delphi 7

mihali4 · 21.10.2010, 14:50

Ну дык...
Перед кодом 4-го поста нужно вставить

Код:

 TableSpisan.Insert;

Rebelion_Angel · 22.10.2010, 12:09

Спс ! помогло )))

25.03.2010, 22:20	#1
Kisma Пользователь Регистрация: 10.02.2010 Сообщений: 13	Перенос данных из таблицы в таблицу Доброго времени суток! У меня есть таблица (Paradox+Table+DBGrid), в ней содержаться данные о системных блоках, и есть кнопка "Списать". Так вот мне необходимо выделить в таблице номер системного блока, нажать на кнопку "списать" и чтобы выделенный системный блок перенесся из этой таблицы в таблицу "списанные" и там сохранился и после последующих открытий программы никуда не исчезал оттуда! Как такое организовать и возможно ли? Заранее огромное спасибо! Попала как-то Алиса в Зазеркалье. Ей понравилось - и девку поперло! В затумбочье, задиванье, зашторье, закроватье... А в конце - застолье, запой и замуж.

26.03.2010, 23:38	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	1. Выделяем. Код: `2. TableSpisan.Insert; 3. TableSpisan.FieldByName('SystBlock').Value:=TableNeSpisan.FieldByName('SystBlock').Value; 4. TableSpisan.Post; 5. TableNeSpisan.Delete;` Хоть какую книжку по базам данных почитать в голову не приходило ? Или хотя бы встроенным хэлпом воспользоваться ?

19.10.2010, 22:54	#4
palevg Пользователь Регистрация: 03.10.2010 Сообщений: 77	Решение вопроса для Вашего варианта (две таблицы с одинаковой структурой): Код: `for i := 0 to TableNeSpisan.FieldCount - 1 do TableSpisan.Fields.Fields[i].AsVariant := TableNeSpisan.Fields.Fields[i].AsVariant; TableSpisan.Post; TableNeSpisan.Delete` Хотя я бы сделал всего одну таблицу и добавил в неё поле ну хотя бы Boolean (поскольку таблица Paradox): значение по умолчанию - False (не списано), если надо списать - меняем значение на True. И потом можно уже делать выборку по списанным/несписанным По соотношению цена-качество, халявное пиво не имеет конкурентов.

21.10.2010, 14:50	#7
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Ну дык... Перед кодом 4-го поста нужно вставить Код: `TableSpisan.Insert;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выборка строк с определенной меткой из одной таблицы и автоматический перенос в новую таблицу.	dk01	Microsoft Office Excel	28	30.01.2011 18:16
авт. перенос данных из нескольких столбцов одной таблицы в один столбец другой таблицы	A_ALL	Microsoft Office Access	7	24.08.2009 21:13
сортировка данных (пересчет возможных вариантов комбинаций, перенос данных в таблицу)	Vitalik85	Microsoft Office Excel	4	12.08.2009 00:30
перенос данных из таблицы 1 в таблицу 2	AndreyZeus	Microsoft Office Excel	1	20.03.2009 16:02
копирование данных из таблицы в таблицу	Sack	Microsoft Office Access	1	16.09.2008 05:59

19.10.2010, 23:17	#5
Rebelion_Angel Пользователь Регистрация: 18.10.2010 Сообщений: 12	большое спасибо за ответ буду пробовать, нас чет поля типа boolean подумаю

20.10.2010, 11:59	#6
Rebelion_Angel Пользователь Регистрация: 18.10.2010 Сообщений: 12	После вставки кода формируеться сообщение : исключение EdatabaseErorr Table2:Dataset not in edit or insert mode. Что еще я мог не доделать или не подключить? использую Delphi 7

22.10.2010, 12:09	#8
Rebelion_Angel Пользователь Регистрация: 18.10.2010 Сообщений: 12	Спс ! помогло )))