تقييم الموضوع :
  • 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] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 33 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 137 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 97 19-05-17, 06:46 PM
آخر رد: dubai.eig
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 527 16-05-17, 01:12 AM
آخر رد: salah mansour
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 82 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 98 10-05-17, 11:17 AM
آخر رد: khaled12345
  مساعدة لسه مبتدئ 1 67 10-05-17, 01:18 AM
آخر رد: محمود بكرى
  مساعدة في ربط برنامج بالسكنر zinab ali 3 82 09-05-17, 10:55 PM
آخر رد: mansoor
  طلب مساعدة محمد بن عطية 0 61 05-05-17, 06:38 PM
آخر رد: محمد بن عطية

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


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