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

Вниз

Список ODBC источников.   Найти похожие ветки 

← →
Saska   (2004-12-09 17:04) [0]

Подскажите плиз, как можно получить список ODBC источников.

Спасибо.

---

← →
Saska   (2004-12-09 17:41) [1]

это невозможно?

---

← →
DiamondShark ©   (2004-12-09 18:13) [2]

Возможно.

Вариант 1.

Из реестра, рзаделы

HKCU\Software\ODBC\ODBC.INI\ODBC Data Sources
(User DSN)

HKLM\Software\ODBC\ODBC.INI\ODBC Data Sources
(System DSN)

Вариант 2.

Использовать функцию SQLDataSources из ODBC API.

---

← →
Saska   (2004-12-09 18:29) [3]

спасибо.
Только я не могу понять, каке модули надо подключать, что бы использовать SQLDataSources, не подскажете?

---

← →
Saska   (2004-12-09 18:33) [4]

и еще,будет ли решение посредсвом реестра одинаково хорошо работь в Win 98, 2000, XP?

---

← →
DiamondShark ©   (2004-12-09 19:01) [5]

> Только я не могу понять, каке модули надо подключать, что
> бы использовать SQLDataSources, не подскажете?

Те, в которых описана трансляция ODBC API.
Например, отсюда:
http://mcc.md/acoulichev/odbc.zip

Модуль sql, понадобится ещё sqltypes.

Пример использования:


procedure TForm1.Button1Click(Sender: TObject);
var
 hEnv: SQLHENV;
 rc: SQLRETURN;
 Name: packed array[byte] of Char;
 NameLen: SQLSMALLINT;
 NameStr: string;
 Description: packed array[byte] of Char;
 DescriptionLen: SQLSMALLINT;
 DescriptionStr: string;
begin
 hEnv := 0;
 SQLAllocEnv(hEnv);
 rc := SQLDataSources(hEnv, SQL_FETCH_FIRST,
  Name, sizeof(Name), NameLen,
  Description, sizeof(Description), DescriptionLen);
 while SQL_SUCCEEDED(rc) do
 begin
   SetString(NameStr, Name, NameLen);
   SetString(DescriptionStr, Description, DescriptionLen);
   Memo1.Lines.Add(NameStr + #9 + DescriptionStr);
   rc := SQLDataSources(hEnv, SQL_FETCH_NEXT,
     Name, sizeof(Name), NameLen,
     Description, sizeof(Description), DescriptionLen);
 end;
 SQLFreeEnv(hEnv);
end;



> и еще,будет ли решение посредсвом реестра одинаково хорошо
> работь в Win 98, 2000, XP?

Не знаю. Лучше через API.

---

← →
Saska   (2004-12-09 19:35) [6]

file not found sql.dcu
где ж мне его взять то...?

---

← →
Saska   (2004-12-09 19:36) [7]

уже нашел, спасибо огромное!

---

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

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

Наверх

Память: 0.46 MB
Время: 0.042 c