VPF::Как переключиться к другой таблице в БД?

ZeroCL

Дата 12.4.2011, 08:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 12.4.2011

Репутация: нет
Всего: нет

Доброго времени суток ;-)  столкнулся с такой проблемой... Есть база MySQL там лежат таблицы... На форме в BDGrid отображается активная таблица zTable (FIO)... Как мне сделать, чтоб таблицу из БД можно было выбирать в момент работы программы (подключиться к ней и отобразить в DBGrid) к примеру из ListBox?

begin
   ZTable1.Close;
   ZTable1.Active:=false;
   DataSource1.DataSet.Edit;
   ZTable1.ClearFields;
   ZTable1.TableName:=ListBox1.Items.Text;
   DataSource1.DataSet.Post;
   ZTable1.Open;
   ZTable1.Active:=true;
end;
Пробовал писать такой код, но вылетает ошибка...

superVad

Дата 12.4.2011, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 3
Всего: 15

Какая ошибка, в какой строке?

Вот эти 2 строки дублируют друг друга вроде.

Код


  ZTable1.Close; 
  ZTable1.Active:=false;

И эти тоже.

Код


  ZTable1.Open;
  ZTable1.Active:=true;

Вот это зачем?

Код


  DataSource1.DataSet.Edit;
  DataSource1.DataSet.Post;

ZeroCL

Дата 12.4.2011, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 12.4.2011

Репутация: нет
Всего: нет

ошибка "EDatabaseError with message 'zTable1: DataSet not in Edit or Insert mode' Process stopped

Код


procedure TForm1.Button3Click(Sender: TObject);
 begin
   ZTable1.Close;
   ZTable1.Active:=false;
   ZTable1.ClearFields;
   ZTable1.TableName:=ListBox1.Items.Text; // В этой строке показывает ошибку 
   ZTable1.Open;
   ZTable1.Active:=true;
 end;

"

я пробывал пойти логическим путем, сделать zTable неактивным, присвоить ему новую_таблицу и вновь активировать... но что-то не работает

Antimol

Дата 13.4.2011, 16:43 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 28.7.2007
Где: Украина, Киев

Репутация: 4
Всего: 4

ListBox1.Items.Text; возвратит не совсем то что надо. Для проверки можешь просто вставить код

Код


ShowMessage(ListBox1.Items.Text);

И что же в результате? А в результате весь список "таблиц", который записан в ListBox1, а нам нужно загрузить не весь, а только одну запись. Для этого нужно сделать примерно следующее:

Код


if ListBox1.ItemIndex<>-1 then
begin
   ZTable1.Close;
   ZTable1.ClearFields;
   ZTable1.TableName:=ListBox1.Items[ListBox1.ItemIndex]; 
   ZTable1.Open;
end
else
ShowMessage('Выберите табл. со списка');

Как пользоваться:

1. Загрузить список таблиц в ListBox1
2. Выбираем в ListBox1 нужную таблицу
3. Нажать например кнопку, в которой на событии onClick прописан вышеприведенный код

Это сообщение отредактировал(а) Antimol - 13.4.2011, 16:43

--------------------

Лучшее спасибо это "+" к репутации. Мой блог: ИНФОРМАТИЗАЦИЯ, и mirsovetov.net. Написание программ, исправление ошибок, статьи....

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »