Форум: "Базы";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
ВнизСписок активных 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 и выше.
← →
sniknik (2003-01-09 15:28) [5]Пентюх ©
ну ничего, бывает, бывает :о))
если ловиш сервер на нем же и сети нет может выдать всего одно значение следующее "(local)" или "." или " ". причем все значения равнозначны (отчего зависит не знаю, настройки?). проверь, сделай пустой udl файл (расширение udl поставь) двойной клик на нем. и попытайся подключится к SQL Server который стоит на этой же машине, в выборе Server Name пройдет любое из приведенных значений (ну и + имя сервера).
короче к чему это я. а да, отслеживать надо! а код как правильно было замечено рабочий. и грамотный! (Delirium © спасибо! :-))
Delirium © (09.01.03 14:54)
DoIfError забыл убрать, моя фенечка, привык к нему, у меня в нем в лог пишется, сообшения выдаются только при фатальных сбоях (в тех после которых один путь завершится). считаю удобно. сообщения никто не читает просто "ок" жмут, а с логом, можно в нос ткнуть вот было а не прореагировали (часто помогает).
← →
Пентюх (2003-01-09 19:51) [6]Спасибо за комментарии! :-))
Я пробовал пускать пример, на компе стоит MS SQL Server
и здесь же я пускаю пример. Так вот NameList.Count = 0.
И чего делать? Завтра попробую запуститься в сетке, где
много чего напихано, по результатам - напишу.
В любом случае, спасибо за участие!
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c