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

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

Список активных MS SQL серверов [D6, MSSQL]

Пентюх ©   (2003-01-07 18:18:00) 

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

---

Пентюх   (2003-01-09 19:51:00) [1]

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

---

sniknik   (2003-01-09 15:28:00) [2]

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

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

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

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

---

Delirium   (2003-01-09 14:54:00) [3]

> Пентюх

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

---

Reindeer Moss Eater   (2003-01-09 14:50:00) [4]

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

---

Пентюх   (2003-01-09 14:42:00) [5]

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

---

sniknik   (2003-01-07 21:13:00) [6]

попробуй
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;

---

Наверх