منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

(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