حذف یا ویرایش یک رکورد از دیتا گرید

[arsalansalar]

برای حذف یا ویرایش یک رکورد از دیتا گرید از چه کدی استفاده می کنیم؟

[Evil 69]

سلام شما برای حذف کردن که میتونی هم از دیتا ادپتور استفاده کنی و هم از دیتا بیندینگ
با روش اول میتونی از متد delete استفاده کنی و یا یک کوئری درست کنی که با کرفتن یک اندیکس رکوردی رو که اون شماره رو داره پاک کنی و اگر بخای از روش دوم استفاده کنی میتونی از متد deletecurent استفاده کنی و حالا برای ویرایش ، هم میتونی از اداپتور استفاده کنی و هم میتونی به صورت مستقیم روی دیتا گرید اعمال کنی . در روش اول میتونی یک کوئری بگیری و بعد توی اون کوئری دستوری بنویسی که رکورد مورده نظر رو ویرایش کنه ( برای ایجاد کوئری این قدر ویزارد داره که فکر نمی کننم به اموزش احتیاجی باشه ) البته در روش دوم یعنی اعمال تغییرات به طور مستقیم در دیتا گرید باعث نوشتن یک سری کد میشه چون لازمه که پایگاه رو دستی به روز کنی



البته تمام این کارها ( به غیر از کرفتن کوئری ) در صورتی انجام میشه که شما توی db یک فیلد کلید داشته باشی

[arsalansalar]

دوست عزیز من از کد زیر برای آوردن اطلاعات استفاده می کنم.
لطفا بگویید چگونه این کد را دستکاری کنم تا زمانی که فرد روی یک رکورد ایستاد با زدن یک دکمه آن را حذف کند.
کد من:


Dim strSql, strCon, se As String
Dim selectSql As String
Dim con As OleDbConnection
strCon = ("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\b.mdb")
con = New OleDbConnection(strCon)
con.Open()

Dim da As New OleDbDataAdapter("select * from s where nu like '%" + TextBox1.Text + "%'", con)

Dim ds As New DataSet
da.Fill(ds, "s")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "s"
' DataGridView1.Visible = True

[arsalansalar]

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

[yavari]

سلام


Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
Try
If e.KeyCode = Keys.Delete Then
If MsgBox("آیا مایل به حذف این نماینده می باشید ؟", MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Question, "حذف") = MsgBoxResult.Yes Then
da.Delete(DataGridView1.CurrentRow.Cells("CodeDataGridViewTextBoxColumn").Value)
End If
End If
ComboBox1_SelectedIndexChanged(sender, e)

Catch ex As Exception

End Try
End Sub


Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Try
da.Update(dt1)
da.Update(dt2)
da.Update(dt3)
Catch ex As Exception
End Try
btnSave.Enabled = False
End Sub

موفق باشید

[حامد فراست]

ComboBox1_SelectedIndexChanged(sender, e)
سلام
این قسمت کد که بالا نوشتم چکار میکنه دوست عزیز؟؟ من سر در نیاوردم!!

[morteza_261]

ComboBox1_SelectedIndexChanged(sender, e)
سلام
این قسمت کد که بالا نوشتم چکار میکنه دوست عزیز؟؟ من سر در نیاوردم!!

سلام
این قسمت کدی که در رویداد ComboBox1_SelectedIndexChanged نوشته شده اجرا میکنه
که البته کدش اینجا نیست....

[yavari]

سلام

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

[mehdiDER_5]

با سلام من مبتدی هستم من این قسمت از کد را متوجه نمیشوم میشود توضیح بدهی
If e.KeyCode = Keys.Delete Then
و همچنین برای من کد اجرا نمیشوددیلیت جزء رویدادهای دیتا آداپتور نیست و دیلیت کامند میآید
من عکس را اینجا میگذارم
د

[yavari]

سلام

عزیزم این کد داره چک میکنه ببینه کلیدی که زده شده کلید Delete هست یا نه ؟
متاسفانه الان عجله دارم :خجالت:، سعی میکنم فردا کد را کامل بذارم.

موفق باشید .

[VB.NET2005]

آقای یاوری اگه میشه کد کاملو بزارید

[VB.NET2005]

دوست عزیز خواهشن کد کاملو بزارید .

با تشکر از شما

[yavari]

سلام

واقعا شرمنده ! :خجالت:

تو این کدی که گذاشتم از Typed Dataset استفاده شده .

موفق باشید.

[arsalansalar]

دوست عزیز می شود کل پروژه را آپلود کنی؟
اینطوری آدم سر در نمی آورد چه اتفاقی افتاده است؟

[yavari]

دوست عزیز می شود کل پروژه را آپلود کنی؟
اینطوری آدم سر در نمی آورد چه اتفاقی افتاده است؟

سلام

شرمنده !!! :خجالت:
سعی میکنم یه سمپل کوچولو بنویسم براتون !
البته بازم میگم که تو این کد از Typed dataset استفاده شده .

موفق باشید .