تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] البحث قبل الاضافة
#1
اريد التاكد من وجود قيمة بخلية بالعمود رقم 1   وعدم اضافتها مجددا

بمعني التاكد من وجود قيم مكررة قبل الاضافة

استخدمت الكود التالي ولم يعمل


كود :
Sub same()
      On Error Resume Next
       For i As Integer = 0 To DataGridView1.RowCount - 1
         
               If DataGridView1.Rows(i).Cells(1).Value.ToString = TextBox1.Text Then
                   MsgBox("value  found") : Exit Sub
               ElseIf Not DataGridView1.Rows(i).Cells(1).Value.ToString = TextBox1.Text Then
                   MsgBox("value not found") : Exit Sub
               End If
       Next
   End Sub

وجربت بالطريقة دية


كود :
 Sub same()
       Try
           If IsNumeric(TextBox1.Text) = False Then

               Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM TB1 WHERE PROGRAMNAM_TB  LIKE '" & Trim$(TextBox1.Text) & "'", con)

               con.Open()

               If Me.BindingContext(DataSet1, "TB1").Count = 0 Then

                   MsgBox("القيمة غير موجودة", 48 + MsgBoxStyle.MsgBoxRight, "البحث")
               Else

                   MsgBox("القيمة مضافة من قبل", 48 + MsgBoxStyle.MsgBoxRight, "البحث")

               End If

           End If
           con.Close()
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة مع كود البحث محمد ابوخليل 3 171 29-09-19, 02:13 PM
آخر رد: mmali127
  البحث بتواريخ مختلفة محمد خيري 5 255 18-09-19, 02:41 PM
آخر رد: محمد خيري
  ظهور رسالة فى حالة عدم مطابقة البحث mr_hso 2 177 17-09-19, 07:44 PM
آخر رد: mr_hso
  فلترة نتائج البحث فى داتا جريد فيو منبثقة mr_hso 1 171 14-09-19, 03:09 AM
آخر رد: asemshahen5
  فورم البحث عن الفواتير خالد كامل1 11 423 31-08-19, 11:49 AM
آخر رد: ابراهيم ايبو
Star [سؤال] انبثاق قائمة البحث المطابق خلال عملية البحث الرائد 2 222 24-08-19, 11:04 AM
آخر رد: الرائد
  [VB.NET] عرض الصور في الليست فيو و إجراء البحث من خلال الضغط على الصورة المعروضة larbihamri 6 328 22-08-19, 10:57 PM
آخر رد: ابراهيم ايبو
  مشكله فى البحث بين تاريخين خالد كامل1 7 322 16-08-19, 08:04 PM
آخر رد: ابراهيم ايبو
  [VB.NET] كود البحث بين تاريخين به مشكلة اسامه الهرماوي 2 229 14-08-19, 05:29 PM
آخر رد: Beginer
  اظهار مجموع نتائج البحث عن كلمة الرائد 8 348 13-08-19, 09:45 PM
آخر رد: الرائد

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


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