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



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


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