PDA

View Full Version : عدم Update دیتابیس



Hossein Bazyan
پنج شنبه 09 اسفند 1386, 11:33 صبح
سلام
من برای ویرایش رکورد از کدهای زیر استفاده میکنم اما اطلاعات در جدول ثبت نمیشه


If m_dtContacts.Rows.Count <> 0 Then
MyDataTable.Rows(rPosition)("Achternaam") = txtPassword.Text
MyDataTable.Rows(rPosition)("Adres") = txtAccess.Text
MyDataAdapter.Update(MyDataTable)
EndIf

دلیلش را نمیدانم دوستانی که صاحب نظر هستند لطفا راهنمایی کنند.

choobin84
پنج شنبه 09 اسفند 1386, 13:15 عصر
داداشم این که نشد.
کد رو رو فقط اون تیکه ایش رو گذاشتی که بدرد نمی خوره.

Hossein Bazyan
پنج شنبه 09 اسفند 1386, 13:51 عصر
داداشم این که نشد.
کد رو رو فقط اون تیکه ایش رو گذاشتی که بدرد نمی خوره.
سلام
مرسی از توجهتون
چیش رو میخوای بذارم ؟

saeed_rezaei
پنج شنبه 09 اسفند 1386, 18:53 عصر
سلام.
ببین دوست من، کدی که شما نوشتید، درست نیست. حالا نمی دونم همین کد رو استفاده می کنید یا نه اما:

یک دیتاست، شامل ستی کامل از اطلاعات هستش. قسمتی از دیتاست دیتاتیبل هست که شما اطلاعات رو اونجا می نویسید.
بعد از انجام تغییرات در دیتاست، می شه دوباره این تغییرات رو در بانک منعکس نمود. این تغییرات شامل سه حالت هست. حذف، اضافه و ویرایش. برای انجام عملیات فوق شما بایستی براش command بنویسید.
برای مثال کد زیر، نحوه به روز شدن جدول1 از دیتاست رو نشون می ده.



dim ds as new dataset
dim da as new sqldataadapter

' your code for change dataset...

dim cb as new sqlcommandbuilder (da)

da.insertcommand=cb.getinsertcommand

da.updatecommand=cb.getupdatecommand

da.deletecommand= cb.getdeletecommand

da.update (ds, "TABLE1" )

choobin84
پنج شنبه 09 اسفند 1386, 22:38 عصر
سلام
مرسی از توجهتون
چیش رو میخوای بذارم ؟
دوست من ، همون طور که در پست قبلی گفته شد شما باید Command هایی که برای کار با بانک زو استفاده کرده اید بگذارید.
در ضمن اگر خطایی چیزی هم میده در پیدا کردن مشکل و حل اون بسیار کمک می کنه

Hossein Bazyan
جمعه 10 اسفند 1386, 11:06 صبح
سلام
ممنون از توجه همه دوستان
من قبلا متغییرها را تعریف و dataAdapter و dataCommand و غیره را تعریف کرده ام و این کد را فقط در کلید Update نوشته بودم اما عمل نمیکرد. کد زیر را نوشتم درست شد .


If MyDataTable.Rows.Count <> 0 Then
Dim sSql AsString = "UPDATE Paramfile SET Achternaam='" & txtNaam.Text
sSql += "', Adres='" & txtAccess.Text & "' WHERE id=" & txtAchterNaam.Text
MyDataAdapter = New OleDb.OleDbDataAdapter(sSql, m_cnADONetConnection)
MyCommandBuilder = New OleDb.OleDbCommandBuilder(MyDataAdapter)
MyDataAdapter.Fill(MyDataTable)
EndIf