Добавление колонок

@FroL · Регистрация: 07.01.2010

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

У меня есть таблица с 3 полями(колонками). Мне надо динамически,т.е. кодом, добавить колонку в базу данных, но при добавлении записи в предыдущих стираются .Вижу 2 варианта:
1. Добавить колонку, но что бы старые записи сохранились.
2. Скинуть записи в буфер, а после добавления колонки заново их записать.
Использую связь Table->DataSource->DBGrid.

@Lord_Voodoo · 20.01.2010, 09:08

FroL, а ну-ка покажи, как ты добавляешь?

@FroL · 20.01.2010, 09:12 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{     
 Form1->Table3->Active = false;
 TFieldDef *pNewDef = Form1->Table3->FieldDefs->AddFieldDef();
 AnsiString nam = "Z" + Form1->Table1->FieldByName("№")->AsString;
 pNewDef->Name = nam;
 pNewDef->DataType = ftString;
 pNewDef->Size = 50;
 Form1->Table3->CreateTable();
 Form1->Table3->Open();
 Form1->Table3->Insert();
 Form1->Table3->First();
 TField* field = Form1->Table3->FindField(nam);
 for(int i = 0; i <= k; i++)
  {
    if(op[i] != "")
    {
     Form1->Table3->Append();
     field->AsString = op[i];
    }
  }   
 Form1->Table3->Post();
 Form2->Close(); 
}

@Lord_Voodoo · 20.01.2010, 09:35

FroL, ты решил впихнуть в код все методы класса TTable? 10-11 - переводить таблицу в режим добавления и устанавливать указатель на первую запись совсем не нужно... 17 - это уже точно лишнее, да и field лишнее, можно через fieldbyname все организовать... а еще у меня возникает вопрос - таблица создается постоянно?

@FroL · 20.01.2010, 09:38 **[ТС]**

нет. Я взял это с Архангельского. Этот код рабочий, только Table->CreateTable стирает все записи. А без нее не добавляется колонка.

@Lord_Voodoo · 20.01.2010, 09:45

FroL, так Архангельского в таком случае я читать не буду, потому что либо ты что-то путаешь и наговариваешь на человека, либо мне такие советы и даром не нужны... а на счет того, что данные исчезают, я могу тебе объяснить - ты постоянно пересоздаешь таблицу и заливаешь данные... таблицу по-хорошему надо создавать, когда ее нет, т.е. хотя бы проверку бы впихнул...

@FroL · 20.01.2010, 16:59 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
 Form1->Table3->First();
 
 for(int i = 0; i <= k; i++)
  {
    if(op[i] != "")
    {
     Form1->Table3->Append();
     field->AsString = op[i];
    }
  }

Это я прикрутил.У него такого нет. Кстати книжка хорошая. А как же мне тогда сохранить добавленную колонку?

Добавлено через 7 часов 10 минут
Очень надо.А может скинуть всю таблицу в буфер или в другую таблицу ,добавить колонку и скопировать обратно? Только как это сделать?

@Lord_Voodoo · 20.01.2010, 17:08

FroL, чтобы редактировать структуру таблицы используйте запрос alter table

@FroL · 20.01.2010, 17:11 **[ТС]**

А это как?

@Lord_Voodoo · 20.01.2010, 17:19

FroL, вы не знакомы с sql?

@FroL · 20.01.2010, 18:05 **[ТС]**

Нет.А подскажи литературу по SQL.

@Lord_Voodoo · 21.01.2010, 00:00

найдите папку с установленной BDE, там есть файлик localsql.hlp - для начала хватит

@FroL · 21.01.2010, 12:06 **[ТС]**

Большое спасибо.

@FroL · 17.02.2010, 16:30 **[ТС]**

воспользовался Alter Table:

C++
1
2
3
Form1->Query1->Close();
Form1->Query1->SQL->Strings[0] = "Alter Table Fale Add Z106 CHAR(100)";
Form1->Query1->ExecSQL();

Все отлично добавлялось.Но снес винду, была Vista поставил Seven. И при добавлении прога стала зависать.Это из-зи винды?

@Lord_Voodoo · 17.02.2010, 16:56

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

@FroL · 20.02.2010, 17:52 **[ТС]**

