Форум на Исходниках.RU

Связъ ADO с базой данных

koss — Sun, 14 May 2006 10:55:41 +0000

koss: Registry->RootKey=HKEY_LOCAL_MACHINE;
if (!Registry->KeyExists("\\SOFTWARE\\ODBC\\ODBC.INI\\rig"))
{
RegDB();
}

Во напутал :wacko:

Связъ ADO с базой данных

koss — Sun, 14 May 2006 08:58:49 +0000

koss: kalexs_uzb да это я догадалса ещё вечером вчера сделать .
Тута проверка на существование ветви всегда фальше выдаёт .
У меня шас просто литературы про реестр нету . Так оноб решил ужеб.

Связъ ADO с базой данных

kalexs_uzb — Sun, 14 May 2006 07:12:45 +0000

kalexs_uzb:

Цитата

kalexs_uzb там който не такой if он в обеих случаях один ответ выдаёт

Вначале надо:

Registry->RootKey=HKEY_LOCAL_MACHINE;

Связъ ADO с базой данных

koss — Sat, 13 May 2006 22:06:16 +0000

koss: kalexs_uzb там който не такой if он в обеих случаях один ответ выдаёт : :blink:

Связъ ADO с базой данных

kalexs_uzb — Sat, 13 May 2006 20:06:49 +0000

kalexs_uzb: koss, весь код в блок try..finaly и delete Registry:

try {

//проверка создания DNS

if (Registry->OpenKey("SOFTWARE\ODBC\ODBC.INI\rigel", false))

return;

//...

}

__finally {

delete Registry;

}

Связъ ADO с базой данных

koss — Sat, 13 May 2006 18:44:21 +0000

koss: bool TForm1::RegDB()
{
AnsiString S,Windir;
TRegistry *Registry=new TRegistry(KEY_ALL_ACCESS);
char Win[MAX_PATH];
GetWindowsDirectory(Win, MAX_PATH);
S=GetCurrentDir() + "\\Firma.mdb";
Windir = (AnsiString)Win + "\\system32\\odbcjt32.dll";

Registry->RootKey=HKEY_LOCAL_MACHINE;
Registry->OpenKey("SOFTWARE\\ODBC\\ODBC.INI\\rigel",true);
Registry->WriteString("DBQ",S);
Registry->WriteString("Driver",Windir);
Registry->WriteString("FIL","MS Access;");
Registry->WriteString("UID","");
Registry->WriteInteger("DriverId",25);
Registry->WriteInteger("SafeTransactions",0);
Registry->OpenKey("Engines\\Jet",true);
Registry->WriteString("ImplicitCommitSync","");
Registry->WriteString("UserCommitSync","Yes");
Registry->WriteInteger("MaxBufferSize",2048);
Registry->WriteInteger("PageTimeout",5);
Registry->WriteInteger("Threads",3);
Registry->CloseKey();
Registry->OpenKey("SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources",true);
Registry->WriteString("rigel","Driver do Microsoft Access (*.mdb)");
Registry->CloseKey();
}

Замутил создание системного DSN теперь токо осталось сделать чтобы прога в реестре проверяла
создан DSN чи нет if(!создан) {RegDB();}
Конечно проблемы с нормальным правописанием на C++ у меня есть .
Ктонибудь можете оптимизировать какойндь кусочек кода ,кому сколько не жалко.
Сами мы не местные.... Извините что обращаемся.... :whistle:

Связъ ADO с базой данных

kalexs_uzb — Sat, 13 May 2006 10:21:59 +0000

kalexs_uzb: А системный DNS в реестре: [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\<имя>] и [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources].
попробуй вручную создать запись через менеджер ODBC и проверь, что он туда записал, потом используя функции реестра, можно все это программно сделать.

Связъ ADO с базой данных

Bas — Sat, 13 May 2006 09:46:55 +0000

Bas: Если это файловый DSN - смотри в \Common Files\ODBC\Data Source\ это просто ini файл.

Связъ ADO с базой данных

koss — Fri, 12 May 2006 15:15:43 +0000

koss:

Цитата Bas @ 12.05.06, 10:30

Пуск-Настройка-Панель Управления-Источник данных ODBC.
Можно и программно создать .

А как ты программно создаёш ??? Через какой компонент? <_<

Связъ ADO с базой данных

Bas — Fri, 12 May 2006 10:30:40 +0000

Bas: Пуск-Настройка-Панель Управления-Источник данных ODBC.
Можно и программно создать .

Связъ ADO с базой данных

Dark Sup — Fri, 12 May 2006 10:30:00 +0000

Dark Sup:

Цитата koss @ 12.05.06, 10:03

а как DSN настраивается? не разу такую гачу не делал сторку подключения всегда формировал через
GetCurrentDir()

Не знаю, как местные мастера его аппаратно настраивают, а я просто иду в Панель управления -> Администрирование -> Источники данных (ODBC), там выбираю вкладку "системный DSN", жму "Добавить", выбираю драйвер ввожу имя и нужные настройки (для разных драйверов свои) и готов мой Alias, к которому можно без проблем обращаться из билдера просто по имени. :)

Связъ ADO с базой данных

koss — Fri, 12 May 2006 10:03:27 +0000

koss: Я слышал что нужно создавать DataModule и на него помещать компоненты БД

Цитата Dark Sup @ 12.05.06, 05:34

Но тогда учти -- тебе нужно будет настраивать системный DSN (это делается за десять секунд, но всё же...).

а как DSN настраивается? не разу такую гачу не делал сторку подключения всегда формировал через
GetCurrentDir()

Связъ ADO с базой данных

Bas — Fri, 12 May 2006 05:43:36 +0000

Bas: Можно создать файлы udl,dsn и подставлять в ConnectionString этот файл.

Связъ ADO с базой данных

Dark Sup — Fri, 12 May 2006 05:34:17 +0000

Dark Sup:

Цитата koss @ 11.05.06, 20:00

Но слышал что связь ADO c БД можно связывать ещё как то: чи через Alias Manajer чи ещё как то

Как это делать ??? И помоему мой способ чем то каличный

Я через alias с базой данных связываюсь... и, там, конечно, запись покороче выходит:

AnsiString Alias;

TIniFile *pIniFile = new TIniFile(ExtractFileDir(Application->ExeName) + "\Currency.ini");

Alias = pIniFile->ReadString("Source", "Alias", "Clients");

ADOConnection1->ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Data Source="+Alias+";";

delete pIniFile;

Но тогда учти -- тебе нужно будет настраивать системный DSN (это делается за десять секунд, но всё же...).

Связъ ADO с базой данных

Seva — Fri, 12 May 2006 05:30:40 +0000

Seva: Я делаю почти так же. Единственная разница - я GetCurrentDir стараюсь не использовать. :D

Связъ ADO с базой данных

koss — Thu, 11 May 2006 20:00:57 +0000

koss: Я обычно связываю ТADOConnection c базой данных через :

#define Constr "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=\"DBQ="+GetCurrentDir()+"\\Firma.mdb;DefaultDir="+GetCurrentDir()+";Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN="+GetCurrentDir()+"\a;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;\""

ADOConnection1->ConnectionString= Constr;
ADOConnection1->Connected=true;

Но слышал что связь ADO c БД можно связывать ещё как то: чи через Alias Manajer чи ещё как то

Как это делать ??? И помоему мой способ чем то каличный