[hikmat]

اريد كود يتاكد من ان عمود يحتوي على قيمة محددة
وشكرا

[Rabeea Qbaha]

(21-10-17, 04:13 PM)hikmat كتب : اريد كود يتاكد من ان عمود يحتوي على قيمة محددة
وشكرا

وضح اكثر صديقي 
اي عمود datagridview or listview 
وضح سؤالك

[hikmat]

(21-10-17, 07:56 PM)Rabeea Qbaha كتب :

(21-10-17, 04:13 PM)hikmat كتب : اريد كود يتاكد من ان عمود يحتوي على قيمة محددة
وشكرا

وضح اكثر صديقي 
اي عمود datagridview or listview 
وضح سؤالك

datagridview
 المطلوب لدي فورم لادخال البيانات اريد ان اتاكد ان الاسم الذي تم ادخالة غير موجود مسبقا في عمود الاسم في datagridview

[Rabeea Qbaha]

(21-10-17, 08:28 PM)hikmat كتب :

(21-10-17, 07:56 PM)Rabeea Qbaha كتب :

(21-10-17, 04:13 PM)hikmat كتب : اريد كود يتاكد من ان عمود يحتوي على قيمة محددة
وشكرا

وضح اكثر صديقي 
اي عمود datagridview or listview 
وضح سؤالك

datagridview
 المطلوب لدي فورم لادخال البيانات اريد ان اتاكد ان الاسم الذي تم ادخالة غير موجود مسبقا في عمود الاسم في datagridview

هل هذه الاسماء مسجله بقاعده البيانات ؟؟

تستطيع فحص البيانات الموجوده في datagridview عن طريق هذا الكود :

كود :

Dim isFound As Boolean = False  

     For Each row As GridViewRow  In DataGridView1.Rows
          for i As Integer = 0 to DataGridView1.Columns.Count -1
        If row.Cells[i].Text = TextBox1.text  Then
           isFound = True
           exit for
        End If
          Next
       Next


If (isFound) Then
     MessageBox.Show("Data Exists!")
Else
      MessageBox.Show("Data Not Exists!")
EndIf

اما اذا اردت ان تتاكد اذا كان الاسم مسجل فب قاعده البيانات وهي الطريقه الافضل استخدم الكود التالي 

كود :

Public Function UserEx(ByVal Name As String) As Boolean
       Dim correct_version As Boolean = False
       Dim command As New SqlCommand("SELECT name FROM Employees WHERE name= @name", SQL.conn)
       command.Parameters.AddWithValue("@name", name)
       SQL.conn.Open()
       Using reader As SqlDataReader = command.ExecuteReader
           While reader.Read
               If IsDBNull(reader("name")) Then
                   correct_version = False
               Else
                   correct_version = True
               End If
           End While
       End Using
       command.Parameters.Clear()
       SQL.conn.Close()
       Return correct_version
   End Function

كود :

If UserEx(id_number_txt.Text) = True Then
               ErrorProvider1.SetError(id_number_txt, "! رقم الهوية هذا مسجل مسبقا")
               id_number_txt.Text = ""
               id_number_txt.BackColor = Color.LightPink
               id_number_txt.Focus()
               Return
           End If