Создал новое приложение, там все нормально работает.В исходной проге отключил все функции, кроме этой, но не помогло. А можно ли пересобрать приложение, что бы ненужные компоненты удалились?

Добавлено через 21 час 35 минут
Все спасибо разобрался. Не хочу плодить темы поэтому спрошу здесь. Есть запись и надо переместиться к соседней колонке, т.е. вертикально. Как это сделать?

@Lord_Voodoo · 21.02.2010, 11:51

FroL, в источнике данных просто выполнить метод Prior

@FroL · 21.02.2010, 12:00 **[ТС]**

Блин люпус.Я описался.Мне надо переместится горизонтально.Я сделал это через вызов сигнала OnKeyPress для клавиши Tab.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@FroL 61 / 49 / 6 Регистрация: 07.01.2010 Сообщений: 307

	Добавление колонок 20.01.2010, 08:46. Показов 1979. Ответов 17 Метки нет (Все метки) У меня есть таблица с 3 полями(колонками). Мне надо динамически,т.е. кодом, добавить колонку в базу данных, но при добавлении записи в предыдущих стираются .Вижу 2 варианта: 1. Добавить колонку, но что бы старые записи сохранились. 2. Скинуть записи в буфер, а после добавления колонки заново их записать. Использую связь Table->DataSource->DBGrid. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	20.01.2010, 09:08
	FroL, а ну-ка покажи, как ты добавляешь? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	20.01.2010, 09:35
	FroL, ты решил впихнуть в код все методы класса TTable? 10-11 - переводить таблицу в режим добавления и устанавливать указатель на первую запись совсем не нужно... 17 - это уже точно лишнее, да и field лишнее, можно через fieldbyname все организовать... а еще у меня возникает вопрос - таблица создается постоянно? 0

@FroL 61 / 49 / 6 Регистрация: 07.01.2010 Сообщений: 307
	20.01.2010, 09:38 [ТС]
	нет. Я взял это с Архангельского. Этот код рабочий, только Table->CreateTable стирает все записи. А без нее не добавляется колонка. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	20.01.2010, 09:45
	FroL, так Архангельского в таком случае я читать не буду, потому что либо ты что-то путаешь и наговариваешь на человека, либо мне такие советы и даром не нужны... а на счет того, что данные исчезают, я могу тебе объяснить - ты постоянно пересоздаешь таблицу и заливаешь данные... таблицу по-хорошему надо создавать, когда ее нет, т.е. хотя бы проверку бы впихнул... 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	20.01.2010, 17:08
	FroL, чтобы редактировать структуру таблицы используйте запрос alter table 0

@FroL 61 / 49 / 6 Регистрация: 07.01.2010 Сообщений: 307
	20.01.2010, 17:11 [ТС]
	А это как? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	20.01.2010, 17:19
	FroL, вы не знакомы с sql? 0

@FroL 61 / 49 / 6 Регистрация: 07.01.2010 Сообщений: 307
	20.01.2010, 18:05 [ТС]
	Нет.А подскажи литературу по SQL. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	21.01.2010, 00:00
	найдите папку с установленной BDE, там есть файлик localsql.hlp - для начала хватит 0

Опции темы

@FroL 61 / 49 / 6 Регистрация: 07.01.2010 Сообщений: 307
	21.01.2010, 12:06 [ТС]
	Большое спасибо. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.02.2010, 16:56
	FroL, ну если из всего, что связано с прогой, поменялась только винда, то очень может быть 0

@FroL 61 / 49 / 6 Регистрация: 07.01.2010 Сообщений: 307
	20.02.2010, 17:52 [ТС]
	Создал новое приложение, там все нормально работает.В исходной проге отключил все функции, кроме этой, но не помогло. А можно ли пересобрать приложение, что бы ненужные компоненты удалились? Добавлено через 21 час 35 минут Все спасибо разобрался. Не хочу плодить темы поэтому спрошу здесь. Есть запись и надо переместиться к соседней колонке, т.е. вертикально. Как это сделать? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	21.02.2010, 11:51
	FroL, в источнике данных просто выполнить метод Prior 1

@FroL 61 / 49 / 6 Регистрация: 07.01.2010 Сообщений: 307
	21.02.2010, 12:00 [ТС]
	Блин люпус.Я описался.Мне надо переместится горизонтально.Я сделал это через вызов сигнала OnKeyPress для клавиши Tab. 0