VPF::Опять ADO и mdb - Форум программистов

dvamaster

Дата 3.9.2005, 21:39 (ссылка)

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

Загрузка ...

Опытный

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

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

Доброго впемени суток всем!

Еще такой вопосик. smile

Как создать пустую MDB базу данных, используя ADO.
smile

А то в константе держать 106496 байта накладно!

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

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

offline

Дата 3.9.2005, 23:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Базу или таблицу?

Если все же базу, то может это поможет create database

синтаксис
CREATE DATABASE database_name
[ ON
[ filespec [ ,...n ] ]
[ , filegroup [ ,...n ] ]
]
[ LOG ON { filespec [ ,...n ] } ]
[ COLLATE collation_name ]
[ FOR LOAD | FOR ATTACH ]
filespec ::=
[ PRIMARY ]
( [ NAME = logical_file_name , ]
FILENAME = 'os_file_name'
[ , SIZE = size ]
[ , MAXSIZE = { max_size | UNLIMITED } ]
[ , FILEGROWTH = growth_increment ] ) [ ,...n ]
filegroup ::=
FILEGROUP filegroup_name filespec [ ,...n ]

Это сообщение отредактировал(а) kirilllius - 3.9.2005, 23:25

offline

Дата 3.9.2005, 23:15 (ссылка)

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

Загрузка ...

Опытный

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

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

А попробуй так,

Код


uses
   ComObj;

function CreateAccessDatabase(FileName: string): string;
var
    cat: OLEVariant;
begin
   Result := '';
   try
     cat := CreateOleObject('ADOX.Catalog');
     cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';');
     cat := NULL;
   except
     on e: Exception do Result := e.message;
   end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   CreateAccessDatabase('c:\Testdb.mdb');
end;

получешь пустую базу c:\Testdb.mdb

smile

Это сообщение отредактировал(а) kirilllius - 3.9.2005, 23:21

dvamaster

Дата 4.9.2005, 08:55 (ссылка)

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

Загрузка ...

Опытный

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

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

kirilllius, первый пример не прокатит, так как в смеси ADO и MDB надо сначала приконектится к базе, т.е. к физическому файлу, а его у меня нет.

Второй попробую!
Добавлено @ 09:00
Огромное спасибо! Второй вариант просто отличный! smile

Можно спросить, где такую инфу можно взять, просто где-то видел такой пример, но только найти не могу у себя.

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

Alex

Дата 4.9.2005, 09:24 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(dvamaster @ 4.9.2005, 09:55)

Можно спросить, где такую инфу можно взять, просто где-то видел такой пример, но только найти не могу у себя.

http://vingrad.ru/DELPHI-DLP-001725

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

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

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