المشاركات : 109
المواضيع 41
الإنتساب : Oct 2017
السمعة :
0
الشكر: 51
تم شكره 52 مرات في 31 مشاركات
02-07-20, 02:22 PM
(آخر تعديل لهذه المشاركة : 02-07-20, 02:24 PM {2} بواسطة ahmedbezia.)
السلام عليكم
ارجو الاهتمام با هد السؤال والاجابة
قاعدة البينات اكسس
اريد كود التعديل في الدتا قلايد فيو لعدة سجلات في نفس الوقت حسب id لكل سجل اريد هدا لعملية خصم من المخزون مثلا بعت المنتج رقم 1 عدد3 اخصمهم من المخزون حسب id المنتج اللدي اخترته
المشاركات : 109
المواضيع 41
الإنتساب : Oct 2017
السمعة :
0
الشكر: 51
تم شكره 52 مرات في 31 مشاركات
02-07-20, 03:42 PM
المشاركات : 164
المواضيع 0
الإنتساب : Sep 2015
الشكر: 282
تم شكره 1089 مرات في 225 مشاركات
(02-07-20, 02:22 PM)ahmedbezia كتب : السلام عليكم
ارجو الاهتمام با هد السؤال والاجابة
قاعدة البينات اكسس
اريد كود التعديل في الدتا قلايد فيو لعدة سجلات في نفس الوقت حسب id لكل سجل اريد هدا لعملية خصم من المخزون مثلا بعت المنتج رقم 1 عدد3 اخصمهم من المخزون حسب id المنتج اللدي اخترته
كود :
con.Open() 'Open connection to database
'Looping throung dgv
For i As Integer = 0 To dgvEmpDetail.Rows.Count - 1
If IsDBNull(dgvEmpDetail.Rows(i).Cells("Emp_ID").Value) Then Exit For
Dim cmd As New SqlCommand("Update EmployeeDetail Set [Salary] = ?, [Experience]=?, [Skills]=? WHERE [Emp_ID] =?", con)
With cmd.Parameters
.AddWithValue("@Salary", dgvEmpDetail.Rows(i).Cells("Salary").Value )
.AddWithValue("@Experience", dgvEmpDetail.Rows(i).Cells("Experience").Value )
.AddWithValue("@Skills", dgvEmpDetail.Rows(i).Cells("Skills").Value )
.AddWithValue("@Emp_ID", dgvEmpDetail.Rows(i).Cells("Emp_ID").Value )
End With
cmd.ExecuteNonQuery()
Next i
con.Close() 'Close connection with Database
المشاركات : 109
المواضيع 41
الإنتساب : Oct 2017
السمعة :
0
الشكر: 51
تم شكره 52 مرات في 31 مشاركات
(02-07-20, 04:36 PM)DR.YASER كتب : (02-07-20, 02:22 PM)ahmedbezia كتب : السلام عليكم
ارجو الاهتمام با هد السؤال والاجابة
قاعدة البينات اكسس
اريد كود التعديل في الدتا قلايد فيو لعدة سجلات في نفس الوقت حسب id لكل سجل اريد هدا لعملية خصم من المخزون مثلا بعت المنتج رقم 1 عدد3 اخصمهم من المخزون حسب id المنتج اللدي اخترته
كود :
con.Open() 'Open connection to database
'Looping throung dgv
For i As Integer = 0 To dgvEmpDetail.Rows.Count - 1
If IsDBNull(dgvEmpDetail.Rows(i).Cells("Emp_ID").Value) Then Exit For
Dim cmd As New SqlCommand("Update EmployeeDetail Set [Salary] = ?, [Experience]=?, [Skills]=? WHERE [Emp_ID] =?", con)
With cmd.Parameters
.AddWithValue("@Salary", dgvEmpDetail.Rows(i).Cells("Salary").Value )
.AddWithValue("@Experience", dgvEmpDetail.Rows(i).Cells("Experience").Value )
.AddWithValue("@Skills", dgvEmpDetail.Rows(i).Cells("Skills").Value )
.AddWithValue("@Emp_ID", dgvEmpDetail.Rows(i).Cells("Emp_ID").Value )
End With
cmd.ExecuteNonQuery()
Next i
con.Close()
يارك الله فيك اخي لاكن هناك خطئ باالجملة ممكن مثال واكون ممنون
المشاركات : 164
المواضيع 0
الإنتساب : Sep 2015
الشكر: 282
تم شكره 1089 مرات في 225 مشاركات
02-07-20, 07:01 PM
(آخر تعديل لهذه المشاركة : 02-07-20, 07:08 PM {2} بواسطة DR.YASER.)
(02-07-20, 06:17 PM)ahmedbezia كتب : (02-07-20, 04:36 PM)DR.YASER كتب : (02-07-20, 02:22 PM)ahmedbezia كتب : السلام عليكم
ارجو الاهتمام با هد السؤال والاجابة
قاعدة البينات اكسس
اريد كود التعديل في الدتا قلايد فيو لعدة سجلات في نفس الوقت حسب id لكل سجل اريد هدا لعملية خصم من المخزون مثلا بعت المنتج رقم 1 عدد3 اخصمهم من المخزون حسب id المنتج اللدي اخترته
كود :
con.Open() 'Open connection to database
'Looping throung dgv
For i As Integer = 0 To dgvEmpDetail.Rows.Count - 1
If IsDBNull(dgvEmpDetail.Rows(i).Cells("Emp_ID").Value) Then Exit For
Dim cmd As New SqlCommand("Update EmployeeDetail Set [Salary] = ?, [Experience]=?, [Skills]=? WHERE [Emp_ID] =?", con)
With cmd.Parameters
.AddWithValue("@Salary", dgvEmpDetail.Rows(i).Cells("Salary").Value )
.AddWithValue("@Experience", dgvEmpDetail.Rows(i).Cells("Experience").Value )
.AddWithValue("@Skills", dgvEmpDetail.Rows(i).Cells("Skills").Value )
.AddWithValue("@Emp_ID", dgvEmpDetail.Rows(i).Cells("Emp_ID").Value )
End With
cmd.ExecuteNonQuery()
Next i
con.Close()
يارك الله فيك اخي لاكن هناك خطئ باالجملة ممكن مثال واكون ممنون
تفضل ... هذا مثال رائع لحفظ سجلات من الدات جريد و يعمل على SQLSERVER DB .. و ان رغبت فى مشروع آخر لأكسيس أرفق لك
تحديث السجلات من داتا جريد
(02-07-20, 06:17 PM)ahmedbezia كتب : (02-07-20, 04:36 PM)DR.YASER كتب : (02-07-20, 02:22 PM)ahmedbezia كتب : السلام عليكم
ارجو الاهتمام با هد السؤال والاجابة
قاعدة البينات اكسس
اريد كود التعديل في الدتا قلايد فيو لعدة سجلات في نفس الوقت حسب id لكل سجل اريد هدا لعملية خصم من المخزون مثلا بعت المنتج رقم 1 عدد3 اخصمهم من المخزون حسب id المنتج اللدي اخترته
كود :
con.Open() 'Open connection to database
'Looping throung dgv
For i As Integer = 0 To dgvEmpDetail.Rows.Count - 1
If IsDBNull(dgvEmpDetail.Rows(i).Cells("Emp_ID").Value) Then Exit For
Dim cmd As New SqlCommand("Update EmployeeDetail Set [Salary] = ?, [Experience]=?, [Skills]=? WHERE [Emp_ID] =?", con)
With cmd.Parameters
.AddWithValue("@Salary", dgvEmpDetail.Rows(i).Cells("Salary").Value )
.AddWithValue("@Experience", dgvEmpDetail.Rows(i).Cells("Experience").Value )
.AddWithValue("@Skills", dgvEmpDetail.Rows(i).Cells("Skills").Value )
.AddWithValue("@Emp_ID", dgvEmpDetail.Rows(i).Cells("Emp_ID").Value )
End With
cmd.ExecuteNonQuery()
Next i
con.Close()
يارك الله فيك اخي لاكن هناك خطئ باالجملة ممكن مثال واكون ممنون
و هذا فيديو رائع يشرح تفاصيل هامة :
المشاركات : 109
المواضيع 41
الإنتساب : Oct 2017
السمعة :
0
الشكر: 51
تم شكره 52 مرات في 31 مشاركات
(02-07-20, 07:01 PM)DR.YASER كتب : (02-07-20, 06:17 PM)ahmedbezia كتب : (02-07-20, 04:36 PM)DR.YASER كتب : (02-07-20, 02:22 PM)ahmedbezia كتب : السلام عليكم
ارجو الاهتمام با هد السؤال والاجابة
قاعدة البينات اكسس
اريد كود التعديل في الدتا قلايد فيو لعدة سجلات في نفس الوقت حسب id لكل سجل اريد هدا لعملية خصم من المخزون مثلا بعت المنتج
رقم 1 عدد3 اخصمهم من المخزون حسب id المنتج اللدي اخترته
كود :
con.Open() 'Open connection to database
'Looping throung dgv
For i As Integer = 0 To dgvEmpDetail.Rows.Count - 1
If IsDBNull(dgvEmpDetail.Rows(i).Cells("Emp_ID").Value) Then Exit For
Dim cmd As New SqlCommand("Update EmployeeDetail Set [Salary] = ?, [Experience]=?, [Skills]=? WHERE [Emp_ID] =?", con)
With cmd.Parameters
.AddWithValue("@Salary", dgvEmpDetail.Rows(i).Cells("Salary").Value )
.AddWithValue("@Experience", dgvEmpDetail.Rows(i).Cells("Experience").Value )
.AddWithValue("@Skills", dgvEmpDetail.Rows(i).Cells("Skills").Value )
.AddWithValue("@Emp_ID", dgvEmpDetail.Rows(i).Cells("Emp_ID").Value )
End With
cmd.ExecuteNonQuery()
Next i
con.Close()
يارك الله فيك اخي لاكن هناك خطئ باالجملة ممكن مثال واكون ممنون
تفضل ... هذا مثال رائع لحفظ سجلات من الدات جريد و يعمل على SQLSERVER DB .. و ان رغبت فى مشروع آخر لأكسيس أرفق لك
تحديث السجلات من داتا جريد
(02-07-20, 06:17 PM)ahmedbezia كتب : (02-07-20, 04:36 PM)DR.YASER كتب : (02-07-20, 02:22 PM)ahmedbezia كتب : السلام عليكم
ارجو الاهتمام با هد السؤال والاجابة
قاعدة البينات اكسس
اريد كود التعديل في الدتا قلايد فيو لعدة سجلات في نفس الوقت حسب id لكل سجل اريد هدا لعملية خصم من المخزون مثلا بعت المنتج رقم 1 عدد3 اخصمهم من المخزون حسب id المنتج اللدي اخترته
كود :
con.Open() 'Open connection to database
'Looping throung dgv
For i As Integer = 0 To dgvEmpDetail.Rows.Count - 1
If IsDBNull(dgvEmpDetail.Rows(i).Cells("Emp_ID").Value) Then Exit For
Dim cmd As New SqlCommand("Update EmployeeDetail Set [Salary] = ?, [Experience]=?, [Skills]=? WHERE [Emp_ID] =?", con)
With cmd.Parameters
.AddWithValue("@Salary", dgvEmpDetail.Rows(i).Cells("Salary").Value )
.AddWithValue("@Experience", dgvEmpDetail.Rows(i).Cells("Experience").Value )
.AddWithValue("@Skills", dgvEmpDetail.Rows(i).Cells("Skills").Value )
.AddWithValue("@Emp_ID", dgvEmpDetail.Rows(i).Cells("Emp_ID").Value )
End With
cmd.ExecuteNonQuery()
Next i
con.Close()
يارك الله فيك اخي لاكن هناك خطئ باالجملة ممكن مثال واكون ممنون
و هذا فيديو رائع يشرح تفاصيل هامة :
مشكور اريد كود تعديل مجموعة من السجلات في نفس الوقت اثناء عرضها علي الدتا قريد حسب id
|