تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود تعديل عدة سجلات في الدتا قريد
#1
السلام عليكم
ارجو الاهتمام با هد السؤال والاجابة 


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

اريد كود التعديل في الدتا قلايد فيو لعدة سجلات في نفس الوقت حسب id لكل سجل اريد هدا لعملية خصم من المخزون مثلا بعت المنتج رقم 1 عدد3 اخصمهم من المخزون حسب id المنتج اللدي اخترته 
الرد
تم الشكر بواسطة:
#2
Shocked 
Huh Huh Huh Huh
الرد
تم الشكر بواسطة:
#3
(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
الرد
تم الشكر بواسطة: ahmedbezia
#4
(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()
يارك الله فيك اخي لاكن هناك خطئ باالجملة ممكن مثال واكون ممنون
الرد
تم الشكر بواسطة:
#5
(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()
يارك الله فيك اخي لاكن هناك خطئ باالجملة ممكن مثال واكون ممنون

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



الرد
تم الشكر بواسطة: ahmedbezia
#6
(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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد خانة تعديل فقط عامود واحد من الجدول مجـ متعلم ـرد 7 175 23-10-21, 02:47 AM
آخر رد: ابراهيم ايبو
  [ تمّ الحل ] : تعديل على نص المخرجات لأوامر Command AT عبد العزيز البسكري 3 192 20-10-21, 07:24 PM
آخر رد: عبد العزيز البسكري
  [Acces2010] ممكن تعديل الكون بسام محمدغانم 6 271 15-10-21, 04:26 AM
آخر رد: بسام محمدغانم
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 1 317 20-09-21, 10:57 PM
آخر رد: ميدو الفنان
  طريقة تطبيق هذا الكود عل الدتا قريد ahmedbezia 2 291 17-09-21, 01:52 PM
آخر رد: ahmedbezia
  عرض البيانات من الداتا قريد فيو الى الادوات aftfm 7 585 28-08-21, 10:50 PM
آخر رد: aftfm
  جلب البيانات من جدول مع اجراء عمليات حسابية - تعديل الكود momani33 7 630 14-08-21, 09:34 AM
آخر رد: ابو انس
  تعديل على كود الحفظ aftfm 1 290 04-08-21, 09:10 PM
آخر رد: ابراهيم ايبو
Star [كود] طلب تعديل كود إليسار 3 446 30-07-21, 02:31 PM
آخر رد: إليسار
  تعديل على كود ابو انس 3 459 19-07-21, 10:55 PM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم