عدم نمایش رکورد اینزرت شده در جدول ؟

[tik_tak]

سلام
من با این کد اینزرت میکنم :



procedure TForm1.Save;
var
stream:tstream;
begin
with ADOQuery1 do
begin
sql.Text:='select * from picsample';
Open;
end;
stream:=ADOQuery1.CreateBlobStream(ADOQuery1.Field ByName('pic'),bmRead);
image1.Picture.Graphic.SaveToStream(stream);
With ADOQuery1 do
begin
SQL.Text:='insert into picsample (name,family,pic) VALUES (:p0,:p1,:p2)';
Parameters.ParamByName('p0').Value:=edit1.Text;
Parameters.ParamByName('p1').Value:=edit2.Text;
Parameters.ParamByName('p2').LoadFromStream(stream ,ftBlob);
ExecSQL;
end;
end;



یه دی بی گرید هم گذاشتم که اطلاعات جدول و نشون بده درواقع به دیتا سورس جدولم وصله ،
ولی هر وقت من اینزرت میکنم ، باید یه بار برنامه رو ببندم یعنی از حالت اجرا خارج بشم ،دوباره برنامه رو باز کنم الان وقتی جدول و میبینم ، میبنم که رکوردم اینزرت شد !

چه طور ی میشه اگه بخوام وقتی کلید اینزرت و زدم تو دی بی گرید نشون بده رکورد جدیدمو
مرسی

[amin_alexi]

سلام
من خودم معمولا DataSet ي كه به Grid وصله رو دوباره OPEN مي كنم !
شما اگه از AdoQuery يا AdoTable استفاده مي كنيد مي تونيد بعد از Insert يك بار AdoQuery رو Close و دوباره Open كنيد. تا اطلاعات جديد رو از DataBase بخونه

[tik_tak]

من دی بی گریدم به دیتاسورس جدول وصله
من این دوتا کد رو وقتی اینزرت پایان گرفت نوشتم..یعنی بعد این :


.
.
.
ExecSQL;
end;


اینو نوشتم:


with ADOQuery1 do
begin
Close;
Open;
end;


یه بارم با این کد امتحان کردم :


with adotable1 do
begin
Close;
Open;
end;


ولی بازم نشون نداد !

[amin_alexi]

شايد لازم باشه يك بار هم Connection رو ببندين و دوباره باز كنيد !

[yalameh]

بعد از execsql دستور open را اجرا کن . احتمالا حل می شه .

[tik_tak]

بعد از execsql دستور open را اجرا کن . احتمالا حل می شه .





.
.
.

ExecSQL;
with adotable1 do
begin
Close;
Open;
end;
end;


متشکرم ..... اینجوری درست شد .