Форум: "Базы";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Вниз

Список серверов...   Найти похожие ветки 

← →
pavlov   (2003-04-01 16:11) [0]

Привет, всем!
Подскажите пожалуста, как программно узнать список
доступных SQL Server"ов

---

← →
y-soft   (2003-04-01 16:20) [1]

Каких конкретно?

---

← →
jocko   (2003-04-01 16:21) [2]

я сделал так:
function TdmMainConnection.GetAvailableServers: TStrings;
var DmoObject :OleVariant;
i :Integer;
begin
Result := nil;
fAvailableServers.Clear;
try
DmoObject := CreateOleObject("SQLDMO.SQLServer");
DmoObject := DmoObject.Application;
DmoObject := DmoObject.ListAvailableSQLServers;
for i:=1 to DmoObject.Count do
if (Length(trim(DmoObject.Item(i))) > 0) and (CompareText(DmoObject.Item(i),"(LOCAL)")<>0)
then fAvailableServers.AddObject(AnsiUpperCase(DmoObject.Item(i)), nil);
except
MessageDlg( Не установлен SQLDMO.SQLServer, определить список серверов не удалось.", mtWarning, [mbOK], 0);
end;
Result := fAvailableServers;
end;

---

← →
pavlov   (2003-04-01 17:03) [3]

Спасибо, jocko! То что надо!

---

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

Форум: "Базы";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c