Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.22;
Скачать: CL | DM;

Вниз

Список 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
1-70812
iii
2002-07-10 16:03
2002.07.22
Цвет.


1-70723
nitro313
2002-07-11 14:37
2002.07.22
Как присвоить к Caption строковое значение в одинарных кавычках?


14-70926
Sejatel
2002-06-05 09:02
2002.07.22
Размер массива.


14-70867
alex9999
2002-06-24 10:29
2002.07.22
Нотик+сотик


3-70594
KAA
2002-06-28 18:00
2002.07.22
Время выполнения запроса