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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود البحث بين تاريخين في Report Viewer بالفيجوال بيسك adnan gharbi 9 116 منذ 8 ساعة مضت
آخر رد: adnan gharbi
  البحث بتاريخ اليوم في الدتا جريد فيو mazentq 5 123 27-05-20, 08:36 PM
آخر رد: rochdi191
  [VB.NET] إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد Alhootti1 2 121 06-05-20, 04:46 AM
آخر رد: Alhootti1
  [VB.NET] كيف اقضي على مشاكل الكود البحث ةالاضافة و التعديل بالعربية في فيجوال بيسك rochdi191 5 157 01-05-20, 04:26 PM
آخر رد: rochdi191
  [كود] رمضان مبارك يا اخوتي اريد كود بحث عن الاسم لقد اتعبني البحث rochdi191 8 201 25-04-20, 11:32 PM
آخر رد: rochdi191
  تحديد نتيجة البحث ZaerAllail 9 265 01-04-20, 10:54 PM
آخر رد: سعود
  حل مشكله البحث في ال datagrid mohamedalqadi 2 172 17-03-20, 06:51 PM
آخر رد: mohamedalqadi
  [VB.NET] البحث عن اي جزء من أي كلمة في مربع نص واحد waelalmsry75 9 2,228 13-03-20, 02:49 AM
آخر رد: waelalmsry75
  البحث بناءً على شرطين mr_hso 6 276 26-02-20, 11:30 AM
آخر رد: mr_hso
  [VB.NET] كيفية عمل قائمة منسدلة عن عمليات البحث ذات الصلة khairallah 0 178 12-02-20, 12:24 PM
آخر رد: khairallah

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


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