Здравствуйте, Lelic, Вы писали:
L>Как получить список SQL-серверов, зарегистрированных в сети
var DmoObject: OleVariant;
i: Integer;
begin
List.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) then
List.AddObject(AnsiUpperCase(DmoObject.Item(i)), nil);
except
MessageDlg( Не установлен SQLDMO.SQLServer, определить список серверов не удалось.', mtWarning, [mbOK], 0);
end;
Здравствуйте, Clickmaker, Вы писали:
C>Здравствуйте, Lelic, Вы писали:
L>>Как получить список SQL-серверов, зарегистрированных в сети
C>C>var DmoObject: OleVariant;
C> i: Integer;
C>begin
C> List.Clear;
C> try
C> DmoObject := CreateOleObject('SQLDMO.SQLServer');
C> DmoObject := DmoObject.Application;
C> DmoObject := DmoObject.ListAvailableSQLServers;
C> for i:=1 to DmoObject.Count do
C> if (Length(trim(DmoObject.Item(i))) > 0) then
C> List.AddObject(AnsiUpperCase(DmoObject.Item(i)), nil);
C> except
C> MessageDlg( Не установлен SQLDMO.SQLServer, определить список серверов не удалось.', mtWarning, [mbOK], 0);
C> end;
C>
mozjno ispolzovatj funkciju NetServerEnum
