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

Вниз

Список доступных 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;
Скачать: [xml.tar.bz2];

Наверх

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