Текущий архив: 2003.02.27;
Скачать: CL | DM;

Вниз

Как получить список доступных MS SQL серверов?   Найти похожие ветки 

← →
bytebutcher ©   (2003-02-10 16:59) [0]

Как получить список доступных MS SQL серверов?

---

← →
sniknik ©   (2003-02-10 17:03) [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;

---

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

Текущий архив: 2003.02.27;
Скачать: CL | DM;

Наверх

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