Текущий архив: 2005.02.27;
Скачать: CL | DM;

Вниз

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

← →
Ч_А_Й_Н_И_К ©   (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. Это нужно при использовании на разных машинах с разными серверами.

---

← →
ЮЮ ©   (2005-01-31 08:41) [4]

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

---

← →
sniknik ©   (2005-01-31 08:41) [5]

легальных средств формирования строки не хочеш использовать?
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;


---

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

Текущий архив: 2005.02.27;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.039 c