برای حذف یا ویرایش یک رکورد از دیتا گرید از چه کدی استفاده می کنیم؟
برای حذف یا ویرایش یک رکورد از دیتا گرید از چه کدی استفاده می کنیم؟
سلام شما برای حذف کردن که میتونی هم از دیتا ادپتور استفاده کنی و هم از دیتا بیندینگ
با روش اول میتونی از متد delete استفاده کنی و یا یک کوئری درست کنی که با کرفتن یک اندیکس رکوردی رو که اون شماره رو داره پاک کنی و اگر بخای از روش دوم استفاده کنی میتونی از متد deletecurent استفاده کنی و حالا برای ویرایش ، هم میتونی از اداپتور استفاده کنی و هم میتونی به صورت مستقیم روی دیتا گرید اعمال کنی . در روش اول میتونی یک کوئری بگیری و بعد توی اون کوئری دستوری بنویسی که رکورد مورده نظر رو ویرایش کنه ( برای ایجاد کوئری این قدر ویزارد داره که فکر نمی کننم به اموزش احتیاجی باشه ) البته در روش دوم یعنی اعمال تغییرات به طور مستقیم در دیتا گرید باعث نوشتن یک سری کد میشه چون لازمه که پایگاه رو دستی به روز کنی
البته تمام این کارها ( به غیر از کرفتن کوئری ) در صورتی انجام میشه که شما توی db یک فیلد کلید داشته باشی
دوست عزیز من از کد زیر برای آوردن اطلاعات استفاده می کنم.
لطفا بگویید چگونه این کد را دستکاری کنم تا زمانی که فرد روی یک رکورد ایستاد با زدن یک دکمه آن را حذف کند.
کد من:
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
من به این کد خیلی نیاز دارم.
اگر کسی می تواند نحوه انجام این کار را به گوید
سلام
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("CodeData GridViewTextBoxColumn").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)
سلام
این قسمت کد که بالا نوشتم چکار میکنه دوست عزیز؟؟ من سر در نیاوردم!!
سلامنوشته شده توسط حامد فراست
این قسمت کدی که در رویداد ComboBox1_SelectedIndexChanged نوشته شده اجرا میکنه
که البته کدش اینجا نیست....
سلام
شرمنده ، اینقدر با عجله یه قسمت از کد رو کپی کردم که فراموش کردم قسمتای اضافه رو پاک کنم .
این قسمت از کد رو نادیده بگیرید .
شرمنده
با سلام من مبتدی هستم من این قسمت از کد را متوجه نمیشوم میشود توضیح بدهی
If e.KeyCode = Keys.Delete Then
و همچنین برای من کد اجرا نمیشوددیلیت جزء رویدادهای دیتا آداپتور نیست و دیلیت کامند میآید
من عکس را اینجا میگذارم
د
سلام
عزیزم این کد داره چک میکنه ببینه کلیدی که زده شده کلید Delete هست یا نه ؟
متاسفانه الان عجله دارم، سعی میکنم فردا کد را کامل بذارم.
موفق باشید .
آقای یاوری اگه میشه کد کاملو بزارید
دوست عزیز خواهشن کد کاملو بزارید .
با تشکر از شما
سلام
واقعا شرمنده !
تو این کدی که گذاشتم از Typed Dataset استفاده شده .
موفق باشید.
دوست عزیز می شود کل پروژه را آپلود کنی؟
اینطوری آدم سر در نمی آورد چه اتفاقی افتاده است؟
سلام
شرمنده !!!
سعی میکنم یه سمپل کوچولو بنویسم براتون !
البته بازم میگم که تو این کد از Typed dataset استفاده شده .
موفق باشید .
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول