Форум: "Базы";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
ВнизСоздание таблицы! Найти похожие ветки
← →
Элина (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]ничего себбе!!
← →
MsGuns (2003-10-03 17:18) [15]>DenK_vrtz © (03.10.03 16:50) [13]
>MsGuns ©, а она ответы вообще читает?
Да разве ж девушки помнят позавчерашние базары ;)))
← →
Е-Моё имя (2003-10-03 17:35) [16]
> [11] DenK_vrtz © (03.10.03 16:44)
> (тихо,озираясь)
> Элина, а TSQL - это что? :-?
ну вряд ли transact sql
наверна компонент такой =))))))
← →
Delirium^.Tremens (2003-10-03 17:37) [17]>> Элина
> ShowMwssage("Пробачьте, невзмозi це зробити");
В комплект поставки программы не забудь включить украинско-русский словарь.
:-)
← →
MsGuns (2003-10-03 18:28) [18]>Delirium^.Tremens © (03.10.03 17:37) [17]
>В комплект поставки программы не забудь включить украинско-русский словарь.
:-)
Ру (uw) будет в экстазе ;)))
← →
Е-Моё имя (2003-10-03 18:30) [19]
> [17] Delirium^.Tremens © (03.10.03 17:37)
=)))))))))))))))))))))))))
> [18] MsGuns © (03.10.03 18:28)
точна! )))))))))))))))
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.01 c