VPF::создание файла базы данных во время работы проги

hllh

Дата 17.10.2004, 15:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как создать файл базы данных во время работы приложения и сохранить его на винчестере. :sample

Alex

Дата 17.10.2004, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162

Какую базу данных используешь?
Для InterBase:

Цитата

The following statement creates a database in the current directory:

CREATE DATABASE "employee.gdb";

The next statement creates a database with a page size of 2048 bytes rather than the default of 1024:

CREATE DATABASE "employee.gdb" PAGE_SIZE 2048;

The following statement creates a database stored in two files and specifies its default character set:

CREATE DATABASE "employee.gdb"
DEFAULT CHARACTER SET "ISO8859_1"
FILE "employee.gd1" STARTING AT PAGE 10001 LENGTH 10000 PAGES;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Cashey

Дата 17.10.2004, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60

На Delphi, примерно так:

Код


with DM1.Table1 do
    begin
    Active := false;
    DataBaseName := 'MyBase';
    TableType := ttParadox;
    TableName := 'MyTable';
    with FieldDefs do
        begin
        with AddFieldsDef do
         // Добавляем поля
             begin
             Name := 'ID';
             DataType := ftAutoInc;
             Required := true;
             end;
        end;
    CreateTable;
    end;
end;

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Medved

Дата 18.10.2004, 02:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 1
Всего: 154

DRKB.

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

Akella

Дата 18.10.2004, 08:36 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Код

    tNew.FieldDefs.Clear;
    tNew.IndexDefs.Clear;
    tNew.FieldDefs.Clear;
    tNew.TableName:='Apteka.db';
    tNew.TableType:=ttDefault;
    tNew.FieldDefs.Add('AID',ftAutoInc);
    tNew.FieldDefs.Add('AName',ftString,20,False);
    tNew.FieldDefs.Add('AAddres',ftString,40,False);
    tNew.FieldDefs.Add('ATel',ftString,40,False);
    tNew.FieldDefs.Add('AMAIL',ftString,30,False);
    tNew.FieldDefs.Add('AFA',ftString,10,False);
    tNew.IndexDefs.Add('','AID',[ixPrimary]);
    tNew.IndexDefs.Add('idxAName','AName',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxAAddres','AAddres',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxATel','ATel',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxAMail','AMail',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxAFA','AFA',[ixCaseInsensitive]);
    tNew.CreateTable;

kucik

Дата 8.1.2005, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 22.4.2004
Где: Russia, Murmansk

Репутация: нет
Всего: нет

А теперь такой же примерчик для связки ADO + Access получить можно?
p.s. Нужно создать Новую БД с такими же таблицами как в старой! smile

(Копирование и удаление всех записей не подойдёт, т.к. Автоинкрементные поля запоминают кол-во бывших записей и начинают считать не с 1, а с кол-ва бывших (добавленных) записей smile

Vit

Дата 9.1.2005, 01:19 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

http://forum.vingrad.ru/index.php?act=modu...aq&article=1725

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

kucik

Дата 9.1.2005, 01:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 22.4.2004
Где: Russia, Murmansk

Репутация: нет
Всего: нет

Спасибки
Вопрос исчерпан, практически!

dvs

Дата 9.1.2005, 02:32 (ссылка)

(нет голосов)

Загрузка ...

Владимир Драпалюк

Профиль
Группа: Участник Клуба
Сообщений: 660
Регистрация: 25.8.2003
Где: Воронеж->Москв а

Репутация: нет
Всего: 19

Просветите, пожайлуста.
Не могу осознать, как программно создать базу данных для InterBase.
Какая должна быть последовательность действий?
Изначально нет зарегистрированной базы, её надо создать. Как? smile

--------------------

Любите друг друга!

Pakshin A. S.

Дата 9.1.2005, 12:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

параграф "Работа с удаленными базами данных на примере InterBase"

http://pakshin.com.ru/forum/index.php?show...&st=0&#entry123

может поможет... smile

dvs

Дата 9.1.2005, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Владимир Драпалюк

Профиль
Группа: Участник Клуба
Сообщений: 660
Регистрация: 25.8.2003
Где: Воронеж->Москв а

Репутация: нет
Всего: 19

Да, нашел в себе еще одно недостающее качество: я не умею правильно формулировать вопросы. Наверное, это есть причина того, что мне на них не отвечают. smile

Постараюсь не забыть рассказать, что же мне надо было, когда разберусь. ;)

--------------------

Любите друг друга!

dvs

Дата 10.1.2005, 03:05 (ссылка)

(нет голосов)

Загрузка ...

Владимир Драпалюк

Профиль
Группа: Участник Клуба
Сообщений: 660
Регистрация: 25.8.2003
Где: Воронеж->Москв а

Репутация: нет
Всего: 19

А оказалось, что мне надо было увидеть это

Вывод: "Бесплатный сыр только в мышеловке".

--------------------

Любите друг друга!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »