Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание файла *.mdb, MS Access. Не знаю как!! 
:(
    Опции темы
Syrex
Дата 6.3.2007, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 1
Помогите создать файл для MS Access средствами Билдера
PM MAIL ICQ   Вверх
TaNK
Дата 6.3.2007, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1
http://forum.vingrad.ru/index.php?showtopi...st&p=362837
http://forum.vingrad.ru/index.php?showtopi...st&p=778253


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

Oracle 11.2.0.3.0
FireBird 1.0-2.5
PM MAIL ICQ   Вверх
Syrex
Дата 7.3.2007, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 1
Это все не то. После создания файла MS Access в него добавляется какая-то инфа. А если создать файл методом FileCreate - то Access его не понимает!!!
PM MAIL ICQ   Вверх
_hunter
Дата 7.3.2007, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 24
Всего: 98
http://www.cyberguru.ru/programming/delphi...extensions.html
(delphi)


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Rodman
Дата 7.3.2007, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


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

Репутация: 7
Всего: 122
Syrex, вот тебе на Делфях... попробуй изменить...
Код

procedure CreateMSAccessDB(filename : String);
var
    DBEngine, Workspace: Variant;
const
{Important to use the following constant as is}
   dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0';
   dbVersion30 = 64;
begin
    if not FileExists(FileName+'.mdb') then 
    begin
    //DBEngine := CreateOleObject('DAO.DBEngine');
        DBEngine := CreateOleObject('DAO.DBEngine.36'); //For DAO 3.5
       Workspace := DBEngine.Workspaces[0];
        try
           Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30);
           except on EOleException do
            ShowMessage('Невозможно создать!');
        end;
    end;
end;



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

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


Опытный
**


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

Репутация: 1
Всего: 1
Я не очень силен в Паскале. Может кто поможет перевести!!
PM MAIL ICQ   Вверх
Syrex
Дата 20.11.2007, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 1
UP
PM MAIL ICQ   Вверх
ama_kid
Дата 20.11.2007, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


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

Репутация: 10
Всего: 95
Syrex, можешь так попробовать:
Код
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OleVariant cat;
AnsiString ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\123.mdb;";
try
    {
        cat = CreateOleObject("ADOX.Catalog");
        Procedure Create("Create");
        cat.Exec(Create << ConnectionString);
        cat = NULL;
    }
catch(...)
    {

    }
}




--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Syrex
Дата 20.11.2007, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 1
Компилятор не понимает что такое  CreateOleObject smile 
PM MAIL ICQ   Вверх
ama_kid
Дата 20.11.2007, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


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

Репутация: 10
Всего: 95
Цитата(Syrex @  20.11.2007,  17:16 Найти цитируемый пост)
Компилятор не понимает что такое  CreateOleObject

Код
#include <ComObj.hpp>



--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Alca
Дата 20.11.2007, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 25
Всего: 50
Код

Variant does not reference an automation object.




--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Syrex
Дата 22.11.2007, 09:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 1
Может ещё ксть у кого-нибудь варианты?
PM MAIL ICQ   Вверх
Alca
Дата 3.3.2008, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 25
Всего: 50
Лучше поздно, чем никогда...
Builder C++ 6.0, Microsoft Office Access 2003  smile 
Код

#include <ComObj.hpp>

//---------------------------------------------------------------------------
void __fastcall TfrmMain::Button1Click(TObject *Sender) {
    Variant vADO;
    WideString ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\123.mdb;";
    try {
        vADO = Variant::CreateObject("ADOX.Catalog");
        Procedure Create("Create");
        vADO.Exec(Create << ConnectionString);
        vADO = NULL;
    } catch(Exception &e) {
        ShowMessage("Err: " + e.Message);
    }
}
//---------------------------------------------------------------------------


Это сообщение отредактировал(а) Alca - 3.3.2008, 13:03


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
mrbrooks
Дата 3.3.2008, 13:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


трололомен
****


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

Репутация: 167
Всего: 306
Кул ИМХО - все работает и с Microsoft Office Access 2000  smile на мой взгляд заслуженно +1 к репе
PM MAIL   Вверх
Alca
Дата 3.3.2008, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 25
Всего: 50
Похоже этот код должен работать без установленного Microsoft Office Access, т.к. работает через ADO.


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

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

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

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

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

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


 




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


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

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