Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создание таблицы!

Элина © (2003-10-03 15:06:00)

Народ! Как создать новую таблицу? (Число полей и их тип заранее неизвестен)

Е-Моё имя (2003-10-03 18:30:00) [1]

> [17] Delirium^.Tremens © (03.10.03 17:37)

=)))))))))))))))))))))))))

> [18] MsGuns © (03.10.03 18:28)

точна! )))))))))))))))

MsGuns (2003-10-03 18:28:00) [2]

>Delirium^.Tremens © (03.10.03 17:37) [17]
>В комплект поставки программы не забудь включить украинско-русский словарь.
:-)

Ру (uw) будет в экстазе ;)))

Delirium^.Tremens (2003-10-03 17:37:00) [3]

>> Элина

> ShowMwssage("Пробачьте, невзмозi це зробити");

В комплект поставки программы не забудь включить украинско-русский словарь.
:-)

Е-Моё имя (2003-10-03 17:35:00) [4]

> [11] DenK_vrtz © (03.10.03 16:44)
> (тихо,озираясь)
> Элина, а TSQL - это что? :-?

ну вряд ли transact sql
наверна компонент такой =))))))

MsGuns (2003-10-03 17:18:00) [5]

>DenK_vrtz © (03.10.03 16:50) [13]
>MsGuns ©, а она ответы вообще читает?

Да разве ж девушки помнят позавчерашние базары ;)))

Элина (2003-10-03 16:52:00) [6]

ничего себбе!!

DenK_vrtz (2003-10-03 16:50:00) [7]

MsGuns ©, а она ответы вообще читает?

MsGuns (2003-10-03 16:49:00) [8]

with Form1.Query1 do
begin
SQL.Clear;
SQL.Add("CREATE TABLE TABLA1");
SQL.Add(" (FILD1 INTEGER,");
SQL.Add(" FILD2 VARCHAR(32),");
....
SQL.Add(" FILDN DECIMAL(12,2) )");
try
Prepare;
ExecSQL;
except
ShowMwssage("Пробачьте, невзмозi це зробити");
Exit;
end;
end;

и почитай хэлп по Local SQL

DenK_vrtz (2003-10-03 16:44:00) [9]

(тихо,озираясь)
Элина, а TSQL - это что? :-?

Элина (2003-10-03 16:32:00) [10]

так это через TSQL? вот что меня интересует

DenK_vrtz (2003-10-03 16:27:00) [11]

Элина, а ответы для кого пишутся?

Элина (2003-10-03 16:19:00) [12]

и как?

MsGuns (2003-10-03 15:59:00) [13]

Лучше запросом. Через методы TTable могут быть фокусы.

Элина (2003-10-03 15:42:00) [14]

НАШЛА!!! РАБОТАЕТ!!!
with Table1 do

begin
Active := False; { The Table component must not be active }

{ First, describe the type of table and give it a name }
DatabaseName := "DBDEMOS";
TableType := ttParadox;
TableName := "CustInfo";

{ Next, describe the fields in the table }
with FieldDefs do
begin
Clear;
Add("Field1", ftInteger, 0, True);
Add("Field2", ftString, 30, False);
end;

{ Next, describe any indexes }
with IndexDefs do

begin
Clear;
{ The first index has no name because it is a Paradox primary key }
Add("", "Field1", [ixPrimary, ixUnique]);
Add("Fld2Indx", "Field2", [ixCaseInsensitive]);
end;

{ Now that we have specified what we want, create the table }
CreateTable;
end;

Элина (2003-10-03 15:25:00) [15]

Забыла.. PARADOX, BDE, DELPHI 3

Kinda (2003-10-03 15:20:00) [16]

Элина ты хоть скажи чё за база?

DenK_vrtz (2003-10-03 15:20:00) [17]

динамически

когда все будет известно:

Пишешь в query.sql

create table имя таблицы
( поле тип,
поле тип,
...
)

Потом делаешь query.ExecSQL

И таблица создана!

Tommy (2003-10-03 15:19:00) [18]

http://www.sources.ru/delphi_src1.shtmltam naidesh :)

NickBat (2003-10-03 15:18:00) [19]

Хм..
Ну как. Пользователь пишет имена полей, указывает их тип и длину. Ты потом пробегаешь по этим данным и генеришь что-то вроде

CREATE TABLE MYNEWTABLE (......)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »