Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6314
Последний выпуск: 19.06.2015

Как создать Access в Delphi

21K
05 ноября 2010 года
Tuchboru
3 / / 14.11.2006
Delphi 2010. Создание через ADOTable, но если есть идеи лучше - велкам. Попытки вроде
Код:
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;

нифига не помогает, отписывает, что сервер Jet не может получить к БД доступ, ибо она занята. Но по случаю еще вопрос, как создать не пустую БД, а сразу внести в нее записи. Хотя бы поля.
8.2K
05 ноября 2010 года
bagie2
299 / / 26.10.2008
попробуйте
 
Код:
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" + Filename);


а другой вопрос
 
Код:
connection := cat.ActiveConnection;
connection.Execute(...);
...
connection.Close();

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог