Поиск:

Ответ в темуСоздание новой темы Создание опроса
> скрипт Access, Как создать БД Access "на лету"?* 
:(
    Опции темы
AHgpeu
Дата 12.6.2007, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Как создать БД Access с таблицами + полями во время выполнения программы?*
Подскажите пожалуйста скрипт этого всего дела... )
--------------------
ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ
PM MAIL   Вверх
Rodman
Дата 12.6.2007, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Цитата(AHgpeu @  12.6.2007,  10:08 Найти цитируемый пост)
Как создать БД Access

вот


Цитата(AHgpeu @  12.6.2007,  10:08 Найти цитируемый пост)
с таблицами

вот

ПОИСК - твой друг!!!


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
AHgpeu
Дата 12.6.2007, 11:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
так много муток всяких...Какие-то блин не понятные (мне на первый взгляд) параметры.
Че, нету скрипта никакого, обычного, типа 
Код

Create database ['Путь_там.._+расширение'] table [таблицы всякие]

Есть еще такой вариант:
Код

var cat: OleVariant;
begin
  Result := '';
  try
    cat := CreateOleObject('ADOX.Catalog');
    cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\newTestAccess.mdb;');
    cat := NULL;
  except
    on e: Exception do Result := e.message;
  end;

end;

Только как тут таблицу добавить?*..

Это сообщение отредактировал(а) AHgpeu - 12.6.2007, 11:33
--------------------
ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ
PM MAIL   Вверх
Rodman
Дата 12.6.2007, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Цитата(AHgpeu @  12.6.2007,  10:31 Найти цитируемый пост)
Только как тут таблицу добавить?*

если база нормально создается (и конекшн нормально сработал), то таблицы потом создаешь так
Код

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('CREATE TABLE Customer (SID integer, Last_Name varchar(30), First_Name varchar(30), PRIMARY KEY (SID));');
Query.ExecSQL;



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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
AHgpeu
Дата 12.6.2007, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
база создается нормально.
Вот только как терь к ней подключить коннекшн?*....вернее к коннекшену базу)))
--------------------
ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ
PM MAIL   Вверх
Rodman
Дата 12.6.2007, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
как я вижу база у тя создается тут d:\newTestAccess.mdb
значит в конекшине должно быть следующее
Код

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\newTestAccess.mdb;Mode=ReadWrite;Persist Security Info=False';
ADOConnection1.Connected:=True;
if(ADOConnection1.Connected=True)then
  ShowMessage('Ura')
else
  ShowMessage('не Ura');


Это сообщение отредактировал(а) Rodman - 12.6.2007, 11:57


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
AHgpeu
Дата 12.6.2007, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
да. но вообщето этот путь пользователь должен указать...как прочитать параметр Data Source?? 
--------------------
ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ
PM MAIL   Вверх
Rodman
Дата 12.6.2007, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
AHgpeu, ну все еще проще
Код

var cat: OleVariant;
begin
  Result := '';
  if(OpenDialog.Execute)then
  try
    cat := CreateOleObject('ADOX.Catalog');
    cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog.FileName+';');
    cat := NULL;
  except
    on e: Exception do Result := e.message;
  end;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data   Source='+OpenDialog.FileName+';Mode=ReadWrite;Persist Security Info=False';
ADOConnection1.Connected:=True;
if(ADOConnection1.Connected=True)then
  ShowMessage('Ura')
else
  ShowMessage('не Ura');
end;


простым OpenDialogом!!!


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
AHgpeu
Дата 12.6.2007, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
хе!) пасиба..ща буду пробовать)
--------------------
ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ
PM MAIL   Вверх
AHgpeu
Дата 13.6.2007, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Таким вот образом как я написал
Код

var cat: OleVariant;
begin
  Result := '';
  try
    cat := CreateOleObject('ADOX.Catalog');
    cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\newTestAccess.mdb;');
    cat := NULL;
  except
    on e: Exception do Result := e.message;
  end;

end;

Почему то создается файл с расширением *.ldb
А нужно *.mdb
Как это сделать?*
--------------------
ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

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

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0896 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.