PDA

View Full Version : آپدیت کردن دیتابیس توسط دیتاگرید ویو



iman zadehnoori
دوشنبه 10 مرداد 1390, 12:45 عصر
سلام دوستان من مشکلم همونه که حدس زدید
میخوام وقتی دیتاگریدویو رو کاربر تغییر داد دیتا بیسم هم تغییر داده بشه.

با تشکر

minaforotan
دوشنبه 10 مرداد 1390, 12:57 عصر
بهتره در رویداد DataGridView1_KeyDown اول این شرط رو بزاری که اگه کلید enter زده شد اونوقت سطرت رو ذخیره کنه

If e.KeyCode = Keys.Enter Then

کد های مربوط به ذخیره سازی

Behzad_MCP
دوشنبه 10 مرداد 1390, 13:01 عصر
خوب باید کدتو تو یه رویدادی مثل enter دیتا گرید بنویسی اینجوری وقتی سطر جاری رو رد کردی و رفتی تو سطر بعدی کدت عمل میکنه و اون سطر رو ذخیره میکنه
به نظر من اگه تو CellValueChanged بنویسه بهتر عمل کنه

iman zadehnoori
دوشنبه 10 مرداد 1390, 16:19 عصر
بهتره در رویداد DataGridView1_KeyDown اول این شرط رو بزاری که اگه کلید enter زده شد اونوقت سطرت رو ذخیره کنه

If e.KeyCode = Keys.Enter Then

کد های مربوط به ذخیره سازی
خب من همون کدهای مربوط به ذخیره سازی رو میخوام:متعجب:

iman zadehnoori
دوشنبه 10 مرداد 1390, 23:22 عصر
یعنی واقعا کسی تا حالا به این مشکل بر نخورده؟:گریه::ناراحت:

minaforotan
سه شنبه 11 مرداد 1390, 01:30 صبح
اول کد زیر تا وقتی اطلاعاتت تو سلول درج شد وارد تکست بشه

Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit

Try
txt_data.Text = DataGridView1.CurrentRow.Cells(0).Value
txtid_chek.Text = DataGridView1.CurrentRow.Cells(3).Value
txtid_hesab.Text = DataGridView1.CurrentRow.Cells(4).Value
txtmablagh.Text = DataGridView1.CurrentRow.Cells(6).Value
Catch
End Try


بعد هم کد زیر تا وقتی سطر جاری رد شد اطلاعات تکست تو بانک ذخیره بشه البته میشه به جای تکسا هم مستقیم خود سلول رو درج کنی اما من با تکس راحتترم



Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown

If e.KeyCode = Keys.Enter Then

Try
+ ")"InsertCommand.CommandText = "insert into chek(data_sodor,id_chek,id_hesab,mablagh) values('" + txt_data.Text + "' ,'" + txtid_chek.Text + "','" + txtid_hesab.Text + "'," + txtmablagh.Text
ad.InsertCommand.Connection.Open()
ad.InsertCommand.ExecuteNonQuery()
ad.InsertCommand.Connection.Close()
Catch
End Try
MsgBox("اطلاعات ذخیره شد.", MsgBoxStyle.OkOnly + MsgBoxStyle.Information + 0, "ذخیره ی اطلاعات")

DataGridView1.AllowUserToAddRows = True

end if
End Sub