Здравствуйте, долго мучаюсь уже все перепробовал, не обновляет данные после выполнения хранимой процедуры на добавление новой записи. Не знаю в чем проблема, заранее благодарен за ответы.
Код:
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.
Текст запроса :
Текст хранимой процедуры:
Код:
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)