منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود تعديل عدة سجلات في الدتا قريد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود تعديل عدة سجلات في الدتا قريد (/showthread.php?tid=35454)



كود تعديل عدة سجلات في الدتا قريد - ahmedbezia - 02-07-20

السلام عليكم
ارجو الاهتمام با هد السؤال والاجابة 


قاعدة البينات اكسس 

اريد كود التعديل في الدتا قلايد فيو لعدة سجلات في نفس الوقت حسب id لكل سجل اريد هدا لعملية خصم من المخزون مثلا بعت المنتج رقم 1 عدد3 اخصمهم من المخزون حسب id المنتج اللدي اخترته 



RE: كود تعديل عدة سجلات في الدتا قريد - ahmedbezia - 02-07-20

Huh Huh Huh Huh


RE: كود تعديل عدة سجلات في الدتا قريد - DR.YASER - 02-07-20

(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



RE: كود تعديل عدة سجلات في الدتا قريد - ahmedbezia - 02-07-20

(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()
يارك الله فيك اخي لاكن هناك خطئ باالجملة ممكن مثال واكون ممنون


RE: كود تعديل عدة سجلات في الدتا قريد - DR.YASER - 02-07-20

(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()
يارك الله فيك اخي لاكن هناك خطئ باالجملة ممكن مثال واكون ممنون

و هذا فيديو رائع يشرح تفاصيل هامة :






RE: كود تعديل عدة سجلات في الدتا قريد - ahmedbezia - 02-07-20

(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