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

Вниз

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

← →
opfr34   (2002-07-01 14:15) [0]

Подскажите пожалуйста как получить список серверов(MS SQL) в сети, работаю с ADO.

---

← →
Delirium   (2002-07-01 15:29) [1]


procedure TForm1.Button1Click(Sender: TObject);
var v,l:Variant;
i:integer;
begin
V:=CreateOleObject("SQLDMO.Application");
l:=V.ListAvailableSQLServers;
Memo1.Clear;
for i:=0 to l.Count-1 do Memo1.Lines.Append(l.Item(i));
l:=UnAssigned;
V:=UnAssigned;
end;


---

← →
Delirium   (2002-07-01 15:32) [2]

Хм, немного ошибся с диапазоном :
for i:=1 to l.Count do Memo1.Lines.Append(l.Item(i));

---

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

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

Наверх

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