پاک کردن یه رکورد از دیتا گرید با سرچ کردن رکورد

[shadi0h]

من سعی دارم سیستم مدیریت بیمارستان رو بنویسم و می خوام در فرم ترخیص بیمار یه دیتا گرید داشته باشم که خالی باشه و یه فیلد تکست باکس که کد بیمار رو برای ترخیص (پاک کردن اطلاعات بیمار از جدول بیمار) بگیره و با یه دکمه جستجو انجام بده و اگه پیدا کرد مشخصات بیمار رو توی اون دیتا گرید خالی نشون بده و بعد با زدن دکمه ی ترخیص اطلاعات اون پاک بشه
یا حتی میشه دیتاگرید خالی نباشه ولی اگه زدم روش به اون رکورد حرکت کنه و حداقل شماره رکورد جاری به شماره ای که من دادم تغییر کنه که بشه عمل delete را انجام داد
مشکل من توی دسترسی به اون رکوردیه که شماره اشو می دم وگرنه توی نوشتن if و غیره مشکلی ندارم. درضمن چون معمولا تعداد بیمارهای یه بیمارستان زیاد میشه پس اون تکنیک کلیک روی رکورد دیتا گرید و بعد حذف اون برای من مفید نیست

[akbarg64]

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

[shadi0h]

ماشالله اساتید زیاد بودن کسی جواب نداد!!!! :قهقهه:
یه بنده ی خدایی که واقعا خدا خیرش بده کمکم کرد
می نویسم شاید به درد یه بنده خدا ی دیگه خورد

یه دکمه سرچ می ذاریم یه دکمه پاک کردن
و یه دیتا گرید
و روی دکمه ی سرچ این جوری برنامه نویسی می کنیم:

Dim l As Long
AD1.Recordset.MoveFirst
For l = 0 To AD1.Recordset.RecordCount
If AD1.Recordset(1).Value = txtSearch.Text Then Exit For
AD1.Recordset.MoveNext
Next


و روی دکمه ی پاک کردن هم این جوری:

AD1.Recordset.Delete

وصل کردن AD1 و دیتاگرید هم که توی رویداد لود فرم می نویسیم:


Dim DBPath As String
DBPath = App.Path & "\database.mdb"
AD1.ConnectionString = "Provider=Microsoft.JET.Oledb.4.0;data source=" & DBPath
AD1.CommandType = adCmdTable
AD1.RecordSource = "table"x
AD1.Refresh
Set DG1.DataSource = AD1