Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

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

 
Не зарегистрированный чайник   (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
большое спасибо, немого не то, но очень помогло. спасибо.



Страницы: 1 вся ветка

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.011 c
1-48024
Andy BitOff
2002-08-03 11:27
2002.08.15
Конец файла .xls


3-47914
Larisa
2002-07-24 13:12
2002.08.15
Внесение новой записи в БД


1-48140
Hooch
2002-08-01 13:45
2002.08.15
Flat компоненты


4-48377
Вовчик
2002-06-08 16:58
2002.08.15
Клик мыши


3-47966
UnDISCOvery
2002-07-26 12:24
2002.08.15
Как создать файл БД Access динамически ?