| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Список серверов... [D6, MSSQL]

pavlov ©   (2003-04-01 16:11:00) 

Привет, всем!
Подскажите пожалуста, как программно узнать список
доступных SQL Server"ов

---

pavlov   (2003-04-01 17:03:00) [1]

Спасибо, jocko! То что надо!

---

jocko   (2003-04-01 16:21:00) [2]

я сделал так:
function TdmMainConnection.GetAvailableServers: TStrings;
var DmoObject :OleVariant;
i :Integer;
begin
Result := nil;
fAvailableServers.Clear;
try
DmoObject := CreateOleObject("SQLDMO.SQLServer");
DmoObject := DmoObject.Application;
DmoObject := DmoObject.ListAvailableSQLServers;
for i:=1 to DmoObject.Count do
if (Length(trim(DmoObject.Item(i))) > 0) and (CompareText(DmoObject.Item(i),"(LOCAL)")<>0)
then fAvailableServers.AddObject(AnsiUpperCase(DmoObject.Item(i)), nil);
except
MessageDlg( Не установлен SQLDMO.SQLServer, определить список серверов не удалось.", mtWarning, [mbOK], 0);
end;
Result := fAvailableServers;
end;

---

y-soft   (2003-04-01 16:20:00) [3]

Каких конкретно?

---

Наверх