+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب مساعدة في مجموعة اكواد (/showthread.php?tid=12335)
طلب مساعدة في مجموعة اكواد - moftah70 - 21-05-15
السلام عليكم ورحمة الله وبركاته
تحية طيبة للجميع
لو سمحتوا عندي ثلاثة اسئلة اذا ممكن اريد مساعدتي في الاجابة عليها
السؤال الاول :
عملت كود في زر الحدف لحذف صف من قاعدة البانات والكود هو
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
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
السؤال الثالث :
عملت زر للبحث وتكست بوكس لكتابة المراد البحث عنة وكومبوبوكس لتحديد نوع البحث ( مثلاً البحث بالاسم او البحث برقم جواز السفر او البحث بالعمر ... الخ )
فماهو الكود الازم لتنفيد هذا الشرط
اعتذرعن الاطالة وكثرة الاسئله وبارك الله فيكم جميعاً
RE: طلب مساعدة في مجموعة اكواد - moftah70 - 22-05-15
وينكم ياشباب ؟؟؟؟
RE: طلب مساعدة في مجموعة اكواد - الطالب - 23-05-15
سلام
بعد الحذف وتعبئة الداتاجريد حدد السطر باستخدام 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()موفقين
RE: طلب مساعدة في مجموعة اكواد - moftah70 - 23-05-15
الله ينور عليك ويرحم والديك ويبارك فيك وان شاء الله الخير يجيك والشر يواريك وان يبارك لك وفيك ويبارك كل اسرتك واحبابك واسأل الله ان يحفظك وان يحميك وان يرزقك من حيث لا تحتسب وان يجعل ماتقوم به من مساعدة الاخرين في ميزان حسناتك وان تجدها امامك يوم لا ينفع مال ولا بنون تقبل مني خالص التحية وفائق الاحترام والتقدير
RE: طلب مساعدة في مجموعة اكواد - أسامة السالمي - 06-09-16
كود تحديد نوع البحث:
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = "البحث بالاسم" Then
'كود البحث بالأسم
ElseIf ComboBox1.Text = "البحث برقم جواز السفر" Then
'كود البحث برقم جواز السفر
ElseIf ComboBox1.Text = "البحث بالعمر" Then
'كود البحث بالعمر
End If
End Sub