ذخیره دیتا گرید در دیتا بیس

[ho_612]

با اینکه این سوال به نظر تکراریه ولی هرچی سرچ کردم جواب درستی رو که کاربردی باشده پیدا نکردم.
البته این سوال برای دیتا بیس sql هست. برای اکسس مشکلی تیست. کدش رو دارم. ولی هرکاری می کنم برای sql جواب نمیده. دوستان میشه کمک کنید....

[ho_612]

از این 24 نفری که متن کامل رو نگاه کردن و از مابقی اعضایی که تیتر رو دیدند کسی تا به حال این کار رو انجام نداده؟؟؟؟

[ho_612]

این کد رو دارم ولی جواب نمیده!!!
کسی میدونه مشکل کجاست؟؟
یا راه حل دیگه ای داره؟

[shadi khanum]

کدی که نذاشتین ولی اگه سوالتون جواب داده نشده چون سوالتون هم کلی هم مشابه زیاد داره .. بگین مشکلتون کجاست تا دوستان کمک کنن

[ho_612]

ببخشید. یادم رفته بود کد رو بگذارم:
Try
da = New SqlDataAdapter("select * from kala", con)
Dim sb AsNew SqlCommandBuilder(da)
da.Update(ds, "kala")
ds.Clear()
da.Fill(ds, "kala")
DataGridView1.DataSource = ds.Tables("kala")
MsgBox(" ثبت شد")
Catch ex As Exception
MsgBox(" ثبت نشد")
EndTry

[shadi khanum]

منظورت از جواب نمیده چیه؟ یعنی تو گرید نشون نمیده چیزی یا مشکل چیز دیگه است؟

[ho_612]

نه. تغییرات ذخیره نمیشه!!!!!
مشکل از کجاست؟با بانک اکسس کار میکنه ولی با sql مشکل دارم...

[ho_612]

از کد زیر استفاده کردم :
Try
Dim cnn AsNew SqlConnection(StrCon)
Da.Update(dt)
cnn.Close()
MsgBox("Done !", MsgBoxStyle.Information)
lodadata()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Exclamation)
EndTry
EndSub


ولی مشکل زیر رو داره :
68132

[asif1358]

سلام
عزیزم خود پیام گویا است؛ جدول تون اصلا کلید اصلی ندارد!!

[ho_612]

سلام
عزیزم خود پیام گویا است؛ جدول تون اصلا کلید اصلی ندارد!!

مرسی . درست شد

[ho_612]

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


Da.SelectCommand.CommandText = "SELECT * FROM Forosh"
Da.Fill(Dt)
Dt.TableName = "Forosh"
DataGridView.DataSource = Dt.DefaultView

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

[ho_612]

من این کد رو امتحان کردم ولی جواب نداد:


نمایش اطلاعات در دیتا گرید 1 :

PrivateSub lodadata1()
Dt.Clear()
Da = New
SqlDataAdapter("Select * from kala", StrCon)
cmdb = New SqlCommandBuilder(Da)
Da.Fill(Dt)
DataGridView1.DataSource = Dt
End Sub


نمایش اطلاعات در دیتا گرید 2 :


PrivateSub lodadata2()
Dt2.Clear()
Da2 = New SqlDataAdapter( "Select * from kala2",StrCon)
cmdb2 = NewSqlCommandBuilder(Da2)
Da2.Fill(Dt2)
DataGridView2.DataSource = Dt2
End Sub


ذخیره تغییرات دیتا گرید 1 در تیبل دیتا گرید 2:


Private Sub SaveEdite()
Try
Da2.Update(Dt
CON2.Close()
MsgBox("Done!", MsgBoxStyle.Information)
Catch
ex As Exception
MsgBox(Err.Description,MsgBoxStyle.Exclamation)
End Try
End Sub

خطای زیر نمایش داده می شود :
68201

[ho_612]

کسی راه حلی نداره؟!

[winsent]

با اینکه این سوال به نظر تکراریه ولی هرچی سرچ کردم جواب درستی رو که کاربردی باشده پیدا نکردم.
البته این سوال برای دیتا بیس sql هست. برای اکسس مشکلی تیست. کدش رو دارم. ولی هرکاری می کنم برای sql جواب نمیده. دوستان میشه کمک کنید....

سلام
میشه لطف کنید و کد اکسس رو بذارید
با سپس