Главная страница
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.015 c
1-70683
AFROLOV
2002-07-10 12:35
2002.07.22
Как подовить вывод всех сообщений об ошибках?


3-70621
cranium
2002-07-01 02:42
2002.07.22
IBDataSet и визуальные компоненты


1-70788
EugenCFG
2002-07-10 10:46
2002.07.22
Здраствуйте ещё раз...


3-70635
ASM
2002-07-01 15:20
2002.07.22
FormattedMemo?


1-70738
sergn
2002-07-08 16:49
2002.07.22
TListView и иконки.