PDA

View Full Version : updata database



ali_t264
سه شنبه 21 شهریور 1385, 07:28 صبح
سلام
من یه مشکل با update کردن دیتا بیس پیدا کردم
تو یه جایی خوندم که باید برای آپدیت کردن دیتا بیس این کد رو ینویسی:
me.sqldataadapter1.update(me.dataset1.tablenameو ی متاسفانه errorمی گیره و کار نمی کنه اگه ممکنه دوستان لطف کنند و بگن که این کد رو چه جوری باید اصلاح کرد؟
من فکر می کنم یه کد دیگه باید به این اضافه کرد و نوشتن این کد برای دکمه save کافی نیست اما چی؟:متفکر:
ضمناً من از sql2000و .net 2003استفاده می کنم

اَرژنگ
سه شنبه 21 شهریور 1385, 07:45 صبح
http://barnamenevis.org/forum/showthread.php?t=50207

miassus10
سه شنبه 21 شهریور 1385, 10:45 صبح
آقا منم همین مشکلو داشتم که تو پست "مشکل update کردن dataset نوشتم کسی جواب نداد.

zarrin_306
سه شنبه 21 شهریور 1385, 11:29 صبح
آقا منم همین مشکلو داشتم که تو پست "مشکل update کردن dataset نوشتم کسی جواب نداد.
شما هم مثل این دوستمون از Access استفاده میکنید ویا از sqlserver ?

Hadi-123456
یک شنبه 02 مهر 1385, 04:48 صبح
فکر کنم اگر از UpdateBatch بجای Update استفاده کنید مشکل حل بشه

art2000ir
یک شنبه 02 مهر 1385, 09:16 صبح
به نظرم باید شما در دیتا بیس یک فیلد دارای primary key داشته باشید و حتما این فیلد را همراه باقی اطلاعات از بانک اطلاعاتی select کنید

taheri-ali
جمعه 07 مهر 1385, 18:48 عصر
آقا این مشکل حل نمی شه چرا ؟ primary key هم دارم اصلاً با دیتا بیسش آپلودش می کنم خواهشً کمکم کنید vb.net 2003وsql2000

mostafa_leman
جمعه 07 مهر 1385, 19:44 عصر
این تابع Update کردن :


Public Sub UpdateDataSet(ByVal inDS As DataSet)
If inDS Is Nothing Then
Exit Sub
End If
inDS.EnforceConstraints = False
Me.DataAdapter.Update(inDS, "TableName")
End Sub

سپس جای که میخوای Update کنی کد زیر رو بنویس :


UpdateDataSet(DataSet.GetChanges())

eyelash
شنبه 08 مهر 1385, 00:37 صبح
من با دستورات زیر جدولم را Update کردم:


Dim connectionName As New SqlConnection("server=(local);DataBase=DataBaseName;integrated security=SSPI")
Dim strSelect As String = "select * from Table"
Dim ds As New DataSet
Dim da As New SqlDataAdapter
Dim cmdSelect As New SqlCommand(strSelect, connectionName)
Dim strUpdate As String = "update TableName set FildName =Value where Fild =value"
Dim cmdUpdate As New SqlCommand(strUpdate, ConnectionName)
da.SelectCommand = cmdSelect
da.UpdateCommand = cmdUpdate
ConnectionName.Open()
da.Fill(ds, "dtTableNameTable")
cmdUpdate.ExecuteNonQuery()
ConnectiomnName.Close()

البته لازم است که هدر زیر را هم به برنامه اضافه کرد :


Imports System.Data.SqlClient

موفق باشید.

zarrin_306
شنبه 08 مهر 1385, 22:14 عصر
البته منم آخرین و به جرات میتونم بگم که دقیق ترین کدی رو که برای ذخیره حذف ویرایش و...
رکورد را در sql و هم در ACCESS پیدا کردم ولی چون ابن تاپیک گسترش نیافت گفتم حتما
راهش رو این دوستمون پیدا کرده
به هر حال اگر دوستان نیاز داشتن میتونن بگن وبا کمال میل آنرا در این تاپیک قرار میدهم

با آرزوی بهترین روزها و قبولی عبادات شما

taheri-ali
یک شنبه 09 مهر 1385, 02:58 صبح
این تابع Update کردن :


Public Sub UpdateDataSet(ByVal inDS As DataSet)
If inDS Is Nothing Then
Exit Sub
End If
inDS.EnforceConstraints = False
Me.DataAdapter.Update(inDS, "TableName")
End Sub

سپس جای که میخوای Update کنی کد زیر رو بنویس :


UpdateDataSet(DataSet.GetChanges())

آقا مصطفی ممنون از راهنمایی شما ولی یه مشکل هست
دیتا ست من آپدیت می شه اما اطلاعات توی دیتا بیس آپدیت نمی شن
وقتی که چند بار سعی می کنم که آپدیت کنم پیغامی رو که attachکردم می ده

Sharif Lotfi
سه شنبه 23 آبان 1385, 14:16 عصر
البته منم آخرین و به جرات میتونم بگم که دقیق ترین کدی رو که برای ذخیره حذف ویرایش و...
رکورد را در sql و هم در ACCESS پیدا کردم ولی چون ابن تاپیک گسترش نیافت گفتم حتما
راهش رو این دوستمون پیدا کرده
به هر حال اگر دوستان نیاز داشتن میتونن بگن وبا کمال میل آنرا در این تاپیک قرار میدهم

با آرزوی بهترین روزها و قبولی عبادات شما
ممنون میشم اگه کدتون رو بذارید توی این تاپیک . خیلی بهش نیاز دارم

odiseh
چهارشنبه 24 آبان 1385, 15:03 عصر
من با دستورات زیر جدولم را Update کردم:


Dim connectionName As New SqlConnection("server=(local);DataBase=DataBaseName;integrated security=SSPI")
Dim strSelect As String = "select * from Table"
Dim ds As New DataSet
Dim da As New SqlDataAdapter
Dim cmdSelect As New SqlCommand(strSelect, connectionName)
Dim strUpdate As String = "update TableName set FildName =Value where Fild =value"
Dim cmdUpdate As New SqlCommand(strUpdate, ConnectionName)
da.SelectCommand = cmdSelect
da.UpdateCommand = cmdUpdate
ConnectionName.Open()
da.Fill(ds, "dtTableNameTable")
cmdUpdate.ExecuteNonQuery()
ConnectiomnName.Close()

البته لازم است که هدر زیر را هم به برنامه اضافه کرد :


Imports System.Data.SqlClient

موفق باشید.


سلام

چرا باید حتما از sqldataadaptor لستفاده بکنی وقتی که با sqlcommand کار ت انجام میشه؟