نمایش لیست اطلاعات پس از دریافت

[davood59]

سلام عزیزان، یک سوال داشتم.
به این کد توجه کنید:

.RecordSource = "Select * From person " 'entekhab jadval
.Refresh
.Recordset.AddNew 'ezafe kardan personel

.Recordset!Name = Text2.Text
.Recordset!Fname = Text3.Text

MsgBox ("your information registered sucsessfully")
.Recordset.Update
.Refresh

میخواستم بدونم چه جوری میشه بعد از اینکه پیغام ثبت اطلاعات برای کاربر نمایش داده شد، بدون وقفه ای لیست حاوی اطلاعات پس از update شدن نشون داده بشه و نیاز نباشه که برنامه رو ببندم و دوباره اجرا کنم تا لیست جدید رو ببینم.
ممنونتون میشم اگه جوابمو بدید.

[اوبالیت به بو]

حتماً از DataGrid استفاده كردين!
ولي...
يكي از روش هايي كه ما رو گول زده و فكر مي كنيم درسته همين روش شما هستش. علت اين كه من اين تايپيك (http://barnamenevis.org/forum/showthread.php?t=109773&highlight=%D8%B9%D9%85%D9%84%D9%8A%D8%A7%D8%AA) رو ايجاد كردم همين بود كه راجب ارتباط با DataBase صحبت بشه.
شما اگر براي هر كاري بانكت رو باز كني و در آخر ببندي سرعت كارت خيلي بالا ميره امنيت فوق العاده بالا مي ره و ديگه به اين مشكلات بر نمي خوري كه وقفه بوجود بياد.
حتي شما براي يه Refrsh كردن ساده كه ما خيلي جديش نمي گيريم و فقط به خاطه اينكه Itemها و دكمه هاي فرممون زياد بشه كه در آخر بگيم امكانات برناممون اين هستش بايد بانكت رو باز كني و بعد ببندي حتي يه Refresh ساده.

[aminkk]

من اصلاً نمي فهمم خوب مي نويسيم:
Adodc1.recordset.addnew
ديگه واسه چي باز كنيم و ببنديم؟؟
يا مينويسيم:
adodc1.recordset.update
adodc1.refresh
مگه اين روش بده؟

[davood59]

حتماً از DataGrid استفاده كردين!
ولي...
يكي از روش هايي كه ما رو گول زده و فكر مي كنيم درسته همين روش شما هستش. علت اين كه من اين تايپيك (http://barnamenevis.org/forum/showthread.php?t=109773&highlight=%D8%B9%D9%85%D9%84%D9%8A%D8%A7%D8%AA) رو ايجاد كردم همين بود كه راجب ارتباط با DataBase صحبت بشه.
شما اگر براي هر كاري بانكت رو باز كني و در آخر ببندي سرعت كارت خيلي بالا ميره امنيت فوق العاده بالا مي ره و ديگه به اين مشكلات بر نمي خوري كه وقفه بوجود بياد.
حتي شما براي يه Refrsh كردن ساده كه ما خيلي جديش نمي گيريم و فقط به خاطه اينكه Itemها و دكمه هاي فرممون زياد بشه كه در آخر بگيم امكانات برناممون اين هستش بايد بانكت رو باز كني و بعد ببندي حتي يه Refresh ساده.

سلام دوست عزیز
از راهنمایی شما بینهایت ممنونم. ببین من از datagrid استفاده نکردم.
لطفا اگه میشه متن برنامه رو نگاه کن و طبق استانداردی که شما گفتی توی این تاپیک: http://barnamenevis.org/forum/showpost.php?p=511373&postcount=3
برام یه کم بازنویسی کن(البته اگه ممکنه و وقت گیر نیست).
این متن برنامه منه:

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\cement.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from person"
Adodc1.Refresh
With Adodc1
.Recordset.MoveFirst

For i = 0 To .Recordset.RecordCount - 1

List1.AddItem (.Recordset!Name) + " " + (.Recordset!Fname)
.Recordset.MoveNext
Next i

While Not .Recordset.EOF
List3.AddItem (.Recordset!Name)
.Recordset.MoveNext
Wend
----------ezafe kardane personel
Private Sub Command3_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\cement.mdb;Persist Security Info=False" 'ertebat ba bank
.RecordSource = "Select * From person " 'entekhab jadval
.Refresh
.Recordset.AddNew 'ezafe kardan personel

.Recordset!Name = Text2.Text
.Recordset!Fname = Text3.Text
MsgBox ("your information registered sucsessfully")
.Recordset.Update
.Refresh
End With


حالا میشه طبق روشی که توی این تاپیک نوشتی منو راهنمایی کنی و برام یه مثال بذاری؟
ضمناً چه جوری میتونم بعد از اینکه پیام ("اطلاعات شمابا موفقیت ثبت شد") لیست جدید رو به کاربر نشون بدم. یعنی به محض اینکه کاربر روی پیغام فوق کلیک کرد لیست حاوی اطلاعات جدید براش به نمایش در بیاد.

[davood59]

آقا obalitjoOon (http://barnamenevis.org/forum/members/obalitjooon.html) کمکم کنید دیگه. ممنونم.

[A.Eimani]

سلام هموطن

منظورش اينه كه بعد از اينكه اون پيغام ظاهر شد و شما رفرش كردي Adodc1 را Close بكني و بعد از Close دوباره بازش كني

Adodc1.Recordset.Close
Adodc1.Recordset.Open