Запрос имени сервера, получение списка баз данных на сервере

← →
Ч_А_Й_Н_И_К © (2005-01-30 20:48) [0]

НЕобходимо , что бы при запуске программы запрашивалось имя Сервера.Получение спика баз данны на сервере и возможность выбрать одну из баз для дальнейшей работы.

← →
Nikolay M. © (2005-01-30 21:23) [1]

Что характерно - ни одного вопроса :) Ладно, расставим вопросительные знаки вместо точек сами. Вот только встречный вопрос: у кого (у чего?) должно это имя запрашиваться? У юзера? Или искать в сети любой SQL-сервер и запрашивать у первого попавшегося его "имя"? Кстати, что такое имя сервера - это тоже вопрос. Имя Instance-а?

> Получение спика баз данны на сервере

sp_database

> выбрать одну из баз для дальнейшей работы

USE Nortwind, например.

← →
Anatoly Podgoretsky © (2005-01-30 21:29) [2]

Странно как то, лишь бы сервер какой ни будь попался, а остальное побоку.

← →
Ч_А_Й_Н_И_К © (2005-01-31 08:25) [3]

Возмодность запрашивать у пользователя имя MSSQL. Это нужно при использовании на разных машинах с разными серверами.

Нарисовать свою форму для логина.

легальных средств формирования строки не хочеш использовать?
EditConnectionString (uses AdoConed)
PromptDataSource

тогда используй SQLDMO (убери лишнее)
function TDMod.GetSQLServers(ServersItems: TStrings): boolean; var NameList, Application: OleVariant; i:Integer; sName: string; begin result:= false; try try ServersItems.Clear; Application:= CreateOleObject("SQLDMO.Application"); NameList:= Application.ListAvailableSQLServers; for i:= 1 to NameList.Count do begin sName:= NameList.Item(i); if sName = "(local)" then sName:= GetComputerName; ServersItems.Add(sName); end; result:= true; except on E: Exception do DoIfError(E.Message); end; finally Application:= Unassigned; end; end;

Запрос имени сервера, получение списка баз данных на сервере Найти похожие ветки