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

Вниз

Список доступных MS SQL серверов   Найти похожие ветки 

 
ppcat   (2002-08-28 10:36) [0]

Как получить список доступных MS SQL серверов в сети? Чтобы юзер выбирал из списка, а не набивал руками. Имеем ADO, MS SQL 2000, Delphi 5.

Заранее благодарен.


 
ЮЮ ©   (2002-08-28 10:40) [1]

А у тебя юзер из своего приложения юзает тот сервер, который ему больше нравится? Интересный подход.


 
ЮЮ ©   (2002-08-28 10:48) [2]

При удачном коннекте записывать ия сервера и БД где-нибудь вовне


 
ppcat   (2002-08-28 12:17) [3]

Прога будет гулять по регионам и не везде сервера называются одинаково.

Так что, без вариантов?


 
Ученик ©   (2002-08-28 12:21) [4]

Может быть лучше настраивать соединение ADODB.PromptDataSource, база данных тоже может быть другая


 
Delirium ©   (2002-08-28 12:42) [5]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sqldmo/dmoref_m_l_9jfo.asp


 
Balu ©   (2002-08-28 14:03) [6]

Используй SQLDMO

Var
dmo, Sn: Variant;
S: String;
begin
try
StartWait;
dmo := CreateOleObject("SQLDMO.Application");
lbSourceServer.Items.Clear;
sn := dmo.ListAvailableSQLServers;
for i := 1 to sn.Count do begin
S := sn.Item(i);
if S[1] <> "(" then
lbSourceServer.Items.Add(sn.Item(i));
end;
ActiveControl := lbSourceServer;
except
StopWait;
MessageDlg("Ошибка чтения списка серверов!", mtError, [mbOK], 0);
end;
StopWait;


 
ppcat   (2002-08-28 14:11) [7]

Спасибо всем.
Спасибо Balu. Мне кажется это дело заработает.



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
14-61279
Владик_1
2002-08-23 14:05
2002.09.19
в города ->Брусилов


1-61199
Sour
2002-09-07 19:14
2002.09.19
Как отловить собыитие, когда в CD-ROM привод запихали диск.


14-61284
Turalyon
2002-08-23 16:17
2002.09.19
всех Харьковчан с Праздником!


7-61319
Cherv
2002-07-05 19:16
2002.09.19
Как програмно, на время, отключить клавиатуру или монитор


1-61069
d_oleg
2002-09-09 13:39
2002.09.19
Font resolution и TextOut