| Код |
procedure TLoginForm.btnServerListRefreshClick(Sender: TObject);
var
dmo: Variant;
i: Integer;
begin
try
Screen.Cursor:= crHourGlass;
dmo:=CreateOleObject('SQLDMO.Application');
for i:=0 to dmo.ListAvailableSQLServers.Count do
if (Length(trim(dmo.ListAvailableSQLServers.Item(i))) > 0) and
(CompareText(AnsiUpperCase(dmo.ListAvailableSQLServers.Item(i)),'(LOCAL)')<>0) then
cbbServerName.Items.Add(AnsiUpperCase(dmo.ListAvailableSQLServers.Item(i)));
Screen.Cursor:= crDefault;
except
on e: Exception do
begin
Application.MessageBox(PChar('Нет доступа к SQL-серверу. Обратитесь к администратору.'),'Обновление списка серверов',48);
ErrLOG('TLoginForm.btnServerListRefreshClick',e.Message,'','',Sender);
Screen.Cursor:= crDefault;
end;
end;
end;
|
возвращает список доступных для подключения в сети серверов |
)