![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание БД [D4]
mate © (2003-01-10 15:38:00)Подскажите плиз как через запрос создать новую базу данных (*.db)и установить правильно все её параметры. Буду очень рад подробному примеру.
MsGuns (2003-01-10 16:55:00) [1]Чтобы создать таблицу (и не только) достаточно пару дней поштудировать Local SQL (это если безо всяких серверов).
Если локальную (dBase,Paradox) то проще всего DBD (DataBase DeskTop)
Если речь идет о проектировании БАЗЫ ДАННЫХ, состоящей не из одной таблицы, то, прежде чем создавать что-либо, надо сначала хотя бы посмотреть как это делают другие или почитать что-нибудь (хоть того же Фаронова), а лучше и то и другое
Соловьев (2003-01-10 16:04:00) [2]with TTable.create(self) do begin
DatabaseName := "C:\temp";
TableName := "FOO";
TableType := ttParadox;
with FieldDefs do Begin
Add("Age", ftInteger, 0, True);
Add("Name", ftString, 25, False);
Add("Weight", ftFloat, 0, False);
End;
IndexDefs.Add("MainIndex","IntField", [ixPrimary, ixUnique]);
CreateTable;
End;
Соловьев (2003-01-10 16:00:00) [3]uses DB, DBTables, StdCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
tSource, TDest: TTable;
begin
TSource := TTable.create(self);
with TSource do begin
DatabaseName := "dbdemos";
TableName := "customer.db";
open;
end;
TDest := TTable.create(self);
with TDest do begin
DatabaseName := "dbdemos";
TableName := "MyNewTbl.db";
FieldDefs.Assign(TSource.FieldDefs);
IndexDefs.Assign(TSource.IndexDefs);
CreateTable;
end;
TSource.close;
end;
mate (2003-01-10 15:58:00) [4]Соловьев
Для начала хотя бы таблицу Paradox.
Соловьев (2003-01-10 15:54:00) [5]БД на основе Paradox или таблицу Paradox?
passm (2003-01-10 15:53:00) [6]mate © (10.01.03 15:38)> Если подразумевается локальная БД, то под базой подразумевается каталог и запроса на его создание нет.
Если клиент/серевер, то CREATE DATABASE... далее зависит от СУБД.