Текущий архив: 2005.01.09;
Скачать: CL | DM;
Вниз
Список 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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.058 c
