Delphi+Ado+Access

[kmvteam]

Добрый день.
Имеется главная форма с DbGrid, datasource, adotable
К DBgrid подключена таблица в базе access.
По кнопке открывается вторая форма на которой можно добавить данные в таблицу на первой форме. Данные добавляются но возникла проблема как обновить DbGrid на первой форме.

На первой форме есть кнопка с кодом:
adoTAble1.Close;
adoTAble1.open;
При её использование все обновляется

При попытке сделать тоже самое на второй форме, ничего не выходит(в uses форму прописал).
Form1.adoTAble1.Close;
Form1.adoTAble1.Open;
То есть вторая форма добавляет запись и потом закрывается. И на первой форме ничего не происходит.
Если на втрой форме вынести
на отдельную кнопку
Form1.adoTAble1.Close;
Form1.adoTAble1.Open;
То тоже работает. как занести в одну кнопку и чтобы работалою

var
com:string;
i:integer;
begin
adoquery1.close;
adoquery1.sql.text:='insert into Картотека(Код_сотрудника,Подразделе ние,Должность,Фамилия,Имя,Отчество, Пол) values (:Код_сотрудника,:Подразделение,:До лжность,:Фамилия,:Имя, :Отчество,:Пол)';
adoquery1.Parameters.ParamByName('Ф амилия').value:=edit1.Text;
adoquery1.Parameters.ParamByName('И мя').value:= edit2.Text;
adoquery1.Parameters.ParamByName('О тчество').value:=edit3.Text;
adoquery1.Parameters.ParamByName('П ол').value:=combobox1.Text;
adoquery1.Parameters.ParamByName('К од_сотрудника').value:= edit5.Text;
adoquery1.Parameters.ParamByName('П одразделение').value:=combobox2.Tex t;
adoquery1.Parameters.ParamByName('Д олжность').value:=edit4.Text;
adoquery1.execSQL;

Form2.ADOTable1.Close;//не работает
Form2.ADOTable1.Open;//не работает
Form1.Close;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form2.ADOTable1.Close; //так работает
Form2.ADOTable1.Open; // так работает
end;

[artemavd]

А если так?

var
com:string;
i:integer;
begin
adoquery1.close;
adoquery1.sql.text:='insert into Картотека(Код_сотрудника,Подразделе ние,Должность,Фамилия,Имя,Отчество, Пол) values (:Код_сотрудника,:Подразделение,:До лжность,:Фамилия,:Имя, :Отчество,:Пол)';
adoquery1.Parameters.ParamByName('Ф амилия').value:=edit1.Text;
adoquery1.Parameters.ParamByName('И мя').value:= edit2.Text;
adoquery1.Parameters.ParamByName('О тчество').value:=edit3.Text;
adoquery1.Parameters.ParamByName('П ол').value:=combobox1.Text;
adoquery1.Parameters.ParamByName('К од_сотрудника').value:= edit5.Text;
adoquery1.Parameters.ParamByName('П одразделение').value:=combobox2.Tex t;
adoquery1.Parameters.ParamByName('Д олжность').value:=edit4.Text;
adoquery1.execSQL;

Form2.ADOTable1.Refresh;
Form1.Close;

[kmvteam]

Спасибо за ответ.
Но не работает.

При
Form2.ADOTable1.Close;
Form2.ADOTable1.Open;
Добавляю данные 1, не появляется
Добавляю данные 2, появляется данные 1

[artemavd]

Так, давай разберемся вместе. На Form1 у вас что расположено: DBGrid1, DataSource1, ADOTable1? А на Form2 что у тебя? И тот код, что ты привел, ты выполняешь на Form2?

[kmvteam]

Form2:
DBgrid,DataSource1, adoTable1
DBgrid подключена база через DataSource1 а он через adoTable1
Кнопка button1 с кодом Form1.Show;

form1:adoquery1,DataSource1
Код что привел выполняется на форме 1

Здесь
Button1: TButton;
Button2: TButton;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Label4: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
ComboBox1: TComboBox;
Combobox2: TComboBox;
код формы:

var
com:string;
i:integer;
begin
adoquery1.close;
adoquery1.sql.text:='insert into Картотека(Код_сотрудника,Подразделе ние,Должность,Фамилия,Имя,Отчество, Пол) values (:Код_сотрудника,:Подразделение,:До лжность,:Фамилия,:Имя, :Отчество,:Пол)';
adoquery1.Parameters.ParamByName('Ф амилия').value:=edit1.Text;
adoquery1.Parameters.ParamByName('И мя').value:= edit2.Text;
adoquery1.Parameters.ParamByName('О тчество').value:=edit3.Text;
adoquery1.Parameters.ParamByName('П ол').value:=combobox1.Text;
adoquery1.Parameters.ParamByName('К од_сотрудника').value:= edit5.Text;
adoquery1.Parameters.ParamByName('П одразделение').value:=combobox2.Tex t;
adoquery1.Parameters.ParamByName('Д олжность').value:=edit4.Text;
adoquery1.execSQL;

Form2.ADOTable1.Close;//не работает
Form2.ADOTable1.Open;//не работает
Form1.Close;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form2.ADOTable1.Close; //так работает
Form2.ADOTable1.Open; // так работает
end;

[artemavd]

А если так?

var
com:string;
i:integer;
begin
adoquery1.close;
adoquery1.sql.text:='insert into Картотека(Код_сотрудника,Подразделе ние,Должность,Фамилия,Имя,Отчество, Пол) values (:Код_сотрудника,:Подразделение,:До лжность,:Фамилия,:Имя, :Отчество,:Пол)';
adoquery1.Parameters.ParamByName('Фамилия').value:=edit1.Text;
adoquery1.Parameters.ParamByName('Имя').value:= edit2.Text;
adoquery1.Parameters.ParamByName('Отчество').value:=edit3.Text;
adoquery1.Parameters.ParamByName('Пол').value:=combobox1.Text;
adoquery1.Parameters.ParamByName('Код_сотрудника').value:= edit5.Text;
adoquery1.Parameters.ParamByName('Подразделение').value:=combobox2.Tex t;
adoquery1.Parameters.ParamByName('Должность').value:=edit4.Text;
adoquery1.execSQL;

Form2.DataSource1.DataSet.Refresh;
Form1.Close;

[kmvteam]

Не обновляет хоть убей её.
Причем я пробовал сделать через батон3, то есть форма2 не закрывается, потом жмеш батон 3, обновляется и закрывается форма 2.
Как из под одной кнопки запустить вторую?
Button3.click;?

[artemavd]

А без закрытия Form1 работает?

var
com:string;
i:integer;
begin
Form2.adoquery1.close;
Form2.adoquery1.sql.text:='insert into Картотека(Код_сотрудника,Подразделе ние,Должность,Фамилия,Имя,Отчество, Пол) values (:Код_сотрудника,:Подразделение,:До лжность,:Фамилия,:Имя, :Отчество,:Пол)';
Form2.adoquery1.Parameters.ParamByName('Ф амилия').value:=edit1.Text;
Form2.adoquery1.Parameters.ParamByName('И мя').value:= edit2.Text;
Form2.adoquery1.Parameters.ParamByName('О тчество').value:=edit3.Text;
Form2.adoquery1.Parameters.ParamByName('П ол').value:=combobox1.Text;
Form2.adoquery1.Parameters.ParamByName('К од_сотрудника').value:= edit5.Text;
Form2.adoquery1.Parameters.ParamByName('П одразделение').value:=combobox2.Tex t;
Form2.adoquery1.Parameters.ParamByName('Д олжность').value:=edit4.Text;
Form2.adoquery1.execSQL;

Form2.ADOTable1.Close;
Form2.ADOTable1.Open;
//Form1.Close;

[kmvteam]

нет, не работает.

[artemavd]

Можете проект скинуть? Без экзешника только, чтобы меньше весил архив.