Список активных MS SQL серверов

← →
Пентюх © (2003-01-07 18:18) [0]

Народ, не подскажите как получить в Delphi список
активных MS SQL серверов для того чтобы в последствии
подключиться к одному из них, на выбор.

← →
sniknik © (2003-01-07 21:13) [1]

попробуй
function TDMod.GetSQLServers(ServersItems: TStrings): boolean; var NameList, Application: OleVariant; i:Integer; begin result:= false; try try Application:= CreateOleObject("SQLDMO.Application"); NameList:= Application.ListAvailableSQLServers; For i:= 1 to NameList.Count do ServersItems.Add(NameList.Item(i)); result:= true; except on E: Exception do DoIfError(E.Message); end; finally NameList:=Unassigned; Application:=Unassigned; end; end;

← →
Пентюх © (2003-01-09 14:42) [2]

Сорри, брат.
Это не работает. Даже не показывает мой сервер.
А другого варианта нет?

← →
Reindeer Moss Eater (2003-01-09 14:50) [3]

Для работы с SQL сервером принято предварительно настраивать его клиента. Если клиент настроен, он хранит список зарегистрированных в нем серверов.

← →
Delirium © (2003-01-09 14:54) [4]

> Пентюх

Справедливый ты себе ник выбрал, код грамотный и рабочий. Разве что DoIfError можно заменить на простой ShowMessage, для большей переносимости. Для работы досточно MDAC версии 2.5 и выше.

Пентюх ©
ну ничего, бывает, бывает :о))

если ловиш сервер на нем же и сети нет может выдать всего одно значение следующее "(local)" или "." или " ". причем все значения равнозначны (отчего зависит не знаю, настройки?). проверь, сделай пустой udl файл (расширение udl поставь) двойной клик на нем. и попытайся подключится к SQL Server который стоит на этой же машине, в выборе Server Name пройдет любое из приведенных значений (ну и + имя сервера).

короче к чему это я. а да, отслеживать надо! а код как правильно было замечено рабочий. и грамотный! (Delirium © спасибо! :-))

Delirium © (09.01.03 14:54)
DoIfError забыл убрать, моя фенечка, привык к нему, у меня в нем в лог пишется, сообшения выдаются только при фатальных сбоях (в тех после которых один путь завершится). считаю удобно. сообщения никто не читает просто "ок" жмут, а с логом, можно в нос ткнуть вот было а не прореагировали (часто помогает).

Спасибо за комментарии! :-))
Я пробовал пускать пример, на компе стоит MS SQL Server
и здесь же я пускаю пример. Так вот NameList.Count = 0.
И чего делать? Завтра попробую запуститься в сетке, где
много чего напихано, по результатам - напишу.
В любом случае, спасибо за участие!

Список активных MS SQL серверов Найти похожие ветки