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

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

Создаю таблицу с помощью SQL запроса... [D6, Win2k, WinXP]


ALEI_i_IKA ©   (2005-01-21 21:07:00) 

,все нормально создается добавляю данные, а вот в DBGrid не отображаются. Таблицу проверял данные содержит.
Создаю таблицу:

  with DataModule2 do
    begin
       Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add('CREATE TABLE "NewTable.dbf" (N INTEGER,L INTEGER,F_P BOOLEAN,U_L INTEGER,NAME CHARACTER(50));');
       Query1.ExecSQL;
       Query1.Post;
    end;


Ввожу данные:

  with DataModule2 do
    begin
       Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add('INSERT INTO "NewTable.dbf" VALUES (1,0,FALSE,1,''DATA.EXE'');');
       Query1.ExecSQL;
    end;

Вопрос как их отобразить в DBGrid? Спасибо.


Silver Alex   (2005-01-22 11:51:00) [1]

Query1.DatabaseName = '';
  DataSource1.DataSet = Query1;
  DBGrid1.DataSource = DataModule2.DataSource1;
  DBNavigator.DataSource = DataModule2.DataSource1;

наверное ты не правильно написал,  DataSource1 и DataModule2.DataSource1  это ведь не один и тот же  TDataSource. Если это прямо из кода взято, то конечно ничего не увидишь в гриде


Anatoly Podgoretsky   (2005-01-21 21:51:00) [2]

Для получения данных используется SELECT, для удаления DELETE.


Desdechado   (2005-01-21 21:49:00) [3]

1. после ExecSQL лишний вызов Post
2. для показа нужно query.sql.text := 'select * from newtable';
query.open;


ALEI_i_IKA   (2005-01-21 21:35:00) [4]

на форме есть
   DBGrid1: TDBGrid;
   DBNavigator: TDBNavigator;
и в дата модуле:
 TDataModule2 = class(TDataModule)
   DataSource1: TDataSource;
   Query1: TQuery;

Компоненты имеют следуюие параметры:
   
   Query1.DatabaseName = '';
   DataSource1.DataSet = Query1;
   DBGrid1.DataSource = DataModule2.DataSource1;
   DBNavigator.DataSource = DataModule2.DataSource1;


Наверх

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