Скачать: CL | DM;

как работать с SQL-DMO   Найти похожие ветки 

← →
victor_ch   (2003-09-14 14:26) [0]

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

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

---

← →
sniknik ©   (2003-09-14 16:33) [1]

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

---

← →
victor_ch   (2003-09-14 17:34) [2]

при проверке кодом от
> 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 19:04) [3]

может потому что нет установленных 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-15 23:54) [4]

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

---

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

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

---

← →
victor_ch   (2003-09-16 00:36) [6]

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

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

---

← →
jocko ©   (2003-09-16 10:47) [7]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c