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

السلام عليكم ورحمة الله

عندي ال DataGridView يتم تنزيل في بيانات ويتم فحص الاسم في قاعدة البيانات اذا موجود او لا

اذا موجود الاسم ينزله عادي واذا غير موجود يحدد الاسم باللوون معين

المشكله الان يتم تحديد جميع الاسامي في حالة الاسم غير موجود

[attachment=15930]

والمطلوب ان يحدد مربع واحد فقط كمثال

[attachment=15931]

ما اعرف هل الكود اللي عندي غلط

يعني اذا ما حصل الاسم يضلل على نفس الاسم واذا حصله خلاص ما يعمل شي

هذا هو الكود

كود :

               For RowIndex As Integer = 0 To DataGridView1.Rows.Count - 1

                    Dim sa3callswork As String = a3

                    Dim conn41 As New SQLiteConnection(String.Format("Data Source= \DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), strcallbk))

                    conn41.Open()

                    Dim cmd41 As New SQLiteCommand(String.Format("SELECT COUNT(*) FROM DB WHERE CALLop = @CALLop"), conn41)

                    cmd41.Parameters.AddWithValue("CALLop", sa3callswork)

                    Dim rowCount41 As Integer = Convert.ToInt32(cmd41.ExecuteScalar())

                    If rowCount41 <> 0 Then

                        DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Nothing

                    Else

                        DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Color.Yellow

                    End If

                Next

وبارك الله فيكم على الافاده وكثر الله خيركم

PHP كود :

Dim conn41 As New SQLiteConnection(String.Format("Data Source= \DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), strcallbk))

conn41.Open()
For RowIndex As Integer = 0 To DataGridView1.Rows.Count - 1

    Dim sa3callswork As String = DataGridView1.Item(1, RowIndex).Value

    Dim cmd41 As New SQLiteCommand(String.Format("SELECT COUNT(*) FROM DB WHERE CALLop = @CALLop"), conn41)
    cmd41.Parameters.AddWithValue("CALLop", sa3callswork)

    Dim rowCount41 As Integer = Convert.ToInt32(cmd41.ExecuteScalar())
    If rowCount41 <> 0 Then
        DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Nothing
    Else
        DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Color.Yellow


    End If

Next
conn41.Close() 

(30-10-17, 09:51 AM)a.ahmed كتب : [ -> ]
PHP كود :

Dim conn41 As New SQLiteConnection(String.Format("Data Source= \DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), strcallbk)) conn41.Open() For RowIndex As Integer = 0 To DataGridView1.Rows.Count - 1 Dim sa3callswork As String = DataGridView1.Item(1, RowIndex).Value Dim cmd41 As New SQLiteCommand(String.Format("SELECT COUNT(*) FROM DB WHERE CALLop = @CALLop"), conn41) cmd41.Parameters.AddWithValue("CALLop", sa3callswork) Dim rowCount41 As Integer = Convert.ToInt32(cmd41.ExecuteScalar()) If rowCount41 <> 0 Then DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Nothing Else DataGridView1.Rows(RowIndex).DefaultCellStyle.BackColor = Color.Yellow End If Next conn41.Close()

\بارك الله فيك شكرا على الرد

مع الاسف نفس الطريقه يلون جميع المربعات

انا لازم انزل المشروع افضل لان الكود ياخذ المعلومات من الانترنت من موقع معين

اضبط المشروع وانزله لك بارك الله فيك وشكرا على وقتك ومجهودك Rolleyes

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

dubai.eig

a.ahmed

dubai.eig