دیتا گرید

[LEILAFATHI]

سلام دوستان
ADOمن با وی بی 6 دارم یه برنامه مینویسم و دیتا بیسمم اکسس هست و با
ازمی کنم یه کد برای حذف از دیتا بیس نوشتم این کد درست اجرا میشه
ولی دیتاگریدم بعد از انجام عمل حذف آپدیت نمیشه
یعنی بعد ازحذف من باید یکبار فرممم رو ببندم و دوباره باز کنم
حالا این مشکل از کجاست کدمم اینه




strsql = "delete from table1 where code=47"
Set db1 = OpenDatabase(App.Path + "\setayesh.mdb")
If Text1.Text <> "" And flag = True Then
cnn.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;data Source=APP.PATH+\setayesh.mdb"
cnn.CursorLocation = adUseClient
cnn.Mode = adModeReadWrite
cnn.Open App.Path + "\setayesh.mdb"
rec.Open strsql, cnn, adOpenDynamic, adLockOptimistic, adCmdTable
db1.Execute strsql
Adodc1.Recordset.Requery (strsql)
Adodc1.Refresh
cnn.Close
Set rec = Nothing
Set cnn = Nothing
Text1.Text = ""
strsql = "select * from table1"
cnn.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;data Source=APP.PATH+\setayesh.mdb"
cnn.CursorLocation = adUseClient
cnn.Mode = adModeReadWrite
cnn.Open App.Path + "\setayesh.mdb"
rec.Open strsql, cnn, adOpenDynamic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = rec
DataGrid1.Refresh
n = MsgBox(".åäÑÌæí ãæÑÏ äÙÑ ÇÒ ÈÇä˜ ÇØáÇÚÇÊí ÍÐÝ ÔÏ", vbOKOnly + vbInformation, "ÍÐÝ åäÑÌæ")
End If

[bobrus]

به نظر من بهتر یک بار ado رو ببندی و دوباره باز کنی یعنی اینجوری


rec.close
rec.open strsql,. . .

احتمال زیاد مشکل حل میشه

[bobrus]

دوست عزیز LEILAFATHI
چرا شما وقتی تاپیک میدی دیگه سراغش نمیای حداقل یه سری بزن دکمه حل شده رو بزن یا یه پیغامی بده که کسایی که میان به تاپیک های شما سر میزنن متوجه بشن که به نتیجه رسیدی یا نه