Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

combobox и список таблиц [D2005, XP]

Sergionio © (2007-03-26 17:51:00)
ка поместить в комбобокс список таблиц выбраной базы?

serg777 (2007-03-26 19:36:00) [1]
ну вы меня поняли :)

serg777 (2007-03-26 19:35:00) [2]
я наверное не в тот раздел форума попал........ ;)

Loginov Dmitry (2007-03-26 19:29:00) [3]
ComboBox1.Items.Index := 0

Loginov Dmitry (2007-03-26 19:29:00) [4]
Тьфу!
Ну вы поняли :)

serg777 (2007-03-26 19:27:00) [5]
пасибо!!!

есть еще вопросик :)

а как быть если мне нужно загнать в комбобокс (например) содержимое первого поля выбранной таблицы?

как сделать корректнее?

Mechanikus (2007-03-26 19:05:00) [6]
1. не стоит использовать прямые запросы с клиента. усе стоит через сторед процедуры.
2. не сработал? странно.. я с дельфи копировал : )

Но тут Дмитрий более прикольный вариант показал выше.
Берешь TADOConnect, настраиваешь.
затем
adoConnect.GetTableNames(comboBox1.Items,false);

И усе : )

serg777 (2007-03-26 18:54:00) [7]
Извиняюсь за назойливость..
но продолжу :)

использую mysql сервер, подключаюсь удачно, в випкшв все загружается норм..

использую query с sql строкой 'show tables'.. в dbgrid все проходит норм...

пробую делать так:

ADQuery3.SQL.Clear;
ADQuery3.Close;
ADQuery3.SQL.add('use databas_name;');
ADQuery3.SQL.add('show tables');
ADQuery3.Open;
ADQuery3.First;
while ADQuery3.Eof do
begin
jvComboBox1.Items.add(ADQuery3.Fields[0].AsString);
ADQuery3.Next
end;
end;

не срабатывает...
если использую гриды, то все пучком..

p.s. почему так не делать в реале?
p.s.2 тот код у меня не сработал..

Mechanikus (2007-03-26 18:25:00) [8]

> .GetTableNames(ComboBox.Items);

Прикольно : )
"Шурик, все уже сделано.. за нас!" : ))))

Буим знать!

Mechanikus (2007-03-26 18:22:00) [9]
пример 3его?
пжста : )

var
qw: TADOQuery;
cb: TComboBox;

begin

qw.ConnectionString:=''; //типа твой конн стринг задай
qw.SQL.Clear;
qw.SQL.Add('SELECT * FROM INFORMATION_SCHEMA.TABLES');
qw.Open;

cb.Clear;
qw.First;
while not qw.Eof do begin
cb.Items.Add(qw.FieldByName('Table_Name').AsString);
qw.Next;
end;

PS. Это пример.. никогда так в реале не делай : )

Loginov Dmitry (2007-03-26 18:17:00) [10]
Database1.GetTableNames(ComboBox.Items);

serg777 (2007-03-26 18:11:00) [11]

> Mechanikus (26.03.07 18:09) [2]

3. парсишь полученный датасет и заливаешь куда угодно.

пример можно?

Mechanikus (2007-03-26 18:09:00) [12]
1. ставишь коннект на базу
2. выполняешь SELECT * FROM INFORMATION_SCHEMA.TABLES
3. парсишь полученный датасет и заливаешь куда угодно.

Loginov Dmitry (2007-03-26 18:07:00) [13]
В чем именно состоит проблема? В помещении строк в комбобокс, или в определении списка таблиц?

Наверх

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