Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо