[Neocoder]

Здравствуйте, долго мучаюсь уже все перепробовал, не обновляет данные после выполнения хранимой процедуры на добавление новой записи. Не знаю в чем проблема, заранее благодарен за ответы.

Код:

 private
    { Private declarations }
       procedure PickListFill;

  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);

begin


Form1.ADOConnection1.Open;
//Form1.ADOQuery2.Open;
PickListFill

end;


procedure Tform1.PickListFill; //Для реализации выпадающего списка
var N:Integer;
begin
N:=0;
while Form1.DBGrid2.Columns[N].FieldName<>'Домашний_телефон' do
inc(N);
Form1.ADOQuery3.Open;
While not Form1.ADOQuery3.Eof do with
Form1.DBGrid2.Columns[N].PickList do
begin
   Add(Form1.ADOQuery3_.AsString);
   Form1.ADOQuery3.Next
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var N:Integer;
begin
Form1.ADOConnection1.BeginTrans;
with Form1.ADOStoredProcPhoneInsert do
begin
Parameters.ParamByName('@HomePh').Value:=Edit1.Text;
Parameters.ParamByName('@Mob_ph').Value:=Edit2.Text;
Parameters.ParamByName('@Add_ph').Value:=Edit3.Text;
end;
Form1.ADOStoredProcPhoneInsert.ExecProc;
Form1.ADOConnection1.CommitTrans;
Form1.DBGrid2.Refresh;
end;


end.

Текст запроса :

Код:

SELECT     *
FROM         Phone_spec

Текст хранимой процедуры:

Код:

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

ALTER PROCEDURE [dbo].[PhoneInsert]
	-- Add the parameters for the stored procedure here
	@HomePh char(15),
    @Mob_ph char(15),
    @Add_ph char(15)
AS

INSERT INTO Phone_spec
                      (Домашний_телефон, Мобильный_телефон, Дополнительный_тел)
VALUES     (@HomePh,@Mob_ph, @Add_ph)