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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 73 أمس, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 43 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 59 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 170 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 282 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 71 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 78 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 83 16-11-16, 11:58 AM
آخر رد: أبووسم
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 67 15-11-16, 10:30 PM
آخر رد: السرور
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 77 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان

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


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