| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа С ODBC

Igoryan ©   (2002-08-26 17:40:00) 

Уважаемые мастера, подскажите как программно изменить настройки ODBC соединения.

---

Igoryan   (2002-08-26 18:05:00) [1]

Thanks

---

Ученик   (2002-08-26 17:59:00) [2]

Это чтение, запись примерно тоже самое, название параметров зависит от драйвера, надо смотреть в реестре

const
ODBCKey = "Software\ODBC\ODBC.INI\";

function OdbcReadParam(const DataSource, ParamName : string) : string;
begin
Result := "";
with TRegistry.Create(KEY_READ) do try
RootKey := HKEY_CURRENT_USER;
if not OpenKey(ODBCKey + DataSource, False) then begin
RootKey := HKEY_LOCAL_MACHINE;
if not OpenKey(ODBCKey + DataSource, False) then Exit;
end;
try
Result := ReadString(ParamName);
finally
CloseKey
end
finally
Free
end
end;

---

Наверх