![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
delphi+mssql+ado [D5, MSSQL]
Deschanel © (2002-06-18 18:44:00)хочу написать маленк. прогр.
на форме нужен бутончик и ListBOx - нажимаю на бутона и получаю список всех баз данных на сервере
другой бутон. нажимаю получаю список таблиц из базу
чоб смог еще запросы выполнить
помогите пожайлуста, прошу высылаете ответы по емайлу
Fay (2002-06-24 20:55:00) [1]2Alex-A
Ты прав - не тот пример. 8)
Что-то хреново вопрос прочитал. Пока добрался до него, уже бешеный был.
Balu (2002-06-24 18:18:00) [2]Если можно и мне на мыло пример.
Alex-A (2002-06-19 07:20:00) [3]2Fay
Deschanel просил список БД, а не серверов ;), а вообще использование SQL-DMO поддерживаю.
2Deschanel
Отправил тебе другой вариант почтой
Простенький, но рабочий; и то что ты спрашивал.
Подробности письмом
Fay (2002-06-19 04:10:00) [4]
procedure TForm1.Button1Click(Sender: TObject);
var
dmo, sn : Variant;
i : Integer;
begin
Memo1.lines.Clear;
dmo := CreateOleObject("SQLDMO.Application");
sn := dmo.ListAvailableSQLServers;
for i := 1 to sn.Count do Memo1.Lines.Add(sn.Item(i));
end;