انجام 4 عمل اصلی در DataSet

[ali190]

باسلام و عرض خسته نباشید
دوستان در نمونه ای که خدمتتون قرار دادم هر 4 عمل اصلی که در دیک دیتابیس میتونه انجام بگیره رو آوردم ، منتها تمامی اعمال با dataadapter بر روی رکوردها انجام میگیره و تغییرات مجدداً در دیتاست فیل (Fill) میشود
در سیستم سرچ پروژه هم از همین روش استفاده شده است
حالا سئوالم اینجاست من چطور میتونم هر 4 عمل اصلی رو از طریق خود دیتاست و در داخل رکوردهای موجود در دیتاست انجام بدم و دست آخر تغییرات انجام پذیرفته رو از طریق متد update شئی dataadapter تو دیتابیس ذخیره کنم؟
ممنون میشم تغییرات رو در داخل پروژه پیوست انجام دهید تا به درک مطلب کمکم کنه
ممنون و متشکر از لطف شما عزیزان
یاعلی

[ali190]

سلام
دوستان ممنون میشم کمکم کنید
یاعلی

[ali190]

سلام
آیا انجام 4 عمل اصلی و ارسال نتایج در دیتابیس توسط Dataadapter اری مرسوم و امکانپذیر است؟
ممنون میشم راهنماییم کنید
یاعلی

[mohsen12345]

باسلام و عرض خسته نباشید
دوستان در نمونه ای که خدمتتون قرار دادم هر 4 عمل اصلی که در دیک دیتابیس میتونه انجام بگیره رو آوردم ، منتها تمامی اعمال با dataadapter بر روی رکوردها انجام میگیره و تغییرات مجدداً در دیتاست فیل (Fill) میشود
در سیستم سرچ پروژه هم از همین روش استفاده شده است
حالا سئوالم اینجاست من چطور میتونم هر 4 عمل اصلی رو از طریق خود دیتاست و در داخل رکوردهای موجود در دیتاست انجام بدم و دست آخر تغییرات انجام پذیرفته رو از طریق متد update شئی dataadapter تو دیتابیس ذخیره کنم؟
ممنون میشم تغییرات رو در داخل پروژه پیوست انجام دهید تا به درک مطلب کمکم کنه
ممنون و متشکر از لطف شما عزیزان
یاعلی

با سلام به دوست عزیز
از متن سوالتون اینطور متوجه شدم که می خواهید ابتدا به صورت آفلاین رکورد ها رو تو دیتا ست تغییر بدید ویعد یکدفعه همه رو بروز کنید از این روش می تونید استفاده کنید
برای افزودن یک رکورد به دیتاست :


ds.Tables("Tbl1").rows.Add(Ds.Tables("Tbl1").NewRows)

حالا می تونید داخل ردیف جدیدی که ایجاد کردید رو پر کنید


Ds.Tables("Tbl1").Rows(Ds.Tables("Tbl1").Rows.Count-1).Item("Item1")=Value1
Ds.Tables("Tbl1").Rows(Ds.Tables("Tbl1").Rows.Count-1).Item("Item2")=Value2
Ds.Tables("Tbl1").Rows(Ds.Tables("Tbl1").Rows.Count-1).Item("Item3")=Value3
Ds.Tables("Tbl1").Rows(Ds.Tables("Tbl1").Rows.Count-1).Item("Item4")=Value4
Ds.Tables("Tbl1").Rows(Ds.Tables("Tbl1").Rows.Count-1).Item("Item5")=Value5

برای حذف یک رکورد از جدول در دیتاست هم از روش زیر استفاده می کنیم


ds.Tables("Tbl1").rows.(value).Delete()

و در آخر هم برای بروز رسانی از CommandBuilder استفاده می کنی


Dim CMB as New Oledb.OledbCommandBuilder
CMB.DataAdaptor=DA
Da.InsertCommand=CMB.GetInsertCommand
Da.DeleteCommand=CMB.GetDeleteCommand
Da.UpdateCommand=CMB.GetupdateCommand

Da.Update(ds,"Tbl1")


اگه مشکل دیگه هم داشتی در حد توانم در خدمتم

[ali190]

سلام
ممنون از پاسختون
میشه ازتون خواهش کنم تغییرات رو درپروژه تعمال بفرمائید؟
ممنونم