Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 09.11.2018, 17:45   #11
Linsor
Пользователь
 
Регистрация: 27.07.2018
Сообщений: 13
Репутация: 10
По умолчанию

Цитата:
Сообщение от xxbesoxx Посмотреть сообщение
Код:
Я извиняюсь, что так долго не отвечал, Были проблемы с Интернетом... Я писал код, DBGrid активируется, но столбцы не добавляются... я пытался сам написать что-нибудь, но безуспешно...
Linsor вне форума   Ответить с цитированием
Старый 11.11.2018, 18:47   #12
Linsor
Пользователь
 
Регистрация: 27.07.2018
Сообщений: 13
Репутация: 10
По умолчанию

Так, я нашёл одно поджопное решение, но теперь DBGrid не хочет отчищаться, и вообще работать с другими БД

Код:

procedure TMainForm.BoxDBNameChange(Sender: TObject);
Var
  IDX, i : integer;
begin

  if  Trim(BoxDBName.Text) <>'' then
    begin
      With DataModule2 do begin
        ZConnection1.Catalog := BoxDBName.Items[IDX];

        ZQuery2.Close;
        Zquery2.SQL.Clear;
        ZQuery2.SQL.Add(' SELECT * FROM  '+  trim(ZTable1.TableName) +' ');
        ZQuery2.Open;

        MainDataBAse.Columns.Clear;
        For i := 0 to ZQuery2.FieldCount-1 do
          begin
            MainDataBase.Columns.Add;
            MainDataBase.Columns[i].Field := ZQuery2.Fields[i];

          end;

      end;
  end;


end;

MainDataBase - DBGrid
Linsor вне форума   Ответить с цитированием
Старый 11.11.2018, 21:59   #13
evg_m
Профессионал
 
Регистрация: 20.04.2008
Сообщений: 4,738
Репутация: 2097
По умолчанию

Цитата:
но теперь DBGrid не хочет отчищаться, и вообще работать с другими БД
с другими БД работает не Dbgrid а XXConnection. И для соединения с новой(другой) БД надо закрыть текущее соединение, а потом(после задания новых параметров) открыть вновь.
Цитата:
Код:

        ZConnection1.Catalog := BoxDBName.Items[IDX];

А вы задали значение IDX ?!

Цитата:
Код:

        MainDataBAse.Columns.Clear;

вообще-то говоря этого достаточно чтобы DBGrid "показал" все колонки своего текущего НД.

Цитата:
Код:

            MainDataBase.Columns.Add;

это функция (результат - добавленная колонка)
http://www.programmersforum.ru/showp...97&postcount=4
__________________
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 11.11.2018 в 22:04.
evg_m вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программное добавление картинок в Word xrob Компоненты Delphi 0 30.04.2014 18:06
Программное добавление textBox zaki C# (си шарп) 2 06.12.2013 19:15
Дан двухмерный массив из 20 столбцов. Вставить в него столбец из чисел 10 после всех четных столбцов. Дмитрий142 Помощь студентам 9 07.06.2012 19:32
программное добавление items в ListView Марк Охман Общие вопросы Delphi 4 30.12.2010 17:44
Программное добавление принтера AlexandrSid Общие вопросы Delphi 5 13.08.2008 15:29


07:43.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru