بهترین کد ها برای آپدیت دیتا بیس

[conter]

سلام دوستان میشه بهترین کد ها رو برای آپدیت و اضافه و حذف کردن رکود ها در دیتا بیس رو بگید ؟
والا من یک دستور اضافه کردن گذاشتم ولی مثلا وقتی روش دابل کلیک بشه ارور میده یا وقتی اطلاعات در تکست باکس ها وارد میشه باید حتما بزنی قبلی یا بعدی تا بشه دوباره دکمه اضافه کردن رو فشار داد یعنی حتما بعد از یک بار اضافه و حذف باید رکورد ها جابه جا شن ... اینم کدش :

Private Sub add_Click()
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
End Sub

و میخواستم اگه میشه کدی بدین که با زدن دکمه اضافه مثلا وقتی تکست باکس ها پر شد یک اتفاقی بیفته که نیازی به زدن دکمه قبلی و بعدی نباشه یعنی بشه با هر بار زدن دکمه اضافه تکست باکس ها رو پر کرد و دوباره دکمه اضافه رو زد بدونی که خطا بده ...

[kitcat_m18]

سلامCounter جان،

تو سورس کدی که قبلا بهت دادم یه نگاه می کردی جوابتو پیدا می کردی

برای اضافه کردن یه رکورد جدید
Adodc1.recordet.add new
دقت داشته باش که وقتی این کد و اجرا کردی(فقط یه بار می تونی اجرا کنی اگه دوباره دکمه ADD رو فشار بدی ارور میده برای رفع این ارور هم دکمه رو غیر فعال کن) یا باید بعدش از کد
Adodc1.recordset.updae
استفاه کنی (یا یه کد مشابه مثل Update Bach) یا این عملیات رو Cancell کنی
Adodc1.Recordset.Cancell

موفق باشی :لبخندساده:

[conter]

یعنی هیچ راه بهتری نیست؟
خوب من دستور آپدیت رو هم اخر این کد اضافه کردم اما به محض زدن دکمه ارور میده .....

[conter]

دوستان من این کد رو نوشتم تقریبا اون چیزی شد که میخوام از این خوب تر هم میشه؟

Private Sub add_Click()
Adodc1.Recordset.MoveLast
Dim detail As String
Dim radif, factnum, meghdar, takhfif, price As Double
factnum = InputBox("ÔãÇÑå ÝǘÊæÑ ÑÇ æÇÑÏ ˜äíÏ")
radif = InputBox("ÔãÇÑå ÑÏíÝ ÑÇ æÇÑÏ ˜äíÏ")
detail = InputBox("ãÔÎÕÇÊ ˜ÇáÇ ÑÇ æÇÑÏ ˜äíÏ")
meghdar = InputBox("ãÞÏÇÑ ˜ÇáÇ ÑÇ æÇÑÏ ˜äíÏ")
takhfif = InputBox("ãíÒÇä ÊÎÝíÝ ÑÇ æÇÑÏ ˜äíÏ")
price = InputBox("ÞíãÊ ˜ÇáÇ ÑÇ æÇÑÏ ˜äíÏ")
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("factor number") = factnum
Adodc1.Recordset.Fields("radif") = radif
Adodc1.Recordset.Fields("detail") = detail
Adodc1.Recordset.Fields("meghdar") = meghdar
Adodc1.Recordset.Fields("takhfif") = takhfif
Adodc1.Recordset.Fields("price") = price
Adodc1.Recordset.Update
End Sub

[Javad-2010]

دوستان من این کد رو نوشتم تقریبا اون چیزی شد که میخوام از این خوب تر هم میشه؟

Private Sub add_Click()
Adodc1.Recordset.MoveLast
Dim detail As String
Dim radif, factnum, meghdar, takhfif, price As Double
factnum = InputBox("ÔãÇÑå ÝǘÊæÑ ÑÇ æÇÑÏ ˜äíÏ")
radif = InputBox("ÔãÇÑå ÑÏíÝ ÑÇ æÇÑÏ ˜äíÏ")
detail = InputBox("ãÔÎÕÇÊ ˜ÇáÇ ÑÇ æÇÑÏ ˜äíÏ")
meghdar = InputBox("ãÞÏÇÑ ˜ÇáÇ ÑÇ æÇÑÏ ˜äíÏ")
takhfif = InputBox("ãíÒÇä ÊÎÝíÝ ÑÇ æÇÑÏ ˜äíÏ")
price = InputBox("ÞíãÊ ˜ÇáÇ ÑÇ æÇÑÏ ˜äíÏ")
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("factor number") = factnum
Adodc1.Recordset.Fields("radif") = radif
Adodc1.Recordset.Fields("detail") = detail
Adodc1.Recordset.Fields("meghdar") = meghdar
Adodc1.Recordset.Fields("takhfif") = takhfif
Adodc1.Recordset.Fields("price") = price
Adodc1.Recordset.Update
End Sub
دوست عزیز؛
حالا با این کدها مگه مشکل داری، یا اینکه مشکلت حل شده؟