چرا اين دستور كار نمي كند ؟

با سلام دوباره

من مي خوام از جدولم كه اطلاعات حسابداري در آن ذخيره شده است هنگامي كه دكمه ديدن سند را مي زنيم ركوردهايي كه مربوط به يك شماره سند خاص است را به من نشان دهد ولي با پيام List Index Out Boands مواجه مي شوم لطفا به من بگوييد اشكال اين دستور در چي است

کد:

---

Dviwe.ADOQuery1.close;
Dviwe.ADOQuery1.SQL.Clear;
Dviwe.ADOQuery1.SQL.Add(' INSERT INTO temp_art SELECT * FROM movaghat where  shomaresanad=:shomaresanad  ');
Dviwe.ADOQuery1.Parameters.ParamValues['shomaresanad']:=Smovaghat.DBGrid1.DataSource.DataSet.Fields[0].Value;
Dviwe.ADOQuery1.ExecSQL;

---

لازم به ذكر است كه شماره سند را از دي بي گريدي كه ليست كليه سندها را نشان مي دهد انتخاب مي كنم
البته بايد ذكر كنم كه ركوردهاي خواسته شده به جدول Temp_art انتقال داده مي شود ولي پس از آن پيام List Index Out Boands نمايش داده مي شود

متشكرم

من اين شگرد شما رو بلد نيستم.
چون خودم بيشتر از فرامين دلفي براي اين كارا استفاده ميكنم تا فرماين SQL و به نظر بايد توي فرمان از shomaresanad=shomaresanad استفاده كنيد بدون ":". ولي يك راه حل براتون سراغ دارم.
توي OnPostError مربوط به ADOQuery‌خودتون ميتونين كاري كنين كه Error نمايش داده نشه.
(فعلا نميگم كه يه كمي بگردي . ولي اگه پيداش نكردي بگو تا راحشو بهت بگم.)

ضمنا به نظر من براي يك Insert ساده ، استفاده از فرمان AdoQuery.insert خيلي راحتتر باشه.