Вопросик возник

← →
Не зарегистрированный чайник (2002-08-01 20:21) [0]

всем привет. хочу задать Вам вопрос.
как мне программно создать БД. например я нажимаю на TButton1 и создается БД, расширение любое. создается на винчестере в сразу указанном каталоге. примерно знаю как сделать, но ни чего дельного. огромное всем спасибо!

← →
Anatoly Podgoretsky (2002-08-01 21:08) [1]

А какая база с нами поделишься?

← →
Не зарегистрированный чайник (2002-08-01 21:15) [2]

надо чтобы база создавалась пустой. ну а если интересно то надо, для проекта. "жанр" программы хранится в тайне. т.к. я такого в инете не нашел.-) и сам в тихаря разрабатываю. вот.

← →
Anatoly Podgoretsky (2002-08-01 21:23) [3]

Правильно, не хочешь говорить и не надо

← →
Не зарегистрированный чайник (2002-08-01 21:30) [4]

Будем надеятся что эта прога увидет свет недели через 2-3, но на данный момент главное решить задачу с созданием БД.

← →
Filat (2002-08-01 21:50) [5]

Посмотри FAQ на сайте, там точно есть, а оттуда недавеча брал :))))).
Так шо путешь должен! :))))))))))

← →
Кулюкин Олег (2002-08-02 08:40) [6]

2 Anatoly Podgoretsky
Умеют люди тайны хранить :)

← →
ЮЮ (2002-08-02 08:57) [7]

>создается на винчестере в сразу указанном каталоге
Для Paradox-а сразу указанный каталог и есть база. Так что поздавляю с Первой созданной БД :-))

← →
dolmat (2002-08-02 09:39) [8]

Проще всего создать table вручную (тольеко при разработке), и определить ее в своей программе.
После в Button1 написать Table1.createtable

← →
Oleg_EM (2002-08-02 10:13) [9]

человек наверна и не подозревает что в мире есть базы данных более чем 1-ого типа... ;-)

← →
VladTen (2002-08-02 10:19) [10]

могу дать такой исходник. Если тебе это поможет думаю ты мне вышлешь ее (так, для знакомства, уж очень интересно, что это такое).

Uses DBTables, DB;

.....

with TTable.Create(Application) do
begin
try
TableName := "BaseDoc";
DatabaseName := "C:\Base";
TableType := ttParadox;// или ttDBase;
with FieldDefs do
begin
Clear;
Add("Index", ftInteger, 0, False);
Add("Name" , ftString , 255, False);
end;

with IndexDefs do
begin
Clear;
Add("" , "Index", [ixPrimary, ixUnique]);// Первичный индекс
Add("_Name", "Name" , [ixCaseInsensitive ]);// Вторичный индекс
end;

CreateTable;

finally
Free;
end;
end;

← →
Не зарегистрированный чайник (2002-08-02 18:10) [11]

TO VladTen
большое спасибо, немого не то, но очень помогло. спасибо.

Вопросик возник Найти похожие ветки