Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Вниз

Как прописать источник данных ODBC программно?   Найти похожие ветки 

 
Дмитрий Демиденков   (2001-12-18 10:39) [0]

Привет народ.
Как сабж сделать. У меня есть база данных Access 97. я прописываю ее так: /Настройки/Панель управления/Источники данных ODBC/ в разделе "Пользовательский DSN" выбираю добавить ввожу Alias выбираю базу данных и все... Этот Alias я могу использовать в TDatabase без проблем. B BDE Administrator я ничего не меняю он и так видит этот источник данных. Теперь мне нужно прописать все это автоматически программно. Как мне это сделать. Я нашел что этот Alias прописывается в реестре в ключах
HKEY_CURRENT_USER и HKEY_USERS, однако когда я программно прописываю это - не работает. Вернее, в ODBC и BDE Administrator мой Alias виден, но он не срабатывет. Когда я захожу в ODBC
и выбираю файл базы данных(который уже прописан точно так же) все работает. А програмно не получается. В чем дело, может еще где то надо прописать кроме реестра?
Вот!


 
Dick Gonsales   (2001-12-20 09:16) [1]

Вешаешь TDatabase
В нем DatabaseName пишешь alias по которому все твои TTable, TQuery будут обращаться к базе
В DriveName выбираешь MSAccess

Вешаешь OpenDialog откуда берешь имя файла базы.
Вызываешь примерно следующую функцию, где db_report TDatabase

function DBOpen(DBName:String):boolean;
begin
try
db_report.Params.Add("DATABASE NAME="+DBName);
db_report.Params.Add("USER NAME=");
db_report.Params.Add("PASSWORD=");
db_report.Connected:=True;
Result:=True;
except
ShowMessage("Не могу открыть базу "+DBName);
Result:=False;
end;
end;



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.004 c
3-75470
vano
2001-12-07 16:21
2002.01.24
try except


14-75670
Dimka Maslov
2001-11-30 15:54
2002.01.24
No comments


1-75555
Deadlock
2002-01-06 03:32
2002.01.24
Ну ОЧЕНЬ нужно


3-75524
Dim
2001-12-21 14:34
2002.01.24
Первый раз такое вижу. Что это такое?


7-75696
Алексей Саньков
2001-10-05 21:55
2002.01.24
Как сделать в Винде 256 цветов 640х480 на видюхе Acumos





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский