![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запрос имени сервера, получение списка баз данных на сервере [D7, MSSQL]
Ч_А_Й_Н_И_К © (2005-01-30 20:48:00)НЕобходимо , что бы при запуске программы запрашивалось имя Сервера.Получение спика баз данны на сервере и возможность выбрать одну из баз для дальнейшей работы.
ЮЮ (2005-01-31 08:41:00) [1]Нарисовать свою форму для логина.
sniknik (2005-01-31 08:41:00) [2]легальных средств формирования строки не хочеш использовать?
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;
Ч_А_Й_Н_И_К (2005-01-31 08:25:00) [3]Возмодность запрашивать у пользователя имя MSSQL. Это нужно при использовании на разных машинах с разными серверами.
Anatoly Podgoretsky (2005-01-30 21:29:00) [4]Странно как то, лишь бы сервер какой ни будь попался, а остальное побоку.
Nikolay M. (2005-01-30 21:23:00) [5]Что характерно - ни одного вопроса :) Ладно, расставим вопросительные знаки вместо точек сами. Вот только встречный вопрос: у кого (у чего?) должно это имя запрашиваться? У юзера? Или искать в сети любой SQL-сервер и запрашивать у первого попавшегося его "имя"? Кстати, что такое имя сервера - это тоже вопрос. Имя Instance-а?
> Получение спика баз данны на сервере
sp_database
> выбрать одну из баз для дальнейшей работы
USE Nortwind, например.