Builder и SQL

[FroL25]

Доброго дня. На форме есть ADOConnection1,ADOTable1,DataSource 1 и таблица Fale, путь к ней C:\Builder\DataBuilder\Data\Tabl\Fa le.db. У меня в этом файле есть 2 колонки Z1 и Z2. 2 строчки заполнены. Мне надо подключить ADOConnection1 к файлу Fale и добавить колонку Z3, но что бы сохранилась запись. Не могу понять как это сделать.Помогите пожалуйста.Очень надо.Напишите код если можете.

[Stilet]

На твоемместе я бы кинул на форму ADOQuery.
Связал с базой в свойстве ConnectionString.
После чего в свойстве SQL применил команду ALTER TABLE дабы изменить структуру базы.
А ADOTable я бы не использовал.

[FroL25]

нажал на свойстве ConnectionString. Выбрал Use Connecting String. А в Свойстве связи с данными мне что выбирать?А дальше как привязать к файлу Fale.db? И как обратится к ADOquery1 что бы открыть БД и добавить колонку?

[Stilet]

А на какой СУБД ты этот Fale.db сделал?

[FroL25]

Когда я создавал таблицу то выбрал Paradox 7

[Stilet]

Значит найди среди провайдеров в списке Paradox. Если нет посмотри в ODBC драйверах.
А вообще не парься - вместо ADO применяй обычные TQuery и TTable, которые через BDE работают.

[FroL25]

Так я не могу через них добавить столбец, точнее могу, но только записи в других столбцах удаляются.Есть выход?

[Stilet]

Выход есть всегда
1) Использовать команду SQL - ALTER TABLE в которой указать добавление поля
2) Не использовать Paradox - эта система уже метртвая, и практически нигде не применяется. Луче работай с Акцессом, он понадежнее будет.

[FroL25]

я добавляю колонку вот так:

     Table3->Open();   
     Table3->Edit();
     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();
     Table3->Post();

Table3 подключена к файлу Fale.db
Но проблема в том что CreateTable создает таблицу заново и удаляет записи в других столбцах.
Как мне изменить этот код с использованием Alter table?

[FroL25]

Все заработало.

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

Только теперь при добавлении столбца прога зависает.Я поставил Seven(была Vista).На старой все работало, а теперь нет.Что делать?