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

← →
Элина (2003-10-03 15:06) [0]

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

← →
NickBat © (2003-10-03 15:18) [1]

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

CREATE TABLE MYNEWTABLE (......)

← →
Tommy (2003-10-03 15:19) [2]

http://www.sources.ru/delphi_src1.shtml tam naidesh :)

← →
DenK_vrtz © (2003-10-03 15:20) [3]

динамически

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

Пишешь в query.sql

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

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

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

← →
Kinda © (2003-10-03 15:20) [4]

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

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

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

← →
Элина (2003-10-03 15:42) [6]

НАШЛА!!! РАБОТАЕТ!!!
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;

← →
MsGuns © (2003-10-03 15:59) [7]

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

← →
Элина (2003-10-03 16:19) [8]

и как?

← →
DenK_vrtz © (2003-10-03 16:27) [9]

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

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

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

← →
DenK_vrtz © (2003-10-03 16:44) [11]

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

← →
MsGuns © (2003-10-03 16:49) [12]

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:50) [13]

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

← →
Элина (2003-10-03 16:52) [14]

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

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

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

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

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

>> Элина

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

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

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

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

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

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

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

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

Создание таблицы! Найти похожие ветки