+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] البحث قبل الاضافة (/showthread.php?tid=23938)
البحث قبل الاضافة - محمد اسماعيل - 22-02-18
اريد التاكد من وجود قيمة بخلية بالعمود رقم 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