View Full Version : آپدیت کردن دیتابیس توسط دیتاگرید ویو
iman zadehnoori
دوشنبه 10 مرداد 1390, 13:45 عصر
سلام دوستان من مشکلم همونه که حدس زدید
میخوام وقتی دیتاگریدویو رو کاربر تغییر داد دیتا بیسم هم تغییر داده بشه.
با تشکر
minaforotan
دوشنبه 10 مرداد 1390, 13:57 عصر
بهتره در رویداد DataGridView1_KeyDown اول این شرط رو بزاری که اگه کلید enter زده شد اونوقت سطرت رو ذخیره کنه
If e.KeyCode = Keys.Enter Then
کد های مربوط به ذخیره سازی
Behzad_MCP
دوشنبه 10 مرداد 1390, 14:01 عصر
خوب باید کدتو تو یه رویدادی مثل enter دیتا گرید بنویسی اینجوری وقتی سطر جاری رو رد کردی و رفتی تو سطر بعدی کدت عمل میکنه و اون سطر رو ذخیره میکنه
به نظر من اگه تو CellValueChanged بنویسه بهتر عمل کنه
iman zadehnoori
دوشنبه 10 مرداد 1390, 17:19 عصر
بهتره در رویداد DataGridView1_KeyDown اول این شرط رو بزاری که اگه کلید enter زده شد اونوقت سطرت رو ذخیره کنه
If e.KeyCode = Keys.Enter Then
کد های مربوط به ذخیره سازی
خب من همون کدهای مربوط به ذخیره سازی رو میخوام:متعجب:
iman zadehnoori
سه شنبه 11 مرداد 1390, 00:22 صبح
یعنی واقعا کسی تا حالا به این مشکل بر نخورده؟:گریه::ناراحت:
minaforotan
سه شنبه 11 مرداد 1390, 02: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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.