تقييم الموضوع :
  • 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 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله غريبه فى اكواد الفجوال لا اعلم ان كانت قد واججهتكم قبل ذلك او لا خالد كامل1 7 136 منذ 5 ساعة مضت
آخر رد: سامي محمد
  [سؤال] محتاج مساعدة صغيرة Yasin 1 74 10-07-19, 08:04 PM
آخر رد: Rabeea Qbaha
  [سؤال] محتاج مساعدة صغيرة Yasin 1 80 09-07-19, 11:16 AM
آخر رد: ابراهيم ايبو
  مساعدة كيفية عمل نفس الرسام وحفظ الصورة بنفس ID alshandodi 3 107 08-07-19, 12:58 PM
آخر رد: ابراهيم ايبو
  [VB.NET] مسح مجموعة من الصور وحفظها بصيغة ملف pdf khairallah 0 66 29-06-19, 12:54 PM
آخر رد: khairallah
  [VB.NET] مساعدة في..listbox e-coder 12 430 22-06-19, 03:31 PM
آخر رد: wared
Photo مساعدة تصحيح الكود sofiane-phy 4 163 20-06-19, 03:01 PM
آخر رد: sofiane-phy
  [VB.NET] ممكن طريقة تحديد التشك على مجموعة من الروو تختار انت العدد annaba2015 1 154 04-06-19, 02:43 AM
آخر رد: ابراهيم ايبو
  [سؤال] طلب مساعدة كود التحكم بعرض بيانات حقل حسابية في التكست بكس على ان لا يظهر لاصفار essawq 12 828 29-05-19, 10:43 PM
آخر رد: egbest2
  مساعدة جزاكم الله خير fouadhdfouad 1 139 08-05-19, 10:57 PM
آخر رد: ابراهيم ايبو

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


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