Получить список таблиц БД

@Ligament · Регистрация: 20.02.2014

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Помогите пожалуйста кто чем сможет. Я создал базу данных в Interbase в ней 4 таблицы, на форме у меня DBgrid, IBQuery, DataSours Скажите пожалуйста, как мне получить список таблиц которые у меня в БД есть!

Добавлено через 8 минут
Я знаю как получить список таблиц в случае если использовать IBTable:

Delphi
1
2
3
4
ListBox1.Items.Add(Form1.Table1.TableName;)
ListBox1.Items.Add(Form1.Table2.TableName;)
ListBox1.Items.Add(Form1.Table3.TableName;)
ListBox1.Items.Add(Form1.Table4.TableName;)

но мне нужно использовать только Query...

@northener · 25.03.2015, 02:45

Сообщение от Владислав-2012

я думал что то перепутал, я когда ставил без двоеточия token unknown и в конце знак вопроса

Ну так сейчас проблема решена?

@Владислав-2012 · 25.03.2015, 12:33

Delphi
1
2
3
4
 DELETEQUERY.Active;
 DELETEQUERY.SQL.Add('DROP TABLE +Combobox1.Text+');
// DELETEQUERY.ParamByName('Q').Value:=Combobox1.Text;
 DELETEQUERY.ExecSQL;

Сделал даже без параметра, но суть ошибки понять не могу, стоит просто знак вопроса

@Алекcей · 25.03.2015, 12:38

просто FireBird обалдел от текста запроса
сделайте так:

Delphi
1
2
3
4
if ComboBox1.ItemIndex<>-1 then begin
 DELETEQUERY.SQL.Add('DROP TABLE' +Combobox1.Items[ComboBox1.ItemIndex]);
 DELETEQUERY. ExecSQL;
end;

@Владислав-2012 · 25.03.2015, 13:21

Абсолютно та же ошибка выскакивает

@Алекcей · 25.03.2015, 13:25

а так?

Delphi
1
2
3
4
5
6
7
8
if ComboBox1.ItemIndex<>-1 then begin
 with DELETEQUERY do begin
  Close;
  SQL.Text:='DROP TABLE' +Combobox1.Items[ComboBox1.ItemIndex];
  ExecSQL;
  Close;
 end;
end;

@Владислав-2012 · 25.03.2015, 13:28

Ошибка та же, на скрине.

@northener · 25.03.2015, 13:31

Delphi
1
2
3
4
 DELETEQUERY.Active;    //Вот эта строчка что здесь делает?
 DELETEQUERY.SQL.Add('DROP TABLE +Combobox1.Text+');
// DELETEQUERY.ParamByName('Q').Value:=Combobox1.Text;
 DELETEQUERY.ExecSQL;

@Владислав-2012 · 25.03.2015, 13:33

Делает активным запрос

@Владислав-2012 · 25.03.2015, 13:34

Без нее он пишет

@northener · 25.03.2015, 13:36

Сообщение от Владислав-2012

Делает активным запрос

Какой запрос? Тот, текст которого задается в следущей строчке?

@Алекcей · 25.03.2015, 13:37

уберите эту строку (DELETEQUERY.Active

, а текст запроса напишите так

Delphi
1
SQL.Text:='DROP TABLE ' +Combobox1.Items[ComboBox1.ItemIndex];

там нет пробела после DROP TABLE

@northener · 25.03.2015, 13:37

Сообщение от Владислав-2012

Без нее он пишет

Ну продолжай лепить код наобум. Бубен только возьми погромче.

@Владислав-2012 · 25.03.2015, 13:44

Да я уже просто не знаю куда приткнутся, пишет что неизвестный 'таблица1'
Заметил, что в комбобоксе появляются пробелы, до конца строки, удаляешь их, тогда проходит один раз весь алгоритм, но таблица остается.

Новые блоги и статьи Все статьи Все блоги /
Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .
мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	25.03.2015, 13:21
	Абсолютно та же ошибка выскакивает 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	25.03.2015, 13:28
	Ошибка та же, на скрине. Изображения 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	25.03.2015, 13:33
	Делает активным запрос 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	25.03.2015, 13:34
	Без нее он пишет Изображения 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	25.03.2015, 13:44
	Да я уже просто не знаю куда приткнутся, пишет что неизвестный 'таблица1' Заметил, что в комбобоксе появляются пробелы, до конца строки, удаляешь их, тогда проходит один раз весь алгоритм, но таблица остается. 0