[dubai.eig]

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

من يومين احاول وابحث عن حل لكود  التحديث وموب ضابط معاي

الكود 

كود :

 Dim con As New SQLiteConnection("Data Source=tables.s3db")

           Dim cmdi As New SQLiteCommand(" SELECT COUNT(*) FROM table WHERE name = @name  and   Date = @Date  and  time = @time", con)
           cmdi.Parameters.AddWithValue("@name", DataGridView1.Rows(i).Cells(1).Value)
           cmdi.Parameters.AddWithValue("@Date", DataGridView1.Rows(i).Cells(2).Value)
           cmdi.Parameters.AddWithValue("@time", DataGridView1.Rows(i).Cells(3).Value)


           con.Open()
           If cmdi.ExecuteScalar = 0 Then

               Dim rcvd As String = String.Empty
               rcvd = "Y"
           
               Dim cmd As New SQLiteCommand("UPDATE table SET trcvd=@trcvd WHERE name=@name AND Date=@Date AND time=@time", con)
               cmd.Parameters.AddWithValue("@trcvd", rcvd)
               cmd.Parameters.AddWithValue("@name", DataGridView1.Rows(i).Cells(1).Value)
               cmd.Parameters.AddWithValue("@Date", DataGridView1.Rows(i).Cells(2).Value)
               cmd.Parameters.AddWithValue("@time", DataGridView1.Rows(i).Cells(3).Value)
               cmd.ExecuteNonQuery()
               con.Close()


           Else
              MsgBox("No Records Found")
           End If

عمل الكود في القاعده عندي اسم احمد موجود اكثر من مرة وبتاريخ ووقت مختلف

كود :

name  -       Date    -  time  -  trcvd

Ahmed  -  11/05/2016  -  11:02  -  N

Ahmed  -  20/03/2016  -  12:12  -  N

Ahmed  -  30/09/2016  -  01:09  -  N

Ahmed  -  15/11/2016  -  06:55  -  N

الكود يبحث في القاعده عن اسم احمد بتاريخ  ووقت معين  واذا حصله

كود :

 Dim con As New SQLiteConnection("Data Source=tables.s3db")

           Dim cmdi As New SQLiteCommand(" SELECT COUNT(*) FROM table WHERE name = @name  and   Date = @Date  and  time = @time", con)
           cmdi.Parameters.AddWithValue("@name", DataGridView1.Rows(i).Cells(1).Value)
           cmdi.Parameters.AddWithValue("@Date", DataGridView1.Rows(i).Cells(2).Value)
           cmdi.Parameters.AddWithValue("@time", DataGridView1.Rows(i).Cells(3).Value)


           con.Open()
           If cmdi.ExecuteScalar = 0 Then

يقوم بتحديث نفس السطر اللذي حصله ليقوم بتغيير  

كود :

@trcvd

من حرف N    الى حرف  Y

كود :

               Dim rcvd As String = String.Empty
               rcvd = "Y"
           
               Dim cmd As New SQLiteCommand("UPDATE table SET trcvd=@trcvd WHERE name=@name AND Date=@Date AND time=@time", con)
               cmd.Parameters.AddWithValue("@trcvd", rcvd)
               cmd.Parameters.AddWithValue("@name", DataGridView1.Rows(i).Cells(1).Value)
               cmd.Parameters.AddWithValue("@Date", DataGridView1.Rows(i).Cells(2).Value)
               cmd.Parameters.AddWithValue("@time", DataGridView1.Rows(i).Cells(3).Value)
               cmd.ExecuteNonQuery()
               con.Close()

اتمنى يكون الشرحح مفهوم بارك الله فيكم

اتعبني الكود من يومين 

وشكرا