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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  مساعدة jalaltech 1 96 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 80 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 324 06-02-24, 09:39 PM
آخر رد: AHMED213
  امثلة و اكواد ربما تفيدك AHMED213 0 190 04-02-24, 11:07 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 221 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق

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


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