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

السؤال الاول :
عملت كود في زر الحدف لحذف صف من قاعدة البانات والكود هو

Private Sub Button8_delet_Click(sender As Object, e As EventArgs) Handles Button8_delet.Click

       If MsgBox("هل انت متأكد من رغبتك في حدف السجل ؟", MsgBoxStyle.YesNo, "تحذير") = MsgBoxResult.Yes Then

           Dim postion As Integer = DataGridView1.CurrentRow.Index
           Dim emp_No_postion = DataGridView1.Rows(postion).Cells("emp_No").Value
           Dim cmd As New OleDbCommand("delete from emp_table where emp_No =  " & CInt(emp_No_postion), con)
           con.Open()
           cmd.ExecuteNonQuery()
           con.Close()
           emp_table_load()

           MsgBox("تم الحذف بنجاح ")

       End If

   End Sub


المشكلة انه بعد حذف الصف يقفز المؤشر الي بداية الجدول فكيف يمكن جعل المؤشر يثبت في مكان الصف المحدوف
وكيف يمكن اعادة الترقيم التلقائي

السؤال الثاني :

كيف يمكن حذف عدة صفوف دفعة واحده عن طريق تضليلها في datagridview

السؤال الثالث :

عملت زر للبحث وتكست بوكس لكتابة المراد البحث عنة وكومبوبوكس لتحديد نوع البحث ( مثلاً البحث بالاسم او البحث برقم جواز السفر او البحث بالعمر ... الخ )
فماهو الكود الازم لتنفيد هذا الشرط

اعتذرعن الاطالة وكثرة الاسئله وبارك الله فيكم جميعاً
الرد
تم الشكر بواسطة:
#2
وينكم ياشباب ؟؟؟؟
الرد
تم الشكر بواسطة:
#3
سلام

بعد الحذف وتعبئة الداتاجريد حدد السطر باستخدام Rows.Selected
كود :
Private Sub Button8_delet_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button8_delet.Click

   If MsgBox("هل انت متأكد من رغبتك في حدف السجل ؟", MsgBoxStyle.YesNo, "تحذير") = MsgBoxResult.Yes Then

       Dim postion As Integer = DataGridView1.CurrentRow.Index
       Dim emp_No_postion = DataGridView1.Rows(postion).Cells("emp_No").Value
       Dim cmd As New OleDbCommand("delete from emp_table where emp_No =  " & CInt(emp_No_postion), con)
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
       emp_table_load()

       If postion < DataGridView1.Rows.Count Then
           DataGridView1.FirstDisplayedScrollingRowIndex = postion
           DataGridView1.Rows(postion).Selected = True
       End If

       MsgBox("تم الحذف بنجاح ")

   End If

End Sub

موفقين

سلام

لحذف عدة صفوف دفعة واحده عن طريق تضليلها في datagridview جرب هذا الطريقة
كود :
con.Open()
For Each row As DataGridViewRow In DataGridView1.SelectedRows
   Dim emp_No_postion = row.Cells("emp_No").Value
   Dim cmd As New OleDbCommand("delete from emp_table where emp_No =  " & CInt(emp_No_postion), con)
   cmd.ExecuteNonQuery()
Next
con.Close()

موفقين
متغيب
الرد
تم الشكر بواسطة: أسامة السالمي
#4
الله ينور عليك ويرحم والديك ويبارك فيك وان شاء الله الخير يجيك والشر يواريك وان يبارك لك وفيك ويبارك كل اسرتك واحبابك واسأل الله ان يحفظك وان يحميك وان يرزقك من حيث لا تحتسب وان يجعل ماتقوم به من مساعدة الاخرين في ميزان حسناتك وان تجدها امامك يوم لا ينفع مال ولا بنون تقبل مني خالص التحية وفائق الاحترام والتقدير
الرد
تم الشكر بواسطة:
#5
كود تحديد نوع البحث:

PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        If ComboBox1
.Text "البحث بالاسم" Then
            
'كود البحث بالأسم
        ElseIf ComboBox1.Text = "البحث برقم جواز السفر" Then
            '
كود البحث برقم جواز السفر
        ElseIf ComboBox1
.Text "البحث بالعمر" Then
            
'كود البحث بالعمر
        End If
    End Sub 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج مساعدة بشأن الاكسس اسامه الهرماوي 2 45 17-04-19, 02:02 AM
آخر رد: new_programer
  [VB.NET] سحب مجموعة صور بالاسكانر وحفظها في ملف PDF على الجهاز محمد المصري 7 852 15-04-19, 12:37 AM
آخر رد: khairallah
  طلب مساعدة في اضافة save restore حاتمي 6 127 13-04-19, 05:37 PM
آخر رد: trakktour
  مساعدة فى الويب بروزر Mohamed Magdy 3 60 13-04-19, 04:48 PM
آخر رد: trakktour
Exclamation [VB.NET] [تم الحل] مساعدة بمسألة رياضيه DK-x 8 407 03-04-19, 10:40 PM
آخر رد: DK-x
  مساعدة فى datagridview atef_020 17 242 02-04-19, 01:52 AM
آخر رد: elgokr
  مساعدة في DevExpress Rabeea Qbaha 5 93 01-04-19, 09:33 PM
آخر رد: elgokr
  ممكن مساعدة في حل بحث عن الفجوال بيسك A12 1 49 29-03-19, 01:22 AM
آخر رد: عبد العزيز البسكري
  [سؤال] مساعدة في كود الدخول cayo12300 0 62 23-03-19, 04:03 AM
آخر رد: cayo12300
  محتاج مساعدة فى نافذة الدخول Mohamed Magdy 2 127 22-03-19, 05:04 PM
آخر رد: ahmadpal

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


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