Обновление таблиц

[Анн]

При добавлении данных в таблицу по нажатии на кнопку почему то DBGriD показывает пустую таблицу и даже без колонок, после закрытия формы и последующего открытия эти данные появляются и все вроде бы нормально...
Вопрос, как сделать чтобы новые данные сразу отображались в таблице.
Пробовала и Update и refresh и datasource пробовала закрывать открывать, ничего не помогает...
Прошу помощи!

[vovk]

Сообщение от Анн

При добавлении данных в таблицу по нажатии на кнопку почему то DBGriD показывает пустую таблицу и даже без колонок, после закрытия формы и последующего открытия эти данные появляются и все вроде бы нормально...
Вопрос, как сделать чтобы новые данные сразу отображались в таблице.
Пробовала и Update и refresh и datasource пробовала закрывать открывать, ничего не помогает...
Прошу помощи!

извините с телепатией у меня не очень, можно узнать что за БД какие компоненты используете, код в котором добавляете записи. Если не трудно))

[Анн]

бд связанная с заказами. Использую для подключения к ней компоненты adoconnection, adoquery, datasource. Для отображения данных dbgrid.

Код процедуры генератора заполнения данными:

procedure zakaz(time1,time2:string; aa,bb,cc,dd:integer);
  begin

    Datamodule2.ZakazQuery.SQL.Text:='insert into zakazi(data_priema,ID_client,ID_sotrud,ID_Yslygi,Summa,Data_vipolnenia)'
    + 'values('+''''+time1+''''+','+inttostr(aa)+','+inttostr(bb)+','+inttostr(cc)+','+inttostr(dd)+','+''''+time2+''''+')';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Clienti.ID_Client  from Clienti';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Yslygi.ID_Yslygi from Yslygi';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Sotrudniki.ID_Sotrud from Sotrudniki';
    Datamodule2.ZakazQuery.ExecSQL;


  end;

procedure TForm1.Frame11ToolButton5Click(Sender: TObject);
var i,k,m,n,ki,mi,ni,pr,a,b,c,d:integer;

tm,fm:tdatetime;
begin

  k:=datamodule2.ClientQuery.RecordCount;
  m:=datamodule2.SotrudQuery.RecordCount;
  n:=datamodule2.YslygQuery.RecordCount;
  for i:=1 to 10 do begin
    tm:=random(40179-36525)+36525;
    fm:=random(40179-36525)+36525;
    ki:=random(k);
    mi:=random(m);
    ni:=random(n);
    Datamodule2.ClientQuery.First;
    Datamodule2.ClientQuery.MoveBy(ki);
    Datamodule2.SotrudQuery.First;
    Datamodule2.SotrudQuery.MoveBy(mi);
    Datamodule2.YslygQuery.First;
    Datamodule2.YslygQuery.MoveBy(ni);
    {pr:=random(1000)+1;}

    a:=Datamodule2.ClientQuery.FieldByName('ID_Client').AsInteger;
    b:=Datamodule2.SotrudQuery.FieldByName('ID_Sotrud').AsInteger;
    c:=Datamodule2.YslygQuery.FieldByName('ID_Yslygi').AsInteger;
    d:=Datamodule2.YslygQuery.FieldByName('Cena').AsInteger;
     zakaz(datetostr(tm),datetostr(fm),a,b,c,d);
               end;
     
end;

[vovk]

    Datamodule2.ZakazQuery.SQL.Text:='insert into zakazi(data_priema,ID_client,ID_sotrud,ID_Yslygi,Summa,Data_vipolnenia)'
    + 'values('+''''+time1+''''+','+inttostr(aa)+','+inttostr(bb)+','+inttostr(cc)+','+inttostr(dd)+','+''''+time2+''''+')';
    Datamodule2.ZakazQuery.ExecSQL;

это действие мне понятно,

а для чего это?

    Datamodule2.ZakazQuery.SQL.Text:='Select Clienti.ID_Client  from Clienti';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Yslygi.ID_Yslygi from Yslygi';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Sotrudniki.ID_Sotrud from Sotrudniki';
    Datamodule2.ZakazQuery.ExecSQL;

в TADOQuery для выполнения селективных запросов (тех которые возвращают набор данных)
используется open а не ExecSql
не

    Datamodule2.ZakazQuery.ExecSQL;

а

    Datamodule2.ZakazQuery.open;

потом все эти запросы вообще без смысла. 3 раза запрашиваются разные данные и нигде не используются. и в конце в датасете будет содержатся набор данных которые вернутся в результате последнего запроса, то есь вот

Datamodule2.ZakazQuery.SQL.Text:='Select Sotrudniki.ID_Sotrud from Sotrudniki';

если у вас к DBGrid серез Datasource подключен Datamodule2.ZakazQuery,
то после добавления нужно было

    Datamodule2.ZakazQuery.SQL.Text:='запрос';
    Datamodule2.ZakazQuery.open;

[Анн]

Этот код для добавления данных в главную таблицу из остальных.

 Datamodule2.ZakazQuery.SQL.Text:='Select Clienti.ID_Client  from Clienti';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Yslygi.ID_Yslygi from Yslygi';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Sotrudniki.ID_Sotrud from Sotrudniki';
    Datamodule2.ZakazQuery.ExecSQL;

Попробовала заменить ExecSQL на OPEN
результат не изменился,как Вы и сказали, код сотрудников выводит...

[vovk]

Сообщение от Анн

Этот код для добавления данных в главную таблицу из остальных.

 Datamodule2.ZakazQuery.SQL.Text:='Select Clienti.ID_Client  from Clienti';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Yslygi.ID_Yslygi from Yslygi';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Sotrudniki.ID_Sotrud from Sotrudniki';
    Datamodule2.ZakazQuery.ExecSQL;

Попробовала заменить ExecSQL на OPEN
результат не изменился,как Вы и сказали, код сотрудников выводит...

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

INSERT INTO имя_таблицы (имя поля1, имя поля2...имяполяN ) values(значение1, значение2....значениеN)

запросы вида SELECT ..FROM.. возвращают набор данных.

Скажите, какие данные должен отобразить грид?

[Анн]

должны отобразиться код клиента, код сотрудника, код услуги( для этих трех как раз и запросы), ну и там сумма, дата приема и выполнения.

[vovk]

чтоб получить данные из этих 3 таблиц сразу, нужно и запрос делать одновременно по всем 3 таблицам
если бы вы дали имена таблиц, состав полей, внешние ключи (по каким полям таблицы связаны), и понятное описание набора данных который желаете получить запросом, то я (или ктонибудь из форумчан) легко бы составили нужный вам запрос.
Ну ей богу все нужные данные как будто клещами из вас тянуть приходится)) Неужели там всё такое секретное что перед прочтением сьесть?))

[Анн]

секретного ничего нет))))
мне нужно из таблиц сотрудники, клиенты и услуги забрать данные, такие как код сотрудника, код клиента код услуги..Вот, чтобы все это добавлялось в таблицу заказы при нажатии на кнопку...задание дали заполнить этими данными таблицу заказы на несколько сотен строк и более

А таблицы, поля и ключи на схеме можно посмотреть)

[vovk]

ну я так понял, всё заполняется, только вот это лишнее

 Datamodule2.ZakazQuery.SQL.Text:='Select Clienti.ID_Client  from Clienti';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Yslygi.ID_Yslygi from Yslygi';
    Datamodule2.ZakazQuery.ExecSQL;

    Datamodule2.ZakazQuery.SQL.Text:='Select Sotrudniki.ID_Sotrud from Sotrudniki';
    Datamodule2.ZakazQuery.ExecSQL;

думаю что понял, хотя.. в общем, что содержится в

 Datamodule2.ZakazQuery.SQL.Text

при запуске приложения?