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

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

как работать с SQL-DMO [D6, D7, MSSQL]

victor_ch ©   (2003-09-14 14:26:00) 

Добрый день Всем!!!

нашел я как то кусок кода который вытаскивает список MSSQL серверов в локальной сети, но к нему была приписка что этот код будет работать при установленном SQL-DMO
я попробовал, у меня не получилось и вот теперь не понятно установлен ли на моей машине этот самый SQL-DMO (подскажите как это можно узнать) и если установлен то надо ли его как то подключать в Delphi (как это делается в Visual Basic)

---

jocko   (2003-09-16 10:47:00) [1]

Попробуй импортировать саму библиотеку в дельфи,
возможно в ранней версии dmo ListAvailableSQLServers по другому назыался, или может есть альтернативный метод...

---

victor_ch   (2003-09-16 00:36:00) [2]

> К сожалению, ДМО выдаёт список только SQL-серверов своей
> версии :-(

а от чего зависит версия DMO? как я понимаю она должна поставляться вместе с клиентом MSSQL, но у нас тогда одинаковая версия, клиента и сервера потому что мы ставили все с одного диска

---

Плохиш_   (2003-09-16 00:10:00) [3]

К сожалению, ДМО выдаёт список только SQL-серверов своей версии :-(

---

victor_ch   (2003-09-15 23:54:00) [4]

код подправил
но у меня цикл for не выполняется не разу
потому что dmo.count=0 хотя в локальной сети точно есть 2 MSSQL сервера, может дело в версии MSSQL у нас стоит 7 версия?

---

sniknik   (2003-09-14 19:04:00) [5]

может потому что нет установленных SQL серверов в сети? убери условие хотя бы себя видеть будеш если конечно имеемся MSSQL на локали.

и кстати поправь немного код (мне кажется так будет лутше)

procedure GetServerList(Strings: TStrings);
var app, dmo:OleVariant;
i:Integer;
begin
Strings.Clear;
app:=CreateOleObject("SQLDMO.Application");
try
dmo:=app.ListAvailableSQLServers;
for i:=1 to dmo.Count do
if (Length(trim(dmo.Item(i))) > 0) and (CompareText(dmo.Item(i),"(LOCAL)")<>0)
then Strings.Add(AnsiUpperCase(dmo.Item(i)));
finally
app:= Unassigned;
end;
end;

---

victor_ch   (2003-09-14 17:34:00) [6]

при проверке кодом от
> sniknik © (14.09.03 16:33) [1]


получилось что SQLDMO установлен, но почему тогда
не выдается список серверов в сети
код для этого использую следующий

procedure GetServerList(Strings: TStrings);
var dmo:OleVariant;
i:Integer;
begin
Strings.Clear;
try
dmo:=CreateOleObject("SQLDMO.SQLServer");
dmo:=dmo.Application;
dmo:=dmo.ListAvailableSQLServers;
for i:=1 to dmo.Count do
if (Length(trim(dmo.Item(i))) > 0) and (CompareText(dmo.Item(i),"(LOCAL)")<>0)
then Strings.Add(AnsiUpperCase(dmo.Item(i)));
except
end;
end;


---

sniknik   (2003-09-14 16:33:00) [7]

var Application: OleVariant;
begin
try
try
Application:= CreateOleObject("SQLDMO.Application");
except
on E: Exception do //неустановлен // или просто глючит
end;
finally
Application:= Unassigned;
end;
end;

---

Наверх